创建一个新工作簿VBA

nnsea

Sub WbAdd()
    Dim Wb As Workbook, sht As Worksheet
    Set Wb = Workbooks.Add
    Set sht = Wb.Worksheets(1)
    With sht
        .Name = "花名册"
        .Range("A1:F1") = Array("序号", "姓名", "性别", "出生年月", "参加工作时间", "备注")
    End With
    Wb.SaveAs Filename:="E:\1_temp\excel VBA\employees.xls"
    ActiveWorkbook.Close
End Sub