如何在VBA中通过数据表变量名字段直接为已声明变量赋值？

我有一个包含ID、VariableName、VariableValue三个字段的数据表，在VBA中已声明与表中VariableName同名的变量，希望通过数据表为这些变量赋值。目前我是通过遍历数据表记录，用ID的Select Case语句逐个赋值，但想去掉这个分支语句，直接通过表中的VariableName匹配已声明的变量完成赋值。

原数据表示例 #

ID       VariableName      VariableValue
1        strStop                      x
2        strPause                     y
3        strGo                        z

原VBA代码 #

Dim strStop As String
Dim strPause As String
Dim strGo As String

Do Until rst.EOF
   Select Case rst!ID
      Case 1
         strStop = rst!VariableValue
      Case 2
         strPause = rst!VariableValue
      Case 3
         strGo = rst!VariableValue
   End Select
   rst.MoveNext
Loop

实现目标的两种方法 #

方法1：使用CallByName（推荐，安全规范）

如果变量是模块级/全局变量，可将变量封装到类模块中，通过CallByName实现动态赋值：

1. 新建类模块并命名为VarContainer，在类内声明变量：

Public strStop As String
Public strPause As String
Public strGo As String

2. 在主模块中编写代码：

Dim varObj As New VarContainer

Do Until rst.EOF
    ' 通过变量名动态匹配赋值
    CallByName varObj, rst!VariableName, VbLet, rst!VariableValue
    rst.MoveNext
Loop

' 后续可通过varObj.strStop、varObj.strPause等访问变量值

方法2：使用ExecuteGlobal（简单直接，需注意风险）

若变量是全局变量，可直接构造赋值语句执行，无需类模块，但要确保数据表内的VariableName为合法变量名，避免代码注入风险：

' 变量需在模块顶部声明为全局
Public strStop As String
Public strPause As String
Public strGo As String

Do Until rst.EOF
    ' 构造赋值语句并执行
    ExecuteGlobal rst!VariableName & " = """ & rst!VariableValue & """"
    rst.MoveNext
Loop

注意事项 #

• 方法1的类模块方式更贴合VBA面向对象规范，避免全局变量滥用，安全性更高。
• 方法2的ExecuteGlobal会执行任意VBA代码，若数据表中的VariableValue包含恶意内容会有风险，仅在可控环境下使用。
• 确保数据表内的VariableName与VBA声明的变量名完全一致（VBA变量名不区分大小写，但保持一致可避免混淆）。

内容的提问来源于stack exchange，提问作者Colin Leech