ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "新文件名", FileFormat:=xlExcel8 3)另存为另一个名称的xlsx(默认格式)的工作簿 ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "新文件名", FileFormat:=xlWorkbookN
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "新文件名", FileFormat:=xlCSV 三、附 XlFileFormat 枚举 (Excel) 指定保存工作表时的文件格式。 名称 值 说明 扩展名 xlAddIn 18 Microsoft Excel 97-2003 外接程序 *.xla xlAddIn8 18 Microsoft Excel 97-2003 外接程序 *.xla xlCSV 6 ...
使用方法：ThisWorkbook.SaveCopyAs。特点：保存工作簿的副本，不关闭原工作簿。适合需要继续编辑原工作簿但同时又需要保存当前状态为副本的情况。XlFileFormat文件格式列表：xlExcel8：Excel 2003格式。xlCSV：CSV格式，纯文本格式，用于数据交换。xlExcelWorkbookMacroEnabled：带宏的xlsx格式，支持VBA宏。xlWork...
1. 直接SaveThisWorkbook.Save()，相当于手动点击保存按钮，工作簿将覆盖原文件。无需指定文件格式，适用于常规保存。2. SaveAs另存为新文件ThisWorkbook.SaveAs(FileName, FileFormat, Password等参数)。参数包括文件名、文件格式和可能的密码。例如，可以保存为Excel 2003的xls格式：ActiveWorkbook.SaveAs(...
下面是一些常见的 FileFormat 参数值: 1. xlOpenXMLWorkbook:以XLSX格式保存工作簿(Excel 2007或更高版本)。 2. xlExcel12:以XLSM格式保存启用宏的工作簿(Excel 2007或更高版本)。 3. xlExcel8:以XLS格式保存工作簿(Excel 97-2003版本)。 4. xlCSV:以CSV(逗号分隔值)格式保存工作簿。 5. xlText:以纯...
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "文件名", FileFormat:=xlWorkbookNormal 另存为xls的工作簿 'ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "文件名", FileFormat:=xlExcel8 另存为PDF ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Pat...
FileFormat:=xlExcel8 这里是指定导出的格式,常见格式如下: xlAddIn 18 Microsoft Office Excel 加载项 xlAddIn8 18 Excel 2007 加载项 xlCSV 6 CSV xlCSVMac 22 Macintosh CSV xlCSVMSDOS 24 MSDOS CSV xlCSVWindows 23 Windows CSV xlCurrentPlatformText -4158 当前平台文本 ...
ActiveWorkbook.SaveAs Filename:=path & "\" & saveFile & ".xls", FileFormat:=xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False ActiveWorkbook.Close End Sub '在保存的事件里面调用 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean...
FileFormat:= _' xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _' , CreateBackup:=False'ActiveWindow.Close' Windows("政企全网VPN用户23日.xls").Activate' Sheets(2).Select' Range("B1").SelectEnd Function[/code]其实你的问题很简单，希望你稍微仔细...
ActiveWorkbook.SaveAs filename:=Fname, FileFormat:=xlExcel8 End If Workbooks("" & Fname & ".xls").Sheets("Sheet1").Select Workbooks("" & Fname & ".xls").Sheets("Sheet1").Cells.Select Selection.ClearContents Dim K1 As String