MyTetra Share
Делитесь знаниями!
Заключаем строку VBA в кавычки
16.03.2019
23:43
Текстовые метки: VBA,кавычки
Раздел: !Закладки - VBA - Разобрать

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

Чтобы в строку 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
Яндекс индекс цитирования