[[20100424142537]] 『シートの一覧を取得』(じろう) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『シートの一覧を取得』(じろう)

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

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

 環境
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

 (独覚)

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

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

(DELった)


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

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

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.