我需要将支持选项卡/工作表复制到正在使用的活动工作簿。我希望用户能够使用VBA文件对话框，能够选择一个文件，在此文件中的选项卡显示在用户窗体中，并让用户选择哪些选项卡复制/移动到活动工作簿。下面是我拥有的最接近的代码，但此代码仅列出活动工作簿中所选工作表的工作表名称。你能帮帮我吗

Dim FilePicker As FileDialog
    Dim mypath As String
    Dim sheet_name As String
    Dim sheet_count As Integer
    Dim i As Integer
    Dim ws As Worksheet
    Dim i As Integer, sht As String, arr() As String, n As Long

    Application.ScreenUpdating = False

    Set ws = ThisWorkbook.Sheets(1)
    Set FilePicker = Application.FileDialog(msoFileDialogFilePicker)
    With FilePicker
    .Title = "Please Select a File"
    .ButtonName = "Confirm"
    .AllowMultiSelect = False
    If .Show = -1 Then
    mypath = .SelectedItems(1)
    Else
    End
    End If
    End With

    End Sub

Private Sub CommandButton1_Click()
    Dim i As Integer, sht As String, arr() As String, n As Long
   
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            ReDim Preserve arr(n)
            arr(n) = ListBox1.List(i)
            n = n + 1
        End If
    Next i
    Sheets(arr).Copy
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    With ListBox1
        For sh = 1 To Sheets.Count
            .AddItem ActiveWorkbook.Sheets(sh).Name
        Next sh
        .MultiSelect = 1
    End With
End Sub

字符串
我尝试在用户窗体中使用此代码，但它不能将所选工作簿中的选项卡拉到用户窗体中。我只是得到一个没有任何选项卡显示的空白用户表单。