Sub 測(cè)試集合工作簿()
    Dim wbs As Workbooks '保存工作簿集合
    Dim wb As Workbook   '保存工作簿對(duì)象
    Dim ws As Worksheet  '保存工作表對(duì)象
    Dim wbscount As Integer '保存工作簿集合中對(duì)象數(shù)目
    Dim wscount As Integer  '保存工作表集合中的對(duì)象數(shù)目
    Dim i As Integer
    Set wbs = Application.Workbooks '獲取當(dāng)前工作簿數(shù)目
    wbscount = wbs.Count '獲取工作簿集合中的元素
    Debug.Print
    Debug.Print '添加工作簿之前,，工作簿的數(shù)目為：' & wbscount
    Debug.Print '添加前各工作簿名稱如下：';
    For Each temp In wbs
        Debug.Print temp.Name & ' ';
    Next
    wbs.Add               '向工作表中添加元素
    wbscount = wbs.Count
    For i = 1 To 2        '換行
        Debug.Print
    Next
     Debug.Print '添加工作簿之后，工作簿的數(shù)目為：' & wbscount
     Debug.Print '添加后各工作簿名稱如下：';
    For Each temp In wbs
        Debug.Print temp.Name & ' ';
    Next
    Set wb = Workbooks(2)
    wb.Activate
    For i = 1 To 2
        Debug.Print
    Next
    Debug.Print '添加工作簿之后集合中的第二個(gè)成員為：' & wb.Name
    wsscount = wb.Sheets.Count
    For i = 1 To 2
      Debug.Print
    Next
    Debug.Print '添加工作表之前,，工作簿的數(shù)目為：' & wbscount
    Debug.Print '添加前各工作表名稱如下：';
    For Each temp In wb.Worksheets
        Debug.Print temp.Name & ' ';
    Next
    wb.Worksheets.Add
    Set ws = wb.Worksheets(1)
    For i = 1 To 2
        Debug.Print
    Next
    Debug.Print '添加工作表之后集合中的第一個(gè)成員為 ：' & ws.Name
    wsscount = wb.Worksheets.Count
    For i = 1 To 2
        Debug.Print
    Next
    Debug.Print '添加工作表之后,，工作表的數(shù)目為：' & wbscount
    Debug.Print '添加后前各工作簿名稱如下：';
     For Each temp In wb.Worksheets
        Debug.Print temp.Name & ' ';
    Next
End Sub

添加工作簿之前,，工作簿的數(shù)目為：1
添加前各工作簿名稱如下：VBA.xlsm 

添加工作簿之后，工作簿的數(shù)目為：2
添加后各工作簿名稱如下：VBA.xlsm 工作簿1 

添加工作簿之后集合中的第二個(gè)成員為：工作簿1


添加工作表之前,，工作簿的數(shù)目為：2
添加前各工作表名稱如下：Sheet1 

添加工作表之后集合中的第一個(gè)成員為 ：Sheet2


添加工作表之后,，工作表的數(shù)目為：2
添加后前各工作簿名稱如下：Sheet2 Sheet1