这个问题我之前也碰到过！当用户从文件资源管理器复制带空格的文件路径时，Windows会自动给路径加上双引号，手动删除确实麻烦，我们完全可以在VBA代码里自动处理掉这些引号。

这里有两种可靠的处理方式，你可以根据需求选择：

方式1：移除所有双引号（简单直接） #

这种方式会把输入路径里所有的双引号都替换为空，适合用户可能不小心多输入引号的情况：

Sub OpenWorkbookFromPath()
    Dim userPath As String
    Dim targetWorkbook As Workbook
    
    ' 获取用户输入的路径
    userPath = InputBox("请粘贴目标工作簿的完整路径：", "输入工作簿路径")
    
    ' 检查用户是否取消输入
    If userPath = "" Then Exit Sub
    
    ' 移除所有双引号
    userPath = Replace(userPath, Chr(34), "")
    
    ' 尝试打开工作簿并添加错误处理
    On Error Resume Next
    Set targetWorkbook = Workbooks.Open(userPath)
    On Error GoTo 0
    
    ' 提示打开结果
    If targetWorkbook Is Nothing Then
        MsgBox "无法打开该工作簿，请检查路径是否正确！", vbExclamation
    Else
        MsgBox "成功打开工作簿：" & targetWorkbook.Name, vbInformation
    End If
End Sub

方式2：仅移除首尾的双引号（更严谨） #

如果你只想处理路径首尾的引号（比如确保中间的引号不会被误删，虽然文件路径里本身不会有引号），可以用这种方式：

Sub OpenWorkbookFromPath()
    Dim userPath As String
    Dim targetWorkbook As Workbook
    
    userPath = InputBox("请粘贴目标工作簿的完整路径：", "输入工作簿路径")
    
    If userPath = "" Then Exit Sub
    
    ' 检查首尾是否有双引号，有则移除
    If Left(userPath, 1) = Chr(34) And Right(userPath, 1) = Chr(34) Then
        userPath = Mid(userPath, 2, Len(userPath) - 2)
    End If
    
    On Error Resume Next
    Set targetWorkbook = Workbooks.Open(userPath)
    On Error GoTo 0
    
    If targetWorkbook Is Nothing Then
        MsgBox "无法打开该工作簿，请检查路径是否正确！", vbExclamation
    Else
        MsgBox "成功打开工作簿：" & targetWorkbook.Name, vbInformation
    End If
End Sub

为什么这两种方式可行？ #

• 当用户从资源管理器复制文件路径时，路径会被自动包裹在双引号中（比如"C:\My Files\Book1.xlsx"），我们的代码会自动去掉这些引号，转换成C:\My Files\Book1.xlsx，符合Workbooks.Open的要求。
• 添加错误处理是为了避免用户输入无效路径时程序崩溃，同时给出友好提示。

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