用于连接和评估的VB语法错误

我想写一个VB脚本，将数据连接成一个urlstring，然后我想它复制到该列的所有行。 我有填充代码工作正常，但是当我尝试添加连接时，我不断收到语法错误，所以我不知道我在做什么错了。 我已经尝试了两个版本，他们都给了脚本（右侧）的最后一行语法错误：

脚本版本1：

Sub SetSurveyLink() ' SetSurveyLink Macro Dim lngLastRow As Long lngLastRow = Cells(Rows.Count, "A").End(xlUp).Row Range("C3:C" & lngLastRow).Value = EVALUATE("https://domainname.com/survey/?PartName=" & 'Client List'!B1 & "&ClientID="&B2) End Sub 

脚本版本2：

 Sub SetSurveyLink() ' SetSurveyLink Macro Dim lngLastRow As Long lngLastRow = Cells(Rows.Count, "A").End(xlUp).Row Range("C3:C" & lngLastRow).Value = CONCATENATE("https://domainname.com/survey/?PartName=",'Client List'!B1,"&ClientID=",B2) End Sub 

'concatenate'string在单元格中使用时（即，不作为脚本的一部分）给了我正确的值，但是我不能让它在脚本中工作。 看到我的语法中缺less的东西？

谢谢！

Answer 1

如果string中的任何双引号需要转义为双引号

 "https://domainname.com/survey/?PartName=" & 'Client List'!B1 & "&ClientID="&B2 

在Excel中工作，它变成

 ""https://domainname.com/survey/?PartName="" & 'Client List'!B1 & ""&ClientID=""&B2 

然后你需要用双引号括起来，使它成为VBA中的一个string，即

 """https://domainname.com/survey/?PartName="" & 'Client List'!B1 & ""&ClientID=""&B2"