Excel VBA新手求助：如何将文件路径设置为可变变量？

先修正你现有代码的错误 #

你的代码存在两个核心问题：

1. FileName = wb：wb是Workbook对象，不能直接赋值给字符串变量，要获取文件名需用wb.Name，获取文件路径用wb.Path。
2. FilePath = "C:\User\Testing\",FileName,"\client_01.xlsm"：VBA中字符串拼接用&符号，而非逗号，正确写法应为"C:\User\Testing\" & FileName & "\client_01.xlsm"。

适配可变路径的解决方案 #

以下两种方案可实现打开当前文件所在目录的兄弟文件夹（如B、D）中的同名文件：

方案1：手动指定目标文件夹名称

适合目标文件夹固定的场景，只需修改targetFolder的值即可切换路径：

Sub OpenSameNameInSiblingFolder()
    Dim currentWb As Workbook
    Dim targetFolder As String
    Dim targetFilePath As String
    
    ' 绑定当前运行宏的工作簿
    Set currentWb = ThisWorkbook
    
    ' 指定目标兄弟文件夹（比如要打开B文件夹的文件，就写"B"）
    targetFolder = "B"
    ' 也可以改成输入框让用户手动输入：
    ' targetFolder = InputBox("请输入目标文件夹名称（如B、D）：")
    
    ' 拼接目标文件路径：当前工作簿的上级目录 + 目标文件夹 + 同名文件名
    targetFilePath = Left(currentWb.Path, InStrRev(currentWb.Path, "\")) & targetFolder & "\" & currentWb.Name
    
    ' 检查文件是否存在，避免报错
    If Dir(targetFilePath) <> "" Then
        Workbooks.Open targetFilePath
    Else
        MsgBox "未找到目标文件：" & targetFilePath
    End If
End Sub

方案2：通过对话框选择目标文件夹

适合需要灵活选择任意文件夹的场景，用户可手动选择存放同名文件的目录：

Sub OpenSameNameInSelectedFolder()
    Dim currentWb As Workbook
    Dim targetFolder As String
    Dim targetFilePath As String
    Dim fd As FileDialog
    
    Set currentWb = ThisWorkbook
    
    ' 打开文件夹选择对话框，默认定位到当前工作簿的上级目录
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    With fd
        .Title = "选择存放同名文件的目标文件夹"
        .InitialFileName = Left(currentWb.Path, InStrRev(currentWb.Path, "\"))
        If .Show = -1 Then
            targetFolder = .SelectedItems(1)
        Else
            Exit Sub ' 用户取消选择，直接退出
        End If
    End With
    
    ' 拼接目标文件完整路径
    targetFilePath = targetFolder & "\" & currentWb.Name
    
    ' 检查并打开文件
    If Dir(targetFilePath) <> "" Then
        Workbooks.Open targetFilePath
    Else
        MsgBox "所选文件夹中未找到同名文件：" & currentWb.Name
    End If
End Sub

关键代码解释 #

• currentWb.Path：获取当前工作簿的存放路径（不含文件名，例如C:\User\Testing\A）。
• Left(currentWb.Path, InStrRev(currentWb.Path, "\"))：从当前路径中提取上级目录（例如C:\User\Testing\），InStrRev用于从右往左定位最后一个反斜杠的位置。
• Dir(targetFilePath)：检查目标路径下的文件是否存在，返回空字符串则表示文件不存在。

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