VBA 活頁簿(Workbooks)管理 @ Edison.X. Blog :: 痞客邦 PIXNET ::

' 查看目前開啟excel檔案數量 Dim OpenCnt as Integer OpenCnt = Application.Workbooks.Count ' ' 依序查已開檔名 - 方法一 Dim i As Integer For i = 1 To Workbooks.Count MsgBox i & " " & Workbooks(i).Name

edisonx.pixnet.net