ブックの一覧を取得する　 次の文書

Dim i
Dim ブック名
Sub ブックの一覧を取得する()
ブック名 = ""
For i = 1 To Workbooks.Count
ブック名 = ブック名 & i & ". " & Workbooks(i).Name & vbCrLf
Next i
MsgBox "現在開いているブックは、" & vbCrLf & ブック名, vbInformation
End Sub

　



← 左の文字をここへ入力後 登録ボタンをクリックしてください

(サイト管理者承認後掲載されます)