Dim strName As String Dim strNewName As String Dim i As Integer strName = "test3" i = 0 Set wbNewWorkbook = Workbooks.Add strNewName = strName Do While blnFileExists(strNewName & ".xls*") i = i + 1 strNewName = strName & i Loop wb...
2、ThisWorkbook.SaveAs ' 另存为工作簿 把当前工作簿另存为一份新的工作簿 Workbook对象的SaveAs方法使用另外一个文件名保存对工作簿所做的更改,语法如下: SaveAs(FileName,FileFormat,Password,WriteResPassword,ReadOnlyRecommended,CreateBackup,AccessMode,ConflictResolution,AddToMru,TextCodepage,TextVisualLayout,Lo...
2、我们使用alt+f11组合快捷键进入vbe编辑器,插入一个新的模块,并在模块中输入以下代码: Sub AddSaveAsNewWorkbook() Dim Wk As Workbook Set Wk = Workbooks.Add Application.DisplayAlerts = False Wk.SaveAs Filename:="D:/SalesData.xls" End Sub 3、工作薄是workbook是一个对象,所以我们定义一个变量wk...
1 首先我们打开一个工作样表作为例子。2 我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Sub AddSaveAsNewWorkbook()Dim Wk As WorkbookSet Wk = Workbooks.AddApplication.DisplayAlerts = FalseWk.SaveAs Filename:="D:/SalesData.xls"End Sub 3 工作薄是workbook是一个...
SetNewBook = Workbooks.AddDofName = Application.GetSaveAsFilenameLoopUntilfName <>FalseNewBook.SaveAs Filename:=fName 支持和反馈 有关于 Office VBA 或本文档的疑问或反馈? 请参阅Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。
fileFilter:=NewFileType) And now save file as new Workbook: ActiveWorkbook.SaveAs Filename:= NewFile, _ FileFormat:=xlNormal, _ Password:="", _ WriteResPassword:="", _ ReadOnlyRecommended:=False, _ CreateBackup:=False We have to close new file and open the origin workbook: ...
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...
expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local) 具体参数含义可参看VBA帮助,使用都比较简单。 示例 本示例新建一个工作簿,提示用户输入文件名,然后保存该工作簿。
Wk.SaveAs Filename:="D:/SalesData.xls" End Sub 示例说明:本示例使用了Add 方法和SaveAs 方法,添加一个新工作簿并将该工作簿以文 件名SalesData.xls保存在D 盘中。其中,语句Application.DisplayAlerts = False表示禁止 弹出警告对话框。 ExcelVBA>>ExcelVBA编程入门范例>>第三章Workbook对象(fanjy) ...
在代码窗口中，输入以下VBA代码来创建新的Excel文件：vba 复制Sub CreateNewExcelFile()Dim newWorkbook As Workbook Set newWorkbook = Workbooks.Add ' 在新工作簿中进行其他操作 ' ...' 保存新工作簿 newWorkbook.SaveAs "C:\路径\文件名.xlsx" ' 将路径和文件名替换为您想要保存的位置和名称 ...