在您的情况下,Excel 单元格中的连接公式看起来像这样
= "String" & " Blah Blah " & "30/06/2012"
要将其转换为代码,请使用CHR(34)
双引号和"&"
看这个例子
Worksheets("LimsOutput").Cells(4, 2 + 14 * i).Formula = "=" & _
Chr(34) & BR & Chr(34) & _
"&" & _
Chr(34) & " Blah blah " & Chr(34) & _
"&" & _
Worksheets("Lims").Range("A3").Value
还有一件事 :)
Worksheets("Lims").Range("A3").Value
会给0.00248508946322068
你30/06/2012
所以上面的代码会给出一个输出,比如STRING Blah blah 0.00248508946322068
最后你必须CHR(34)
在日期之前和之后添加日期。例如
Worksheets("LimsOutput").Cells(4, 2 + 14 * i).Formula = "=" & _
Chr(34) & BR & Chr(34) & _
"&" & _
Chr(34) & " Blah blah " & Chr(34) & _
"&" & _
Chr(34) & Worksheets("Lims").Range("A3").Value & Chr(34)