ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "新文件名", FileFormat:=xlExcel8 3)另存为另一个名称的xlsx(默认格式)的工作簿 ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "新文件名", FileFormat:=xlWorkbookNormal 4)另存为PDF格式(可使用PDF阅读器打开,格式不失真) Act...
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "新文件名", FileFormat:=xlOpenXMLWorkbookMacroEnabled 2)另存为早期的xls的工作簿(Excel 2002 2003等) ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "新文件名", FileFormat:=xlExcel8 3)另存为另一个名称的xlsx(默认格式)的...
在VBA中，可以使用WorkBook.SaveAs命令将工作簿保存为不同的格式，包括xlsx。但请注意，这样做会丢失VBA代码，因为xlsx格式不支持宏。示例代码：ThisWorkbook.SaveAs Filename:="C:PathToYourFile.xlsx", FileFormat:=xlOpenXMLWorkbook（其中xlOpenXMLWorkbook表示xlsx格式）。注意事项：当将包含...
1. 直接SaveThisWorkbook.Save()，相当于手动点击保存按钮，工作簿将覆盖原文件。无需指定文件格式，适用于常规保存。2. SaveAs另存为新文件ThisWorkbook.SaveAs(FileName, FileFormat, Password等参数)。参数包括文件名、文件格式和可能的密码。例如，可以保存为Excel 2003的xls格式：ActiveWorkbook.SaveAs(...
另存为xlsx的工作簿 ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "文件名", FileFormat:=xlWorkbookNormal 另存为xls的工作簿 'ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "文件名", FileFormat:=xlExcel8 另存为PDF ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, File...
VBA代码详解 【基础转换代码】以下是一段高效的 VBA 代码，能够轻松地将指定文件夹中的所有 .xls 文件一键转换为 .xlsx 格式：Sub xls2xlsx() Dim iPath As String Dim filePath As String Dim wb As Workbook '显示文件夹选择对话框 With Application .FileDialog(msoFileDialogFolderPicker...
ActiveWorkbook.SaveAs FileName:=FilePath, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False Workbooks(MyFile).Close True Application.ScreenUpdating = True MyFile = Dir Loop While MyFile <> ""End If End Sub ```此VBA代码旨在将指定文件夹中的所有.xls文件批量转换为.xlsx格式。它首先检查目标文件夹...
使用方法：ThisWorkbook.SaveCopyAs。特点：保存工作簿的副本，不关闭原工作簿。适合需要继续编辑原工作簿但同时又需要保存当前状态为副本的情况。XlFileFormat文件格式列表：xlExcel8：Excel 2003格式。xlCSV：CSV格式，纯文本格式，用于数据交换。xlExcelWorkbookMacroEnabled：带宏的xlsx格式，支持VBA宏。xl...
ActiveWorkbook.SaveAs Filename:=myPath & "数据.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False End Sub 此代码将使用活动工作簿的路径来设置文件夹路径，然后使用该路径来读取文件夹中的文本文件，并将其转换为Excel工作簿，并将结果保存为新的Excel文件。请确保“新建文件夹\txt文档”路径在您的...