ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "新文件名", FileFormat:=xlWorkbookNormal 4)另存为PDF格式(可使用PDF阅读器打开,格式不失真) ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "新文件名" 5) 另存为CSV格式 ActiveWorkbook.SaveAs Filen...
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:=xlWorkbookNormal 另存为xls的工作簿 'ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "文件名", FileFormat:=xlExcel8 另存为PDF ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Pat...
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Name & "副本.xlsm" End If Saved属性 如果在保存之后又对工作簿进行了修改,那么该属性返回True。其语法为: Workbook对象.Saved 如果想要关闭修改过的工作簿而不保存修改或者出现保存修改的提示,那么可以将该属性设置为...
ActiveWorkbook.SaveAs Filename:= NewFile, _ FileFormat:=xlNormal, _ Password:="", _ WriteResPassword:="", _ ReadOnlyRecommended:=False, _ CreateBackup:=False We have to close new file and open the origin workbook: SetActBook = ActiveWorkbook ...
1 新建一个Excel文件并保存。打开VBE,可以用快捷键<Alt+F11>.VBE的介绍可以参照下面的链接后者百度下找找。2 新建一个模块,输入下面的代码。Sub SaveAsMacroEnable() Dim OldFileName As String OldFileName = Left(ThisWorkbook.FullName, InStr(ThisWorkbook.FullName, ".") - 1) ActiveWorkbook.SaveAs...
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\book1234.xls"ActiveWorkbook.Close SaveChanges:=True Exit Sub 100:ActiveWorkbook.Close False End Sub 代码解析:MyArrSheetCopy过程将“Sheet1”和“Sheet2”工作表单独保存为一个工作簿文件。第4行代码使用SaveAs方法保存活动工作簿。下面我们看看三种方法的...
1. 使用VBA代码保存 打开VBA编辑器:在Excel中按下Alt+F11组合键。插入模块:在“插入”菜单中选择“模块”。粘贴代码:在新打开的模块窗口中粘贴以下代码,并根据需要修改路径和文件名。vbaSub 保存文件 ActiveWorkbook.SaveAs Filename:="指定路径文件名.xlsx"End Sub例如,保存到本地的D盘某个文件...
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 you use the SAVE AS...
ActiveWorkbook.SaveAsFilename:=strNewWBName ActiveWorkbook.Close SaveChanges:=False Next wks End Sub 本文为原创文章,转载请注明出处。 欢迎在下面留言,完善本文内容,让更多的人学到更完美的知识。 欢迎关注[完美Excel]微信公众号: 方法1—在微信通讯录...