VBA在Excel中建立空白连接

我正在尝试在Excel中构建一个空白SQL连接，该连接将在稍后的报告中使用连接字符串和命令文本进行更新

我尝试使用的代码：

Workbooks（“WorkBook1.xlsm”）.Connections.Add2“Test1”、“Test1”、“”、“”、“SQL”

来自Microsoft的语法：

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

然而，由于不断出现错误，我正在与语法作斗争

---

有什么想法吗？

所以这不是一个真正的答案，而是一个解决办法

    Sub Add_Connection()

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

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

End Sub

---

我的计算机上有一个已保存的连接，我可以添加并重命名该连接。

如果知道要连接的位置，为什么不创建该连接/字符串？另外，看起来您缺少两个参数。叹气..对。我实际上已经建立了连接，但是对于报告的细节，我必须删除连接。删除连接时，我还希望创建一个新的空白连接，该连接将转换为原始连接，并带有更新的连接字符串和命令文本。