Microsoft Excel VBA 输出文件夹内全部Excel内的sheet

问题场景

简述：
打开Summary.xlsm的文件，需要在此写一个VBA程序，读取一个指定文件夹的全部Excel，每个Excel的名称都变成Summary.xlsm的sheet名称，然后输入每个Excel的sheet名称到A列内（第一个单元格是列名"SheetsName"）。

---

代码描述

1. 获取指定文件夹中的所有Excel文件。
2. 对于每个Excel文件：
   • 创建一个新的sheet工作表，以文件名（不带扩展名）命名。
   • 在新工作表的A列中列出该Excel文件中的所有工作表名称。

Sub ListSheets()
    Dim FileSystem As Object
    Dim Folder As Object
    Dim File As Object
    Dim SourceWorkbook As Workbook
    Dim SourceSheet As Worksheet
    Dim wbCheck As Workbook
    Dim wsSummary As Worksheet
    Dim NewSheet As Worksheet
    
    Dim FolderPath As String
    Dim FileName As String
    Dim FileNameCell As Range
    Dim SheetNameCell As Range
    Dim i As Integer
    Dim SheetIndex As Integer

    ' 设置要扫描的文件夹路径
    FolderPath = "C:\Folder\Path" '