[[20080609155543]]　『PC上で使用しているブックやシート』（take）　ページの最後に飛ぶ

『PC上で使用しているブックやシート』（take）

PC上で使用されているブックをすべて取得したい。
また、各ブックごとにどんなシートが存在するのかを取得したい。

どのように記述すればすべてのブックやシートを取得することが可能
でしょうか。
ご存知の方、ご教授お願い致します。

ちなみにEXCELバージョンは2000、
OSバージョンはXPと98です。

 大変な作業になるかも・・・。

 ここは手作業
 Windowsの検索機能で、
 ファイル名に
 .xls
 が付くものを検索

 見つかったアイテムを全選択
 ↓
 右クリック
 ↓
 ショートカットの作成

 でショートカットを作成し、全てのショートカットを一つのフォルダに
 格納

 ここからＶＢＡ
 ショートカットからリンク先のパスを取得
 ↓
 取得したパスのブックを開きループでシート名を取得していく

 あるいは、
 ＶＢＡで回帰処理で全ての階層のフォルダの中の拡張子が".xls"のものを取得
 取得したファイルを開き、↑と同様にシート名を取得していく

 (MARBIN)

MARBIN様　ご回答ありがとうございます。

出来ればVBAで一発処理って可能にならないでしょうか。

 ボタンを1回クリックで処理、というのは出来ますが、
 各工程を記述していくのには変わりありません。

 Sub ボタン1_Click()
  工程1
  工程2
  ・
  ・
  ・

 End Sub
 (MARBIN)

 参考ＨＰです。

 特定のフォルダ以下の再帰処理
 ↓
 フォルダ内のファイル一覧の取得 
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_080.html

 フォルダ内のブックの処理
 ↓
 フォルダ内のワークブックを順次処理する。
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_120.html

 ブック内の各シートの処理
 ↓
 開いているブックの一覧の取得
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_010_020.html

 トップページはこちら。
http://www.asahi-net.or.jp/~ef2o-inue/top01.html
 (MARBIN)

コメント返信：