VBA построить пустое соединение в Excel

Question

Я пытаюсь создать пустое соединение SQL в Excel, которое будет обновлено строкой соединения и текстом команды на более позднем этапе в отчете.

Код, который я пытаюсь использовать:

Workbooks("WorkBook1.xlsm").Connections.Add2 "Test1", "Test1", " ", " ", "SQL"

Синтаксис от Microsoft:

Add2 (string Name, string Description, object ConnectionString, object CommandText, object lCmdtype, object CreateModelConnection, object ImportRelationships);

Однако я борюсь с синтаксисом, так как продолжаю получать ошибки.

Есть идеи?

Answer 1

Так что на самом деле это не ответ, а скорее обходной путь.

    Sub Add_Connection()

        Workbooks("WorkBook1.xlsm").Connections.AddFromFile _
            "C:\Document\template_Connection.odc"

    With ActiveWorkbook.Connections("template")
    .Name = "Facility"
    .Description = ""
    End With

End Sub

У меня есть сохраненное соединение на моем компьютере, которое я добавляю и переименовываю.