sql-server - 更新 Excel 宏中的多个 SQL 连接字符串

Question

我有一个 Excel 文档，其中包含几个(50 多个)嵌入式 SQL 查询，这些查询会刷新并更新计数和查询结果。我需要更改运行这些查询的服务器和数据库，我希望有一种比手动输入所有内容更简单的方法来执行此操作。我在这里搜索了其他一些问题，但我找不到符合我想要做的事情。

我的大部分连接字符串如下所示:

DRIVER=SQL Server;SERVER=ServerName;UID=ThisisMe;Trusted_Connection=Yes;APP=Microsoft Office 2013;WSID=CEPC098JJN

我还需要添加的是我认为看起来像这样的数据库:

Initial Catalog=DatabaseName

非常感谢有关如何更新所有这些连接字符串的后续步骤的任何指导。

Answer 1

也许您应该使用文本文件来存储 Miguel 建议的值。在应用程序中，将值加载到字典中，这样会方便易用。例如:

Sub test()
Dim d, key
    Set d = FileLoad("c:\soft\1.txt")
    For Each key In d.Keys
        Debug.Print ("key = " & key & " Value = " & d(key))
    Next key
End Sub


Function FileLoad(path As String) As Variant
Dim str, arr, dict
Open path For Input As #1
Set dict = CreateObject("Scripting.Dictionary")
Do Until EOF(1)
    Line Input #1, str
    arr = Split(str, ":")
    dict.Add arr(0), arr(1)
Loop
Close #1
Set FileLoad = dict
End Function

文本文件如:
初始目录:数据库名称

并在字符串中替换此值...