如何通过VBA的InputBox为变量分配工作簿名称以处理临时文件？

看起来你已经搞定了核心宏逻辑，也熟悉With语句的用法，那咱们直接聚焦在把InputBox输入的临时文件名绑定到对应工作簿这个关键环节，这样就能轻松操控那些tmp1、tmp2之类的临时报告文件了。

1. 用InputBox获取用户输入的临时文件名 #

先通过InputBox拿到用户输入的名称，同时做个简单的空值判断（防止用户点取消导致后续报错）：

Dim tempWBName As String
' 弹出输入框，提示用户输入临时文件名，默认值设为tmp1方便快速操作
tempWBName = InputBox("请输入临时文件名（如tmp1）：", "临时工作簿名称输入", "tmp1")

' 如果用户取消输入或留空，直接退出宏
If tempWBName = "" Then
    MsgBox "未输入有效文件名，操作已取消", vbInformation
    Exit Sub
End If

2. 验证并获取目标工作簿对象 #

要确保输入的文件确实是打开状态，这里分两种场景处理：

场景1：确定临时文件的后缀（比如都是.xlsx）

直接通过文件名+后缀获取工作簿，同时捕获不存在的情况：

Dim targetWB As Workbook
On Error Resume Next
' 替换成你的临时文件实际后缀，比如.xls/.xlsm
Set targetWB = Workbooks(tempWBName & ".xlsx")
On Error GoTo 0

' 如果找不到对应工作簿，提示用户
If targetWB Is Nothing Then
    MsgBox "找不到名为「" & tempWBName & "」的工作簿，请确认文件已打开！", vbExclamation
    Exit Sub
End If

场景2：不确定后缀或文件名可能带后缀输入

如果用户可能直接输入tmp1.xlsx，或者后缀不固定，可以遍历所有打开的工作簿匹配：

Dim targetWB As Workbook
Dim wb As Workbook

For Each wb In Workbooks
    ' 匹配文件名（去掉后缀后和输入一致）
    If Left(wb.Name, Len(tempWBName)) = tempWBName Or wb.Name = tempWBName Then
        Set targetWB = wb
        Exit For
    End If
Next wb

If targetWB Is Nothing Then
    MsgBox "找不到目标工作簿，请确认文件已打开！", vbExclamation
    Exit Sub
End If

3. 用With语句处理目标工作簿数据 #

现在你可以用熟悉的With语句，直接对绑定好的targetWB进行排序、复制等操作了，示例如下：

' 操作目标工作簿的「数据工作表」（替换成你实际要操作的工作表名）
With targetWB.Sheets("数据工作表")
    ' 示例1：按A列升序排序（表头行存在）
    .Range("A1:Z1000").Sort _
        Key1:=.Range("A1"), _
        Order1:=xlAscending, _
        Header:=xlYes
    
    ' 示例2：把数据复制到你的「程序工作簿」的Sheet1中
    .Range("A1:Z1000").Copy ThisWorkbook.Sheets("Sheet1").Range("A1")
End With

' 操作完成后提示用户
MsgBox "对「" & tempWBName & "」的处理已完成！", vbInformation

这里的ThisWorkbook指的就是你用来运行宏的那个"程序工作簿"，确保数据不会搞混。

小提示 #

• 可以给InputBox加默认值，比如上面代码里的"tmp1"，用户直接回车就能快速处理默认文件；
• 如果临时文件是刚生成的，也可以在生成时直接把文件名存到变量里，后续宏直接调用这个变量，省得手动输入。

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