Как добавить двойные кавычки в строке буквального

Question

Пример кода:

Dim a As String 
a = 1234,5678,9123 

Я хочу добавить буквенные двойные кавычки переменной a

Ожидаемый выход:

a = "1234,5678,9123" 

Как я форматируйте строку, поэтому, когда я ее распечатываю, у нее есть двойные кавычки?

Answer 1

Если вы хотите включить " в строке, поставки "" где вы хотите котировка появляться. Так что ваш пример должен читать ...

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

Answer 2

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

или

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

Answer 3

текущие ответы правильны и справедливы, но иногда можно сделать следующие улучшения читаемости:

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

Answer 4

Я использовал метод 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, чтобы сохранить его проще для пользователей. Я обезумел цитатами за 45 минут, прежде чем нашел эту тему. Когда пути выходят из активных рабочих мест (особенно с пробелами в Windows), я думаю, что это предпочтительный метод. Надеюсь, это поможет кому-то другому.

Answer 5

Чтобы Chr $ больше (34) читаем:

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

Это делает его легче получить правильное количество "символов и везде читается

Answer 6

Нет необходимости добавлять какие-либо. сложные функции просто использовать следующий пример, чтобы вставить дважды в текстовом поле или богатом текстовое поле.

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

или

-

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