將Excel中的連接字符串設置為單元格值

Question

我正在為一些人創建一個工作簿，使他們能夠處理一些數據，從所有參與人員那里得到祝福，然后移交給其他人來手動重新輸入系統...不要問，我們擔心腳本會回退到系統。

我正在嘗試在“數據連接屬性”窗口中執行此操作。

數據>連接>屬性>定義（由於我是菜鳥，所以無法附加屏幕截圖）

我有許多不同的解決方法。 我什至創建了一個VB腳本來執行此操作，允許用戶更改服務器目標，傳遞不同的安全證書，但是就在上周一，有某種Office補丁將所有activeX搞砸了，我不得不清除掉臨時文件進行更正。 對於一群在地理上分開的，不熟悉技術的用戶，我無法做到這一點，我沒有RDP權限。

例如，當前的連接字符串如下所示：

DRIVER={iSeries Access ODBC Driver};
System=myserver.network.net;

我希望將其設置為：

DRIVER={iSeries Access ODBC Driver};
System="Overview!D9";

然后，可以由誰將單元格Overview！D9更改為正確的系統字符串，例如myserver.network.net或server1.network.net。

從我的研究可以看出，連接屬性窗口非常漂亮且干燥，這可能無法實現。 但想想我會問周圍。

Answer 1

假設System只是一個字符串，那么獲取值很簡單。

' Assuming System is a String
Dim System As String
System = ThisWorkbook.Worksheets("Overview").Range("D9").Value

如果System是另一個字符串的一部分，則幾乎相同

' Get the value to use in the connection string
Dim System As String
System = ThisWorkbook.Worksheets("Overview").Range("D9").Value

Dim ConnectionString As String
ConnectionString = "DRIVER={iSeries Access ODBC Driver}; SYSTEM=" & System & ";"

如果安全是一個問題，並且您生成/處理數據的人員不需要宏來執行工作（即，僅將數據輸入系統的人就可以了），那么您就無需將宏放入他們的工作簿。

您可以將宏添加到數據輸入人員計算機上的“默認工作簿”中。 這些宏隨后將對它們在計算機上打開的所有工作簿可用。

您的數據輸入人員將從腳本自動化中受益，您的用戶不必擔心電子郵件或防病毒問題。