如何通过两次弹窗在同一Workbook中打开两文件并分存至Sheet1、Sheet2

没问题！既然你的文件存放在不同路径下，两次单独的文件选择弹窗确实是最便捷的方式。下面是基于单文件打开功能修改后的代码，它会依次弹出两次文件选择对话框，分别将选中的文件数据加载到当前工作簿的Sheet1和Sheet2中：

Sub OpenTwoFilesToSheets()
    Dim fileDialog As FileDialog
    Dim selectedFile As String
    Dim sourceWorkbook As Workbook
    
    ' 第一次弹窗：选择要加载到Sheet1的文件
    Set fileDialog = Application.FileDialog(msoFileDialogFilePicker)
    With fileDialog
        .Title = "选择要加载到Sheet1的文件"
        .Filters.Clear
        .Filters.Add "Excel文件", "*.xlsx; *.xls; *.xlsm"
        .AllowMultiSelect = False
        If .Show = -1 Then
            selectedFile = .SelectedItems(1)
            ' 打开源文件并复制数据到Sheet1
            Set sourceWorkbook = Workbooks.Open(selectedFile)
            sourceWorkbook.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets("Sheet1").Range("A1")
            sourceWorkbook.Close SaveChanges:=False
        Else
            MsgBox "未选择Sheet1的文件，操作取消"
            Exit Sub
        End If
    End With
    
    ' 第二次弹窗：选择要加载到Sheet2的文件
    Set fileDialog = Application.FileDialog(msoFileDialogFilePicker)
    With fileDialog
        .Title = "选择要加载到Sheet2的文件"
        .Filters.Clear
        .Filters.Add "Excel文件", "*.xlsx; *.xls; *.xlsm"
        .AllowMultiSelect = False
        If .Show = -1 Then
            selectedFile = .SelectedItems(1)
            ' 打开源文件并复制数据到Sheet2
            Set sourceWorkbook = Workbooks.Open(selectedFile)
            sourceWorkbook.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets("Sheet2").Range("A1")
            sourceWorkbook.Close SaveChanges:=False
            MsgBox "两个文件已成功加载到Sheet1和Sheet2！"
        Else
            MsgBox "未选择Sheet2的文件，操作取消"
            Exit Sub
        End If
    End With
End Sub

关键说明： #

• 两次独立的FileDialog弹窗分别对应Sheet1和Sheet2的文件选择，标题明确区分，避免混淆
• 仅允许选择单个Excel文件（.AllowMultiSelect = False），符合你需要的两次选择逻辑
• 复制源文件的已使用区域（UsedRange）到目标工作表的A1单元格，确保所有数据都被导入
• 源文件打开后会自动关闭且不保存更改，避免留下多余的打开窗口
• 加入了取消选择时的提示，提升操作友好性

可选优化： #

• 如果需要清空Sheet1/Sheet2原有数据，可以在复制前添加ThisWorkbook.Sheets("Sheet1").Cells.Clear
• 若要指定源文件的特定工作表（而非默认第一个），可将sourceWorkbook.Sheets(1)改为sourceWorkbook.Sheets("你的工作表名")

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