VBA中strVar与CStr(strVar)作为SpecialFolders集合键为何效果不同？

这个异常是VBA晚绑定COM调用的参数封送规则，和WScript.Shell组件的参数解析逻辑不兼容导致的，和字符串本身的内容无关。

首先明确WScript.Shell的SpecialFolders集合的参数解析规则：

• 当传入参数被识别为数值类型时，集合按从0开始的数字索引返回项，第0项固定是桌面路径，这也是异常时总返回桌面路径的原因
• 只有当传入参数被识别为COM原生字符串类型（VT_BSTR）时，集合才会按特殊文件夹的名称做键匹配，返回对应路径

不同传参方式表现不一致的核心原因，是VBA向晚绑定对象传递参数时的封送差异：

• 字符串字面量、Const定义的字符串常量：VBA在编译阶段就将其处理为临时的纯VT_BSTR值，不带额外标记，传入后能被正确识别为字符串键，返回正确结果。
• 明确定义为As String的普通字符串变量：VBA在晚绑定调用时，不会直接传递字符串的底层BSTR指针，而是会将其包装为带VT_BYREF（按引用传递）标记的Variant类型参数（子类型值为VT_BSTR | VT_BYREF）。这个设计本来是为了支持COM方法修改传入字符串参数后回写值，但SpecialFolders集合的参数解析逻辑没有处理带VT_BYREF标记的字符串类型，识别失败后就会fallback到数字索引逻辑，取第0项也就是桌面路径返回。
• 经CStr()转换后的字符串变量：CStr()的返回值是不可修改的临时值，VBA传递这类临时值时不会加VT_BYREF标记，会生成纯VT_BSTR类型值传入，因此能被正确识别。

验证方法与规避方案 #

你可以通过类型检测验证封送差异：

Sub CheckType()
    Const strCon As String = "MyDocuments"
    Dim strVar As String
    strVar = "MyDocuments"
    
    ' 本地检测三类值的类型均为vbString(8)，即纯字符串
    Debug.Print VarType(strCon), VarType("MyDocuments"), VarType(CStr(strVar))
    ' 注意：声明为String的变量传入晚绑定对象时，会自动追加vbByRef(16384)标记，实际封送类型值为16392
End Sub

除了传参时包裹CStr()之外，还有两种稳定的规避方式：

• 提前添加Windows Script Host Object Model类型库引用，使用早绑定方式创建WScript.Shell对象，此时VBA会按照类型库定义的参数类型直接传递纯BSTR值，不会生成带BYREF标记的Variant
• 提前将字符串值赋值给显式声明为Variant类型的变量，再将该Variant变量传入集合，也可以避免BYREF标记导致的识别失败

内容的提问来源于stack exchange，提问作者6diegodiego9