2、ThisWorkbook.SaveAs ' 另存为工作簿 把当前工作簿另存为一份新的工作簿 Workbook对象的SaveAs方法使用另外一个文件名保存对工作簿所做的更改,语法如下: SaveAs(FileName,FileFormat,Password,WriteResPassword,ReadOnlyRecommended,CreateBackup,AccessMode,ConflictResolution,AddToMru,TextCodepage,TextVisualLayout,Lo...
2、ThisWorkbook.SaveAs ' 另存为工作簿 把当前工作簿另存为一份新的工作簿 Workbook对象的SaveAs方法使用另外一个文件名保存对工作簿所做的更改,语法如下: SaveAs(FileName,FileFormat,Password,WriteResPassword,ReadOnlyRecommended,CreateBackup,AccessMode,ConflictResolution,AddToMru,TextCodepage,TextVisualLayout,Lo...
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "文件名", FileFormat:=xlWorkbookNormal 另存为xls的工作簿 'ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "文件名", FileFormat:=xlExcel8 另存为PDF ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Pat...
使用VBA将Excel文件另存为其他类型，e.g. xlsm 工具/原料 Excel 方法/步骤 1 新建一个Excel文件并保存。打开VBE，可以用快捷键<Alt+F11>.VBE的介绍可以参照下面的链接后者百度下找找。2 新建一个模块，输入下面的代码。Sub SaveAsMacroEnable() Dim OldFileName As String OldFileName = Left(ThisWorkbook....
```vba Sub SaveSheetsAsSeparateFiles() Dim ws As Worksheet Dim filePath As String Dim fileName As String Dim directory As String Dim savePath As String Dim errorMessage As String Dim errorNumber As Integer Dim saveType As Integer' 设置保存路径和文件名格式...
Sub MySaveAsWork()ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\book123.xls"End Sub 代码解析：MySaveAsWork过程将代码所在的工作簿保存为“book123”工作簿文件。如果要保存为指定的文件名，可以使用INPUTBOX,弹出对话框，让使用者录入一个文件名后再保存。三：如果用户希望工作簿在保存为另一文件名后...
save as是另存。1.如图所示，出现如图的对话框，点击否。2.选择Excel保存的类型，点击Excel启用宏的工作簿.xlsm。3.打开Excel，点击开发工具——宏，这时就能发现ExcelVBA被保存了。4.点击执行，就能执行录制的宏代码了，效果如图所示。5.当然也可以通过文件——另存为——文件格式为启用宏的工作簿....
ExportAsFixedFormat _Type:=xlTypePDF, _Filename:="myPDF", _Quality:=xlQualityStandard, _IncludeDocProperties:=False, _IgnorePrintAreas:=False, _From:=1, To:=5, _OpenAfterPublish:=True End Sub 本节内容参考程序文件：Chapter04-6.xlsm 我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
本问所有资料来自于 Excel2003 VBA帮助文件,张荣整理,适用于DELPHI,VB的高级语言操作Excel用 ExcelApplication.WorkBook.SaveAs(filename,FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodePage, TextVisualLayout ,Local) ...