vba ブック間でシート名のコピーをするには

質問

始めまして、よろしくお願いします。
excel vba 初心者のものです。

2つのブックがあり同時に開いている状態です。1つのブックはデータがあります。
もう1つは空のブックです。

データのあるブックのシートには、
シート1のシート名は「8月1日」
シート2のシート名は「8月2日」
シート3のシート名は「8月4日」
シート4のシート名は「8月5日」
シート5のシート名は「Sheet1」

やりたいこと
データ、シート名があるブックから、
空ブックのシートにシート名をコピーしてきてセルに貼り付けたいです。
シートに名前を付けてるシート数は不規則なので「Sheet1」まで来たら終了したいです。

どうぞご教授の程よろしくお願い申し上げます。

回答No.2

keithin · ベストアンサー

sub macro1()
　dim wb1 as workbook
　dim w2 as worksheet
　dim i as long

’２つのブックは既に開いている事
　set wb1 = workbooks("オリジナルブック.xlsm")　’拡張子まで正しく指定する事
　set w2 = workbooks("貼り付け先ブック.xlsx").worksheets(1)　’同上

’準備
　w2.range("A:A").clearcontents
　w2.range("A:A").numberformat = "@"
　w2.range("A1") = "シート名一覧"

’転記
　for i = 1 to wb1.worksheets.count
　if wb1.worksheets(i).name = "Sheet1" then exit for
　w2.range("A65536").end(xlup).offset(1) = wb1.worksheets(i).name
　next
end sub

お礼

ありがとうございます。
うまく動作しました。

回答No.1

keithin

sub macro1()
　dim wb1 as workbook
　dim wb2 as workbook
　dim i as long

’２つのブックは既に開いている事
　set wb1 = workbooks("オリジナルブック.xlsm")　’拡張子まで正しく指定する事
　set wb2 = workbooks("貼り付け先ブック.xlsx")　’同上

’準備
　wb2.worksheets("シート名").range("A:A").clearcontents
　wb2.worksheets("シート名").range("A:A").numberformat = "@"
　wb2.worksheets("シート名").range("A1") = "シート名一覧"

’転記
　for i = 1 to wb1.worksheets.count
　if wb1.worksheets(i).name = "Sheet1" then exit for
　wb2.worksheets("シート名").range("A65536").end(xlup).offset(1) = wb1.worksheets(i).name
　next
end sub

補足

回答ありがとうございます。
補足させて頂きます。
シート名ですが、特定できてる訳ではありません。毎回、シート名が違います。

毎回違うシート名を取得できたら理想的なんですが、可能でしょうか？