【広告】Amazonから最大10%ポイントアップ新生活応援セー日開催中

memo

外出先からも書き込めるようにおいとります。

(完全にタダのメモ書きです^^;。)

ホームページへ戻る

[ No.50 ] ファイル名を書き出す 投稿者: 2003年02月20日 (木) 11時03分
まず、AAAフォルダ内のファイル名を書き出す

  II = 1
MyDir = Dir("AAA")
Do While MyDir <> ""
Cells(1, II) = MyDir
II = II + 1
MyDir = Dir()
Loop

次に、各ファイルを開いて、シート名を書き出す

I = 1
BFILE = ActiveWorkbook.Name
Do While Cells(1, I) <> ""
FNAME = Cells(1, I)
Workbooks.Open "AAA" & FNAME
For J = 1 To Workbooks(FNAME).Worksheets.Count
Workbooks(BFILE).Worksheets(1).Cells(J + 1, I) = Worksheet
s(J).Name
Next J
I = I + 1
Loop







このレスは下記の投稿への返信になります。内容が異なる場合はブラウザのバックにて戻ってください

名前
MAIL
URL
件名
内容
アイコン /アイコンURL
削除キー COOKIE
Number
Pass

ThinkPadを買おう!
レンタカーの回送ドライバー
【広告】Amazonから最大10%ポイントアップ新生活応援セー日開催中
無料で掲示板を作ろう   情報の外部送信について
このページを通報する 管理人へ連絡
SYSTEM BY せっかく掲示板