请求修改Excel VBA代码：实现选中工作簿工作表列示及复制至主工作簿末尾

嗨，我来帮你搞定这个VBA代码的修改需求！原来的代码已经能实现选中工作簿并在主工作簿Sheet1的A列列出所有工作表名称，现在我把它扩展一下，同时把选中工作簿里的所有工作表都复制到主工作簿的最后面。

咱们先看修改后的完整代码，之后我再简单说下关键的修改点：

Sub SelectWorkbookAndListWorksheets()
    Dim dialogBox As FileDialog
    Set dialogBox = Application.FileDialog(msoFileDialogOpen)
    Dim sheet_name As String
    Dim sheet_count As Integer
    Dim i As Integer
    Dim targetWB As Workbook ' 新增：存储选中的目标工作簿
    Dim wsMain As Worksheet ' 新增：主工作簿的Sheet1
    Dim strPath As String
    Dim strName As String
    
    ' 初始化主工作簿的Sheet1对象
    Set wsMain = ThisWorkbook.Sheets(1)
    ' 清空Sheet1的A列旧数据（避免重复内容干扰）
    wsMain.Columns("A").ClearContents
    
    strPath = Application.ThisWorkbook.Path
    strName = Application.ThisWorkbook.Name
    
    With dialogBox
        .AllowMultiSelect = False
        .Title = "Browse & Select Workbook"
        .InitialFileName = "D:\"
        .Filters.Clear
        .Filters.Add "Excel workbooks", "*.xlsx;*.xlsm;*.xls" ' 补全常见Excel格式支持
        
        ' 如果用户选中了文件
        If .Show = -1 Then
            ' 以只读模式打开选中的工作簿，避免占用文件导致无法编辑
            Set targetWB = Workbooks.Open(Filename:=.SelectedItems(1), ReadOnly:=True)
            
            ' 在主工作簿Sheet1的A列列出所有工作表名称
            sheet_count = targetWB.Sheets.Count
            wsMain.Range("A1").Value = "工作表名称" ' 添加表头更清晰
            For i = 1 To sheet_count
                wsMain.Range("A" & i + 1).Value = targetWB.Sheets(i).Name
            Next i
            
            ' 复制所有工作表到主工作簿的最后位置
            targetWB.Sheets.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
            
            ' 关闭目标工作簿，不保存（因为是只读打开的）
            targetWB.Close SaveChanges:=False
            MsgBox "操作完成！已列出工作表名称并复制到主工作簿末尾。"
        Else
            MsgBox "你没有选择任何工作簿哦。"
        End If
    End With
    
    ' 释放对象变量，养成良好的VBA编程习惯
    Set dialogBox = Nothing
    Set targetWB = Nothing
    Set wsMain = Nothing
End Sub

关键修改说明： #

• 新增targetWB变量存储选中的目标工作簿，方便后续统一操作
• 初始化wsMain指向主工作簿Sheet1，同时清空A列旧数据，避免多次运行后内容混乱
• 补全了Excel文件格式筛选，支持xlsx、xlsm、xls这些常用格式
• 用只读模式打开目标工作簿，避免占用文件导致其他操作冲突
• 新增复制工作表的核心代码targetWB.Sheets.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)，直接把所有工作表复制到主工作簿末尾
• 操作完成后弹出提示框，让你直观知道结果，同时关闭目标工作簿避免残留
• 最后释放所有对象变量，减少内存占用

备注：内容来源于stack exchange，提问作者Shuaib Dawe