[已解决]在VBA中如何统计出打开的EXCEL的文件个数及当前活动的工作簿打开序号

向前650809

各位网友好，如果打开了多个EXCEL文件（工作簿），如何利用VBA代码统计出打开的工作簿个数，并获取当前活动的工作簿打开序号，以便进行有关操作（如关闭当前活动工作簿）。代码如何写出。
请指导，谢谢

最佳答案

月排行榜 / 总排行榜

JLxiangwei

2012-11-17 13:00

Sub 计数()
    Dim Num As Integer
    Dim wb As Workbook
    Dim d As New Dictionary
    For Each wb In Application.Workbooks
        Num = Num + 1
        d.Add wb.Name, Num
    Next
    MsgBox "一共有" & Num & "工作薄" & Chr(10) _
    & "当前工作薄名称：" & ActiveWorkbook.Name & Chr(10) _
    & "序号为:" & d(ActiveWorkbook.Name)
End Sub
新建 Microsoft Excel 工作表.zip (15.62 KB, 下载次数: 53)

2012-11-17 13:03 上传

点击文件名下载附件
试试看

跳转到最佳答案楼层

JLxiangwei

Sub 计数()
    Dim Num As Integer
    Dim wb As Workbook
    Dim d As New Dictionary
    For Each wb In Application.Workbooks
        Num = Num + 1
        d.Add wb.Name, Num
    Next
    MsgBox "一共有" & Num & "工作薄" & Chr(10) _
    & "当前工作薄名称：" & ActiveWorkbook.Name & Chr(10) _
    & "序号为:" & d(ActiveWorkbook.Name)
End Sub
新建 Microsoft Excel 工作表.zip (15.62 KB, 下载次数: 53)

2012-11-17 13:03 上传

点击文件名下载附件
试试看

向前650809

Dictionary
是何意

qq8945051

支持楼主谢谢分享。。。。。。