Excel合并工作簿的第一个sheet，并按照工作簿命名sheet

需求：可以将多个工作簿的第一个sheet合并到一个工作簿中，并且每一个sheet的名字用工作簿来命名。

Sub 合并工作簿sheet()
    sPath = Excel.ThisWorkbook.Path
    Set x = Application.FileDialog(msoFileDialogFilePicker)
    Application.ScreenUpdating = False
    With x
        .AllowMultiSelect = True
        '.ButtonName = "请选择"
        '.Title = "xxx"
        .InitialFileName = sPath
        If .Show = 0 Then Exit Sub
        Application.ScreenUpdating = False
        For Each file In .SelectedItems
            Filename = split0(file, -1, "\")
            Set 原始表 = Workbooks.Open(file)
            原始表.Sheets(1).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
            原始表.Close savechanges:=False
            'ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = Replace(file.Name, "")
            For Each 符号 In Array("""", "*", "<", ">", "?", "\", "/", "|", ":", "[", "]", ".xlsx", ".xls")
                If InStr(Filename, 符号) Then
                    Filename = Replace(File