2、ThisWorkbook.SaveAs ' 另存为工作簿 把当前工作簿另存为一份新的工作簿 Workbook对象的SaveAs方法使用另外一个文件名保存对工作簿所做的更改,语法如下: SaveAs(FileName,FileFormat,Password,WriteResPassword,ReadOnlyRecommended,CreateBackup,AccessMode,ConflictResolution,AddToMru,TextCodepage,TextVisualLayout,Lo...
Worksheets(Array("Sheet1", "Sheet2")).Copy ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\book1234.xls"ActiveWorkbook.Close SaveChanges:=True Exit Sub 100:ActiveWorkbook.Close False End Sub 代码解析：MyArrSheetCopy过程将“Sheet1”和“Sheet2”工作表单独保存为一个工作簿文件。第4行代码使用S...
save as是另存。1.如图所示，出现如图的对话框，点击否。2.选择Excel保存的类型，点击Excel启用宏的工作簿.xlsm。3.打开Excel，点击开发工具——宏，这时就能发现ExcelVBA被保存了。4.点击执行，就能执行录制的宏代码了，效果如图所示。5.当然也可以通过文件——另存为——文件格式为启用宏的工作簿.xl...
PrivateSubSaveWorkbookAsNewFile(NewFileNameAsString)DimActSheetAsWorksheetDimActBookAsWorkbookDimCurrentFileAsStringDimNewFileTypeAsStringDimNewFileAsStringApplication.ScreenUpdating =False' Prevents screen refreshing.CurrentFile = ThisWorkbook.FullName NewFileType ="Excel Files 1997-2003 (*.xls), *.xls,"&...
使用VBA将Excel文件另存为其他类型，e.g. xlsm 工具/原料 Excel 方法/步骤 1 新建一个Excel文件并保存。打开VBE，可以用快捷键<Alt+F11>.VBE的介绍可以参照下面的链接后者百度下找找。2 新建一个模块，输入下面的代码。Sub SaveAsMacroEnable() Dim OldFileName As String OldFileName = Left(ThisWorkbook....
A1:这有可能是因为你在调用函数的时候,传入的sheet变量没有提前定义,注意需要提前执行Dim sheet As Worksheet,工作表指针必须提前定义,不能直接使用 set赋值 Q2: 我按照Q1的写好代码了,为什么我运行的时候还是提示“应用程序定义或对象定义错误 ” ? A2:这有可能是因为你没有开启vba信任,开启方法如下: 点击“文件...
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "文件名", FileFormat:=xlWorkbookNormal 另存为xls的工作簿 'ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "文件名", FileFormat:=xlExcel8 另存为PDF ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Pat...
VB 复制 Set NewBook = Workbooks.Add Do fName = Application.GetSaveAsFilename Loop Until fName <> False NewBook.SaveAs Filename:=fName 支持和反馈 有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。反馈...
Dim file As Object Dim folderPath As String Dim filePath As String Dim NewFileName As String Dim i As Integer Dim fd As FileDialog Dim newSheet As Worksheet Dim temp As String Dim strFolderPath As String Dim fileNumber As Integer Dim splitData() As String Dim TempStr As String Dim wb ...
Sub save_as_file() ActiveWorkbook.SaveAs _ Filename:="C:UsersDellDesktopmyNewBook" End Sub In the above code, you have the path in the FileName argument and VBA uses that path to the file. Note:You can also use this method to check if a workbook exists in a folder or not before...