如何通过单元格输入文件名修改代码中引用的其他Excel工作簿名称？

很简单，咱们只需要两步就能搞定这个重复替换的麻烦事：

1. 定义变量并读取单元格S50的文件名 #

首先在你的VBA代码开头，添加一段代码来读取模板工作簿里S50单元格的内容，把它存到ol变量里。这里要注意指定是当前模板工作簿的单元格，避免读取错其他文件的内容：

' 声明变量存储目标文件名
Dim ol As String
' 从模板的指定工作表S50读取文件名，请把"Sheet1"替换成你实际的工作表名称
ol = ThisWorkbook.Sheets("Sheet1").Range("S50").Value

' 可选但推荐：添加检查，避免空值或找不到文件的错误
If ol = "" Then
    MsgBox "请先在S50单元格输入目标报告文件名！", vbExclamation
    Exit Sub
End If

' 如果S50只写了文件名没写路径，且目标文件和模板在同一个文件夹，可拼接路径：
' ol = ThisWorkbook.Path & "\" & ol

' 进一步检查文件是否存在，避免打开出错
If Dir(ol) = "" Then
    MsgBox "未找到目标文件：" & ol & vbCrLf & "请检查文件名或路径是否正确！", vbCritical
    Exit Sub
End If

2. 替换代码中所有硬编码的文件名 #

找到你代码里所有引用目标报告文件名的地方，把原来的硬编码字符串（比如"OldReport123.xlsx"）替换成变量ol就行。举几个常见场景的例子：

例子1：打开目标工作簿 #

原来的代码：

Set targetWB = Workbooks.Open("MonthlyReport_001.xlsx")

改成：

Set targetWB = Workbooks.Open(ol)

例子2：保存文件时指定文件名 #

原来的代码：

activeWB.SaveAs "FinalReport_001.xlsx"

改成：

activeWB.SaveAs ol

例子3：引用目标工作簿的工作表 #

原来的代码：

Set targetSheet = Workbooks("Q3InspectionReport.xlsx").Sheets("Data")

改成：

' 建议先把目标工作簿存到变量里（像例子1那样），再引用工作表，更稳定
Set targetWB = Workbooks.Open(ol)
Set targetSheet = targetWB.Sheets("Data")

最后提醒 #

• 确保S50单元格里的内容是完整的文件路径+文件名，比如C:\Reports\2024_Inspection_001.xlsx；如果目标文件和模板在同一个文件夹，只写文件名也可以，加上前面的路径拼接代码就行。
• 替换完所有硬编码的文件名后，运行代码前先在S50输入测试文件名，验证是否能正常运行，避免批量处理时出错。

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