別ブックのシート名称一覧を作成したい

質問

excel2016

自ブックの中でシート名一覧作成というマクロはwebにあったのですが、
他ブックのシート名一覧を自ブックへ作成というのを
どの様に対応したらよいのかがわかりません。

やりたい内容は、
①自ブックを開く(シート収集するファイル）
②file_openマクロ実行
　c:\workにあるfile.xlsmのブックを開く(file.xlsmが他ブック）
③file.xlsmの全シート名称一覧を
　自ブックのsheet1シートのA1セルから下へシート名称記載させる。
　file.xlsmに登録されているシート名称は日付と時刻と時刻
　202110070830
202110071700
　…
みたいな12桁のシート名称になっている
③自ブックsheet1のB1からB列最終行（A列にデータがある最終行）
　まで必要なセルに1を設定
④自ブックB列でセルに1があれば、他ブックの対象シートを自ブック
　へコピー

以上①～④をマクロで対応したいのですが
③の内容がわからないのでベタでマクロ教えていただきたく、よろしくお願いします。

回答No.1

kkkkkm · ベストアンサー

> ③自ブックsheet1のB1からB列最終行（A列にデータがある最終行）
> 　まで必要なセルに1を設定

何を基準に必要か否かを判断するのかわからないので全て1にしてコピーします。

Sub Test()
Dim wb As Workbook
Dim ws As Worksheet
Dim strDir As String
Dim strFile As String
Dim i As Long

strDir = "C:\work\"
strFile = "file.xlsm"
Set wb = Workbooks.Open(strDir & strFile)
i = 1
For Each ws In wb.Worksheets
With ThisWorkbook
.Sheets("Sheet1").Cells(i, "A").Value = ws.Name
.Sheets("Sheet1").Cells(i, "B").Value = 1
If .Sheets("Sheet1").Cells(i, "B").Value = 1 Then
ws.Copy Before:=.Sheets(.Sheets.Count)
End If
End With
i = i + 1
Next
wb.Close Savechanges:=False
Set wb = Nothing
End Sub

お礼

ありがとうございます。
ばっちりでした。

こんなに早く助かりました。(^^♪