Excel-VBA中使用变量调用含Unicode路径的Shell命令失效问题

核心问题 #

你犯了一个典型的字符串赋值误区：把ChrW函数的代码文本存进了变量，而不是执行ChrW得到实际的Unicode字符。当你直接用ChrW(&Hxxxx)拼接路径时，VBA会先执行函数得到对应的非英文字符，生成有效路径；但如果把"ChrW(&Hxxxx)"作为字符串文本存入变量，拼接后的路径里会包含ChrW(...)这段无效文本，Shell命令无法识别，自然会打开默认位置。

正确的实现方式 #

1. 直接执行ChrW生成字符后拼接路径

确保变量存储的是ChrW执行后的实际字符，而非函数代码，同时给路径加上双引号（避免空格/非ASCII字符导致的解析错误）：

Sub OpenNonEnglishFolder()
    ' 用ChrW生成非英文文件夹名（示例为中文"文档"）
    Dim folderName As String
    folderName = ChrW(&H6587) & ChrW(&H6863)
    
    ' 拼接完整路径
    Dim fullPath As String
    fullPath = "C:\Users\YourName\" & folderName
    
    ' 用Shell打开，路径必须用双引号包裹
    Shell "explorer.exe """ & fullPath & """", vbNormalFocus
End Sub

2. 更稳定的替代方案：使用ShellExecute API

Shell命令对Unicode路径的支持有限，改用ShellExecuteAPI能更好处理非英文路径，避免编码问题：

' 声明API（64位Office需加PtrSafe）
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hwnd As LongPtr, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr

Sub OpenFolderWithAPI()
    Dim folderName As String
    folderName = ChrW(&H6587) & ChrW(&H6863)
    Dim fullPath As String
    fullPath = "C:\Users\YourName\" & folderName
    
    ' 调用API打开文件夹
    ShellExecute 0, "open", fullPath, vbNullString, vbNullString, vbNormalFocus
End Sub

关键注意事项 #

• 永远不要把ChrW(&Hxxxx)作为字符串文本存储，变量里必须是函数执行后的结果字符。
• 路径包含空格、非ASCII字符时，必须用双引号将整个路径括起来，否则Shell会错误解析路径。

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