VBA技术问题：无法将选中工作簿的工作表加载至用户窗体并复制到活动工作簿

问题根源 #

1. 原UserForm_Initialize事件默认读取当前活动工作簿的工作表，而非选中的外部文件
2. 文件选择完成后未打开目标工作簿，也未将其工作表名传递到列表框
3. 存在重复变量定义、未声明变量等语法问题

修正后的完整代码 #

1. 标准模块中的启动宏

Sub SelectExternalWorksheets()
    Dim FilePicker As FileDialog
    Dim myPath As String
    Dim targetWB As Workbook
    Dim userFormInstance As UserForm1 ' 替换为你的用户窗体实际名称

    Application.ScreenUpdating = False
    Set FilePicker = Application.FileDialog(msoFileDialogFilePicker)

    With FilePicker
        .Title = "请选择目标工作簿"
        .ButtonName = "确认"
        .AllowMultiSelect = False
        .Filters.Add "Excel文件", "*.xlsx;*.xlsm;*.xls" ' 限制仅选择Excel格式文件
        If .Show = -1 Then
            myPath = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With

    ' 隐藏打开目标工作簿，避免界面干扰
    Set targetWB = Workbooks.Open(Filename:=myPath, Visible:=False)

    ' 初始化用户窗体并传递必要信息
    Set userFormInstance = New UserForm1
    userFormInstance.targetFilePath = myPath
    With userFormInstance.ListBox1
        .Clear
        .MultiSelect = fmMultiSelectMulti
        Dim ws As Worksheet
        For Each ws In targetWB.Worksheets
            .AddItem ws.Name
        Next ws
    End With

    ' 临时工作簿用完即关，不保存
    targetWB.Close SaveChanges:=False
    Application.ScreenUpdating = True

    ' 显示用户窗体供选择
    userFormInstance.Show
End Sub

2. 用户窗体（UserForm1）中的代码

Public targetFilePath As String ' 存储目标文件路径的公共变量

Private Sub CommandButton1_Click()
    Dim selectedSheets() As String
    Dim n As Long
    Dim i As Integer

    ' 收集用户勾选的工作表名称
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            ReDim Preserve selectedSheets(n)
            selectedSheets(n) = ListBox1.List(i)
            n = n + 1
        End If
    Next i

    ' 复制选中的工作表到当前活动工作簿
    If n > 0 Then
        Dim targetWB As Workbook
        Set targetWB = Workbooks.Open(Filename:=targetFilePath, Visible:=False)
        targetWB.Sheets(selectedSheets).Copy After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
        targetWB.Close SaveChanges:=False
    End If

    Unload Me
End Sub

关键修正说明 #

• 隐藏加载外部文件：用Visible:=False打开目标工作簿，避免界面闪烁，操作完成后直接关闭
• 传递文件路径：通过公共变量将选中文件的路径传递给用户窗体，确保复制时能正确找到目标文件
• 规范变量声明：所有变量显式声明，避免未声明变量导致的逻辑错误
• 文件类型过滤：添加Excel格式过滤器，防止用户选择错误类型的文件

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