vba - 引号VBA

Question

这个问题在这里已经有了答案:





How do I put double quotes in a string in vba?

(4 个回答)


5个月前关闭。




我正在创建一个将公式输入到单元格中的函数。但我不断收到语法错误。我知道这是由于引号引起的。我想知道如何在函数中包含公式的引号而不会导致语法错误。

任何帮助将不胜感激。

Sub codedump()


      Range("A1").Value = "=Dump(GoogleAnalytics("ga:78770227", "ga:visits", "2014-05-28", "2014-06-26", "","", "", "", 500, FALSE, FALSE))"

End Sub

Answer 1

使用转义

例如，""给出一个引号。否则，使用字符代码

Sub codedump()

      Range("A1").Value = "=Dump(GoogleAnalytics(""ga:78770227"", ""ga:visits"", ""2014-05-28"", ""2014-06-26"", """","""", """", """", 500, FALSE, FALSE))"

End Sub

来自 http://msdn.microsoft.com/en-us/library/267k4fw5(v=vs.85).aspx

备择方案:

'Escaping
Private Sub InsertQuote()
   TextBox1.Text = "She said, ""You deserve a treat!"" "
End Sub

'Character code
Private Sub InsertAscii()
   TextBox1.Text = "She said, " & Chr(34) & "You deserve a treat!" & Chr(34)
End Sub

'Defined string
Const quote As String = """"
TextBox1.Text = "She said, " & quote & "You deserve a treat!" & quote