Заключаем строку 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]") & ")"