VBA需求：将手动输入工作表名改为下拉列表选择并复制整表

以下是修改后的完整代码，实现你要求的文件选择→工作表下拉选择→复制整张工作表的流程：

Sub ImportData()
    Dim wb As Workbook, FileSelected As String
    Dim selectedSheetName As String
    Dim wsSrc As Worksheet
    Dim tempForm As Object, listBox As Object
    
    Application.ScreenUpdating = False
    
    ' 1. 弹窗选择文件
    With Application.FileDialog(msoFileDialogOpen)
         .Title = "选择目标文件"
         .AllowMultiSelect = False
         If .Show <> -1 Then Exit Sub
         FileSelected = .SelectedItems(1)
    End With
    
    ' 打开选中的工作簿
    Set wb = Workbooks.Open(FileSelected)
    
    ' 2. 创建临时窗体和下拉列表
    Set tempForm = CreateObject("VBA.UserForm")
    tempForm.Caption = "选择工作表"
    tempForm.Width = 300
    tempForm.Height = 250
    
    Set listBox = tempForm.Controls.Add("Forms.ListBox.1")
    listBox.Name = "SheetList"
    listBox.Left = 20
    listBox.Top = 20
    listBox.Width = 260
    listBox.Height = 180
    listBox.MultiSelect = fmMultiSelectSingle ' 只允许单选
    
    ' 填充工作表名到下拉列表
    Dim ws As Worksheet
    For Each ws In wb.Worksheets
        listBox.AddItem ws.Name
    Next ws
    
    ' 添加确认按钮
    Dim btnOK As Object
    Set btnOK = tempForm.Controls.Add("Forms.CommandButton.1")
    btnOK.Caption = "确认选择"
    btnOK.Left = 100
    btnOK.Top = 210
    btnOK.Width = 100
    btnOK.Height = 25
    
    ' 绑定按钮点击事件
    btnOK.OnAction = "'GetSelectedSheet """ & tempForm.Name & """, """ & listBox.Name & """'"
    
    ' 显示窗体
    tempForm.Show
    
    ' 获取用户选择的工作表名
    selectedSheetName = tempForm.Controls("SheetList").Value
    Unload tempForm
    
    ' 3. 复制选中的工作表到当前工作簿
    If selectedSheetName <> "" Then
        Set wsSrc = wb.Worksheets(selectedSheetName)
        ' 复制整张工作表到当前工作簿末尾
        wsSrc.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        MsgBox "工作表 '" & selectedSheetName & "' 已成功复制！"
    Else
        MsgBox "未选择任何工作表"
    End If
    
    ' 关闭源工作簿
    wb.Close SaveChanges:=False
    Application.ScreenUpdating = True
End Sub

' 辅助函数：处理按钮点击事件
Sub GetSelectedSheet(formName As String, listBoxName As String)
    Dim tempForm As Object
    Set tempForm = UserForms(formName)
    ' 关闭窗体
    tempForm.Hide
End Sub

关键修改说明 #

• 动态创建临时窗体：无需手动在VBA编辑器添加UserForm，代码自动生成带下拉列表和确认按钮的弹窗，避免额外窗体维护。
• 完整工作表列表：遍历选中工作簿的所有工作表，将名称填充到下拉列表，确保选项无遗漏。
• 整张表复制：替换原有的区域复制逻辑，直接复制整个工作表到当前工作簿的最后位置，匹配“复制整张工作表”的需求。
• 异常提示：若用户未选择工作表直接关闭窗体，会弹出提示避免后续报错。

使用注意事项 #

1. 运行前需确保文件已启用宏；
2. 若目标文件有保护设置，需先解除保护才能正常复制工作表。

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