新建工作簿新建工作表并对它们命名

向前650809

在VBA中，新建一工作簿，在新建的工作簿中新建一工作表，并对新建的工作簿工作表命名，操作后保存关闭工作簿，代码如何写，请指导，谢谢

zjdh

Sub TEST()
    With Workbooks.Add
        .Sheets(1).Name = "工作表1"   '对第一个工作表命名
        .SaveAs Filename:="D:\新建工作表.xlsx" '保存工作簿到 D 盘
    End With
End Sub