ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式

根据您提供的VBA代码，您可以使用`FileFormat:=xlWorkbookNormal`来将工作簿另存为Excel的默认格式。这将确保工作簿以Excel默认的格式进行保存。

以下是修改后的VBA代码示例：

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

请注意，`xlNormal`是Excel中的常量，表示普通文本文件格式，而`xlWorkbookNormal`是另一个常量，表示Excel的默认文件格式。通过使用`FileFormat:=xlWorkbookNormal`，您可以将工作簿保存为Excel的默认格式。

相关问题

vba中函数”ActiveWorkbook.SaveAs Filename:=“怎么使用

VBA中的`ActiveWorkbook.SaveAs`函数用于将当前活动的工作簿保存为指定的文件名和格式。具体用法如下：

ActiveWorkbook.SaveAs Filename:=文件名, FileFormat:=文件格式

其中，参数`Filename`表示要保存的文件名，可以是完整的路径和文件名，也可以只是文件名。如果只是文件名，则默认保存在当前工作目录下。例如：

ActiveWorkbook.SaveAs Filename:="test.xlsx"

以上代码表示将当前工作簿保存为名为“test.xlsx”的文件，并保存在当前工作目录下。

参数`FileFormat`表示要保存的文件格式，可以是Excel支持的任意格式。例如：

ActiveWorkbook.SaveAs Filename:="test.pdf", FileFormat:=xlPDF

以上代码表示将当前工作簿保存为名为“test.pdf”的PDF文件。

需要注意的是，`SaveAs`函数会将当前工作簿的保存路径和文件名修改为指定的值，因此需要确保在调用该函数之前已经保存了当前工作簿的修改，否则可能会出现数据丢失的情况。

ActiveWorkbook.SaveAs Filename:="D:\Mark++Pro-7核\printxm0.ini", FileFormat:= _ xlText, CreateBackup:=False '保存printxm0.ini文件，提示是否覆盖'

在这个代码中，`SaveAs` 方法指定了文件名和文件格式来保存当前工作簿，其中 `Filename` 参数指定了保存的文件路径和文件名，`FileFormat` 参数指定了保存的文件格式，`CreateBackup` 参数指定了是否创建备份文件。如果指定的文件已经存在，Excel 会弹出一个提示框询问是否覆盖该文件。如果你想避免覆盖文件时的提示框，可以添加一个 `ConflictResolution` 参数，将它的值设置为常量 `xlLocalSessionChanges`，代码如下：

ActiveWorkbook.SaveAs Filename:="D:\Mark++Pro-7核\printxm0.ini", FileFormat:=xlText, CreateBackup:=False, ConflictResolution:=xlLocalSessionChanges

这样设置后，如果文件已经存在，Excel 会将当前工作簿保存到一个新的文件名，并保留原文件不变。