VBA，如何新建工作簿并命名

2025-02-14 06:56:57

推荐回答（3个）

回答1：

参考代码如下：
Sub test()
Dim iFile As String
iFile = ThisWorkbook.Path & "\" & "命名.xls"
Workbooks.Add
ActiveWorkbook.SaveAs iFile, True
MsgBox "新建Excel工作薄完成," & vbCrLf & "完整路径及名称:" & vbCrLf & iFile
End Sub

回答2：

通过记录宏的方式得到下面这个代码。
Sub Macro1()
' Macro1 Macro
Workbooks.Add

ActiveWorkbook.SaveAs Filename:="C:\Users\Think\Documents\myfile.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
End Sub

注：要学习vba编程，这个记录宏功能要好好利用。

回答3：

添加工作表后直接改名：
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "90"