Question

示例代码：

Dim a As String
a = 1234,5678,9123

我想在变量a

中添加文字双引号

预期产出：

a = "1234,5678,9123"

如何格式化字符串，以便在打印时，它周围有双引号？

Answer 1

如果要在字符串中包含"，请在显示引号的位置提供""。所以你的例子应该是......

a = """1234,5678,9123"""

Answer 2

目前的答案是正确有效的，但有时以下内容可以提高可读性：

a = Chr$(34) & "1234,5678,9123" & Chr$(34)

Answer 3

使Chr $（34）更具可读性：

Dim quote as string
quote = Chr$(34)
a = quote & "1234,5678,9123" & quote

这使得更容易在任何地方获得正确数量的“符号并且可读。

Answer 4

a = """1234,5678,9123"""

或

a= """" & a & """"

Answer 5

无需添加任何类型的复杂功能，只需使用以下示例在文本框或富文本框中插入双。

Dim dquot=""""
TextBox1.AppendText("Hello " &dquot &"How are you ?" &quot)

或

Dim dquot=""""
RichTextBox1.AppendText("Hello " &dquot &"How are you ?" &quot)

Answer 6

您只需使用Chr$(34)插入双引号即可。

例如：

将我视作字符串

i = Chr$(34) & "Hello World" & Chr$(34) 'Shows "Hello World"

Answer 7

我使用了Chr $（34）方法，如下所示：

Sub RunPython()
    Dim scriptName As String
    Dim stAppName As String
    scriptName = ActiveWorkbook.Path & "\aprPlotter.py"
    stAppName = "python.exe " & Chr$(34) & scriptName & Chr$(34)
    Debug.Print stAppName
    Call Shell(stAppName, vbHide)
End Sub

我使用与Excel工作簿相同的python脚本路径，以便让用户更轻松。在找到这个帖子之前，我用引号唠叨了45分钟。当路径来自活动工作位置（特别是在Windows中具有空格的位置）时，我认为这是一种首选方法。希望这会帮助其他人。

如何在字符串文字中添加双引号

7 个答案: