用双引号replacevariables值

Dim CodePan As VBIDE.CodeModule Dim S As String Dim x As String x = showSheet Set CodePan = ThisWorkbook.VBProject.VBComponents("Module2").CodeModule S = _ "Sub ABCx ()" & vbNewLine & _ " MsgBox ""Hello World"",vbOkOnly" & vbNewLine & _ "End Sub" & vbNewLine With CodePan .InsertLines .CountOfLines + 1, S End With 

我从一个模块插入其他模块的一些代码。 在这里我有一个问题，我想我的子名称为ABCshowSheet为我作为ABCx添加，但因为在双引号中的Svariables它是来ABCx而不是ABCshowSheet有什么办法，我可以代替variables的值甚至尽pipe它是用双引号

Answer 1

把它看作是stringreplace中的一个问题：

 S = Replace(S,"ABCx", "ABC" & x) 

我这样做（而不是简单的Replace(S,"x",x) ）来防止潜在的错误，如果代码稍后被修改使得符号x将出现在string中的另一个上下文中。 我不确定为什么你在ABCx ()的()之前在S有一个空格。