VBA - Note

目次はこちら

あんまり得意じゃないしすぐに忘れるのでちょいちょいメモ。
おもにネットで探したやつに少しだけ追加したりとか。
そのままの場合もありますけど・・・

シート名取得

ファイルを指定してそのファイルのシート名を取得する
※一覧を書きだす先のシートで実行すること。
※そうしないと上書きされちゃうので。

Sub シート名取得()

Dim OpenFileName As String
Dim i As Long, wb As Worksheet

OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
If OpenFileName <> "False" Then
Workbooks.Open OpenFileName
Else
MsgBox "キャンセルされました"
End If

i = 1
For Each wb In ActiveWorkbook.Worksheets
ThisWorkbook.Worksheets("Shname").Range("A" & i).Value = wb.Name
i = i + 1
Next

End Sub