excel vba变量引用另一个变量

Question

我正在尝试在Excel VBA中设置通用流程来处理连接和读取数据库。

而不是硬编码变量名到模块中我想引用传递的变量名，然后在模块中更新。这将允许我在任意数量的应用程序中使用它，而无需硬编码变量名称。

实施例 应用程序有一个变量：

Dim cnDB1 As ADODB.Connection
Dim cnDB2 as ADODB.Connection

我想将变量'name'作为参数传递，让通用模块更新值。

Open_Database "cnDB1", strCnnnectionDetails1
Open_Database "cnDB2", strConnectionDetails2

我是通过Eval和Execute命令在VBS中完成的，但是我无法确定如何在Excel VBA中执行类似的操作。

Answer 1

我只是通过定义一个全局ADODB连接来解决这个问题，我在模块中引用了这个连接。在调用之后，我将全局值传输到我的应用程序特定连接。

肮脏的解决方法，但它确实有效。