求教：excel拆分工作簿拆出未知文件类型

0橙留香0

比如一个excel中有4个工作簿，如下所示：


利用代码进行拆分，代码如下：（代码来源于网络）
Private Sub 分拆工作表()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为
ActiveWorkbook.Close
Next
MsgBox "文件已经被分拆!"
End Sub

拆出来的工作簿如下所示，可以看出工作簿名称中包含“.”的拆出来格式有错误。



要求：在不改变命名的情况下，将工作簿拆成excel格式。注：不是拆成错误格式后重新手动修改格式为excel。

请问如何修改代码或者其他操作来完成

f8b1987

FileFormat:=51

lele6809

ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name & ".xlsx", FileFormat:=xlOpenXMLWorkbook

0橙留香0

lele6809 发表于 2021-7-27 16:54
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name & ".xlsx", FileFormat:=xlOpenXMLWorkboo ...

问题已解决，非常感谢您的帮助。