能否通过Evaluate直接设置Excel VBA全局变量而无需调用宏或函数？

你期望的iSheet.Evaluate("myVar = 12")写法完全可以实现需求，无需修改现有VBA加载项代码，仅需要满足以下前置条件：

• 目标变量是加载项标准模块中用Public修饰的全局变量，类模块、工作表/工作簿模块、用Private修饰的变量不支持直接赋值
• 调用Evaluate方法时，目标加载项已经完成加载，对应变量没有被VBA运行环境重置

如果变量存在命名冲突，或者需要指定归属的模块/工程，可以加前缀限定：

' 限定到加载项的指定模块
iSheet.Evaluate("AddinModuleName.myVar = 12")
' 同时限定加载项工程名和模块名，彻底避免冲突
iSheet.Evaluate("AddinProjectName.AddinModuleName.myVar = 12")

不同数据类型的变量需要按VBA语法调整传入的字符串：

• 字符串类型：需要额外转义引号

  iSheet.Evaluate("myStr = ""测试字符串""")
  

• 布尔/日期类型：按VBA语法规则书写即可

  iSheet.Evaluate("myBool = True")
  iSheet.Evaluate("myDate = #2024/05/20#")
  

如果赋值后读取不到修改后的值，优先排查以下问题：

• 变量作用域不符合要求，非标准模块的Public变量无法通过该方法直接修改
• 加载项未完成初始化就执行了赋值操作
• 变量名、模块名、工程名拼写错误，存在大小写以外的拼写差异

内容的提问来源于stack exchange，提问作者Crew Reynolds