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

向未打開的工作簿錄入數(shù)據(jù)

Sub WbInput()
    Dim wb As String, xrow As Integer, arr  '定義 arr 變量的類型是Variant'
    wb = "E:\1_temp\excel VBA\employees.xls"
    Workbooks.Open (wb)
    With ActiveWorkbook.Worksheets(1)
        xrow = .Range("A1").CurrentRegion.Rows.Count + 1 '.Count 獲取行號'
        arr = Array(xrow - 1, "Arye", "Female", #7/8/1987#, "2010")
        .Cells(xrow, 1).Resize(1, 6) = arr
    End With
    ActiveWorkbook.Close savechanges:=True
End Sub

批量創(chuàng)建新工作表

Sub AddSheet()
    Dim wb_class As Workbook, sht As Worksheet
    Dim i As Integer
    i = 2
    
    Set wb_class = Application.Workbooks.Open("E:\1_temp\excel VBA\class.xls")  '打開工作簿'
    Set sht = wb_class.Worksheets(1)  '引用工作表'
    
    Do While sht.Cells(1, "A") <> ""
        Worksheets.Add after:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = sht.Cells(i, "A").Value
        i = i + 1
    Loop
End Sub