VBA 创建一个工作簿

一、代码

Sub test()
    Dim wb As Workbook, sht As Worksheet    '定义一个Workbook对象和一个Worksheet对象
    Set wb = Workbooks.Add                  '新建一个工作簿
    Set sht = wb.Worksheets(1)
    
    With sht
        .Name = "另存工资表"                '修改第一张工作表的标签名称
        .Range("A1:F1") = Array("序号", "姓名", "部门", "职位", "基本工资", "实际到账")     '设置表头
    End With
    
    wb.SaveAs ThisWorkbook.Path & "\另存工资表.xls"     '保存新建的工作表到本工作簿所在的文件夹中
    ActiveWorkbook.Close                                '关闭新建的工作簿
    
End Sub

二、运行结果