MyTetra Share
Делитесь знаниями!
Заключаем строку VBA в кавычки
06.04.2018
15:04
Текстовые метки: кавычки в VBA
Раздел: VBA

Заключаем строку VBA в кавычки

Posted on 05.02.2016 by officemacro

Чтобы в строку VBA записать символ кавычек, приходится использовать код символа кавычек Chr(34) или дублировать символ кавычек. В итоге получается громоздкий код вида


'запись формулы в ячейку Excel

c.FormulaLocal = "=ГИПЕРССЫЛКА(""[C:\Книга.xls]"")"

'или

c.FormulaLocal="=ГИПЕРССЫЛКА(" & Chr(34) & "[C:\w.xls]" & Chr(34) & ")"

Для заключения строк в кавычки можно использовать функцию


'заключает текст в двойные кавычки (способ 1)

Public Function Quotes(text As String) As String

  Quotes = Chr(34) & text & Chr(34)

End Function

'заключает текст в двойные кавычки (способ 2)

Public Function Quotes(text As String) As String

  Quotes = """" & text & """"

End Function

...

c.FormulaLocal = "=ГИПЕРССЫЛКА(" & Quotes("[C:\Книга.xls]") & ")"

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования