[ 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
|
|