如何使用UserForm从所选工作簿中选择工作表

Sub SelectWorksheet()
    Dim ws As Worksheet
    Dim frm As UserForm
    
    ' 创建 UserForm
    Set frm = New UserForm
    
    ' 设置 UserForm 的属性
    With frm
        .Caption = "选择工作表"
        .Width = 300
        .Height = 200
    End With
    
    ' 添加一个列表框控件到 UserForm
    With frm.Controls.Add("Forms.ListBox.1")
        .Left = 10
        .Top = 10
        .Width = 280
        .Height = 150
        
        ' 填充列表框控件的选项
        For Each ws In ThisWorkbook.Worksheets
            .AddItem ws.Name
        Next ws
    End With
    
    ' 添加一个确定按钮到 UserForm
    With frm.Controls.Add("Forms.CommandButton.1")
        .Caption = "确定"
        .Left = 110
        .Top = 170
        .Width = 80
        .Height = 20
        
        ' 设置按钮的点击事件
        With frm.CodeModule
            .InsertLines .CountOfLines + 1, "Private Sub CommandButton1_Click()"
            .InsertLines .CountOfLines + 1, "    Dim selectedSheet As String"
            .InsertLines .CountOfLines + 1, "    selectedSheet = ListBox1.Value"
            .InsertLines .CountOfLines + 1, "    MsgBox ""您选择了 "" & selectedSheet & "" 工作表。"""
            .InsertLines .CountOfLines + 1, "    Unload Me"
            .InsertLines .CountOfLines + 1, "End Sub"
        End With
    End With
    
    ' 显示 UserForm
    frm.Show
End Sub