如何用VBA Shell在Excel中打开含Unicode名称的文件夹？

原问题中使用Shell函数无法打开带阿拉伯语、希伯来语等Unicode字符的文件夹，核心原因是VBA的Shell函数仅支持ANSI编码，Unicode路径会被转码为乱码，导致资源管理器找不到指定路径，只能打开默认位置。以下是两种可行的解决方法：

方法1：使用ShellExecuteW API（兼容性强） #

Windows系统提供的ShellExecuteW是宽字符版本API，完美支持Unicode路径，需先在模块顶部声明API，再调用执行：

' 兼容32位/64位Excel的API声明
#If VBA7 Then
    Declare PtrSafe Function ShellExecuteW Lib "shell32.dll" (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
#Else
    Declare Function ShellExecuteW Lib "shell32.dll" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If

Sub Show_Unicode_Folder()
    Dim folderPath As String
    folderPath = "c:\שם_התיקייה_שלי\" ' 替换为你的Unicode文件夹路径
    
    ' 调用API打开文件夹，"open"为操作指令，vbNormalFocus对应窗口正常显示
    ShellExecuteW 0, "open", folderPath, vbNullString, vbNullString, vbNormalFocus
End Sub

方法2：使用Shell.Application对象（代码简洁） #

无需声明API，直接调用COM对象的Open方法，天然支持Unicode：

Sub Show_Unicode_Folder()
    Dim shellObj As Object
    Set shellObj = CreateObject("Shell.Application")
    
    Dim folderPath As String
    folderPath = "c:\שם_התיקייה_שלי\" ' 替换为目标文件夹路径
    
    shellObj.Open folderPath
    Set shellObj = Nothing ' 释放对象
End Sub

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