Excel VBA如何实现无需表单的工作表选择弹窗？

完整修正并补充后的VBA代码 #

Sub Get_Data_From_File()
    Dim ItemFromFile As String
    Dim ImportWb As Workbook
    Dim i As Integer, Tabs As Integer
    Dim TabList() As String
    Dim listChoice As String
    Dim tempForm As Object
    Dim listBoxCtrl As Object
    
    ' 让用户选择目标Excel文件
    ItemFromFile = Application.GetOpenFilename("Excel Files, *.xls*", , "选择要导入的文件")
    If ItemFromFile = "False" Then Exit Sub ' 用户取消选择时直接退出
    
    ' 以只读模式打开目标工作簿
    Set ImportWb = Workbooks.Open(ItemFromFile, , True)
    
    ' 生成目标工作簿的工作表名称数组
    Tabs = ImportWb.Sheets.Count
    ReDim TabList(1 To Tabs)
    For i = 1 To Tabs
        TabList(i) = ImportWb.Sheets(i).Name
    Next i
    
    ' 动态创建临时UserForm
    Set tempForm = CreateObject("UserForm")
    With tempForm
        .Caption = "选择需要处理的工作表"
        .Width = 300
        .Height = 250
        .StartUpPosition = 2 ' 表单居中显示
    End With
    
    ' 向临时表单添加列表框控件
    Set listBoxCtrl = tempForm.Controls.Add("Forms.ListBox.1")
    With listBoxCtrl
        .Left = 20
        .Top = 20
        .Width = 250
        .Height = 180
        .List = TabList ' 将工作表名称数组加载到列表框
        .MultiSelect = fmMultiSelectSingle ' 设置为单选模式，如需多选改为fmMultiSelectMulti
    End With
    
    ' 添加确认按钮
    Dim btnOK As Object
    Set btnOK = tempForm.Controls.Add("Forms.CommandButton.1")
    With btnOK
        .Caption = "确认选择"
        .Left = 100
        .Top = 210
        .Width = 100
        .Height = 25
        .OnAction = "'GetSelectedSheet """ & tempForm.Name & """'"
    End With
    
    ' 显示表单，等待用户操作
    tempForm.Show vbModeless
    
    ' 循环等待用户关闭表单
    Do While tempForm.Visible
        DoEvents
    Loop
    
    ' 获取用户选择的工作表名称
    If listBoxCtrl.ListIndex <> -1 Then
        listChoice = listBoxCtrl.Value
    End If
    
    ' 清理临时对象
    Unload tempForm
    Set listBoxCtrl = Nothing
    Set tempForm = Nothing
    
    ' 关闭目标工作簿，不保存任何修改
    ImportWb.Close SaveChanges:=False
    
    ' 反馈用户选择结果
    If listChoice <> "" Then
        MsgBox ("你选择的工作表是: " & listChoice)
        ' 此处可添加对选中工作表的后续处理代码
    Else
        MsgBox "未选择任何工作表"
    End If
End Sub

' 确认按钮的点击事件处理
Sub GetSelectedSheet(formName As String)
    Dim targetForm As Object
    Set targetForm = UserForms(formName)
    targetForm.Hide
End Sub

关键说明 #

1. 动态表单创建：通过CreateObject("UserForm")生成临时表单，无需在工作簿中提前创建并保存表单对象，复制代码即可在任意工作簿中直接使用。
2. 原代码错误修正：修复了循环中变量使用错误（原代码用n而非i赋值数组），添加了用户取消文件选择的退出逻辑，避免代码报错。
3. 可扩展性：若需要支持多选工作表，只需将列表框的.MultiSelect属性改为fmMultiSelectMulti，并修改获取选择项的逻辑（遍历列表框的.Selected集合）。
4. 资源清理：操作完成后卸载临时表单并释放对象，避免内存占用。

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