当前位置：首页 > news >正文

【VBA编程】09.使用Excle集合对象

news 来源：原创 2024/5/8 15:57:59

使用Workbooks工作簿集合、工作簿对象、工作表集合、工作表对象，并且观察使用Add方法前后工作簿与工作表数目的变化

【代码区域】

Sub 测试集合工作簿()
    Dim wbs As Workbooks '保存工作簿集合
    Dim wb As Workbook   '保存工作簿对象
    Dim ws As Worksheet  '保存工作表对象
    Dim wbscount As Integer '保存工作簿集合中对象数目
    Dim wscount As Integer  '保存工作表集合中的对象数目
    Dim i As Integer
    Set wbs = Application.Workbooks '获取当前工作簿数目
    wbscount = wbs.Count '获取工作簿集合中的元素
    Debug.Print
    Debug.Print "添加工作簿之前，工作簿的数目为：" & 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 "添加工作簿之后，工作簿的数目为：" & 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 "添加工作簿之后集合中的第二个成员为：" & wb.Name
    wsscount = wb.Sheets.Count
    For i = 1 To 2
      Debug.Print
    Next
    Debug.Print "添加工作表之前，工作簿的数目为：" & 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 "添加工作表之后集合中的第一个成员为 ：" & ws.Name
    wsscount = wb.Worksheets.Count
    For i = 1 To 2
        Debug.Print
    Next
    Debug.Print "添加工作表之后，工作表的数目为：" & wbscount
    Debug.Print "添加后前各工作簿名称如下：";
     For Each temp In wb.Worksheets
        Debug.Print temp.Name & " ";
    Next
End Sub

【场景描述】

已经打开的工作表

【立即窗口】

立即窗口打印结果

添加工作簿之前，工作簿的数目为：1
添加前各工作簿名称如下：VBA.xlsm 

添加工作簿之后，工作簿的数目为：2
添加后各工作簿名称如下：VBA.xlsm 工作簿1 

添加工作簿之后集合中的第二个成员为：工作簿1


添加工作表之前，工作簿的数目为：2
添加前各工作表名称如下：Sheet1 

添加工作表之后集合中的第一个成员为 ：Sheet2


添加工作表之后，工作表的数目为：2
添加后前各工作簿名称如下：Sheet2 Sheet1

【结果展示】