Кавычки в сложной формуле, включающей переменную

Question

Итак, у меня есть эта строка кода VBA:

With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""283669 (2)"";Extended Properties=""""" _, Destination:=Range("$B$3")).QueryTable

Я намереваюсь использовать объявленную пользователем переменную "Krs" для использования в этой строке кода.

Код нижеПохоже, что не работает:

With ActiveSheet.ListObjects.Add(SourceType:=0, Source:="OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""&Krs&"";Extended Properties=""""", Destination:=Range("$B$3")).QueryTable

ни следующее:

With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=""OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location="""&Krs&""";Extended Properties=""""", Destination:=Range("$B$3")").QueryTable

Я ожидаю, что мои проблемы возникают из-за неправильного использования кавычек, однако я не могу точно определить, где ясовершить ошибку.

Answer 1

With ActiveSheet.ListObjects.Add(SourceType:=0, Source:="OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""" & Krs & """;Extended Properties=""""", Destination:=Range("$B$3")).QueryTable