如何在set元素中写引号

Question

如何在此示例中编写引号？

Set elem1 = doc.createElement("ReferencniDokumenti VrstaDokumenta="ON"")

Answer 1

这有效：

"""" & strFoo & """"

然而，当你有很多这样的情况时，往往会使你的代码难以阅读。

所以我通常做的是创建一个常量处理引号/双引号，并使用临时变量

Public Const DBLEQUOTE As String = """"
' Alternative : Public Const DBLEQUOTE As String = Chr(34)

dim strTemp as string
strTemp = "ReferencniDokumenti VrstaDokumenta=" & DBLEQUOTE  & "ON" & DBLEQUOTE 
Set elem1 = doc.createElement(strTemp)  

清晰，易懂，易操作。
没有在VBA编辑器中测试过，我希望我没有搞砸那些该死的双引号:-)无论如何，你会得到这个想法。