[[20100424142537]]　『シートの一覧を取得』（じろう）　ページの最後に飛ぶ

『シートの一覧を取得』（じろう）

 シートの一覧を取得したいのですが、簡単に取得する方法はないでしょうか？

 メニューから「ファイル」＝＞「プロパティ」の「ファイルの構成」タブの
内容を全て選択して、コピーできればいいのですが、それはできないので
よい方法があったら、教えてください。

 環境
Windows XP Pro SP2
Excel 2002

 マクロになります。

 Sub test()
   Dim i As Integer
   Dim ws_cnt As Integer

   ws_cnt = Worksheets.Count
   Worksheets.Add after:=Worksheets(ws_cnt)
   ActiveSheet.Name = "シート一覧"
   For i = 1 To ws_cnt
     Cells(i, 1).Value = Worksheets(i).Name
   Next i

 End Sub
　
（純丸）(o^-')b

 こちらではマルチポストは容認されていますがQ&Aサロンでは禁止されています。
 なお、マルチポスト先での私の回答は削除しておきました。

http://excelfactory.net/excelboard/exgeneral/excel.cgi?mode=all&namber=104983&rev=0

 (独覚)

こちらが参考になると思います

https://www.excel.studio-kazu.jp/kw/20050905144450.html

(DELった)

 Q&Aさろんに質問されているprogmanさんの話によるとこちらの書き込みはprogmanさんによるものではないそうです。

 つまり、じろう氏がprogmanさんの書き込みを勝手にコピーしてこちらに張り付けたもののようです。
 (独覚)

コメント返信：

[ 一覧(最新更新順) ]

[[20100424142537]] 『シートの一覧を取得』（じろう） ページの最後に飛ぶ

[[20100424142537]]　『シートの一覧を取得』（じろう）　ページの最後に飛ぶ