|
Blueさん、Keinさん、ハチさん
お返事ありがとうございます♪
Blueさん:
>XXXXX_1.xls
>XXXXX_2.xls
>XXXXX_3.xls
>
>とあったら XXXXX_4.xls としたいということでしょうか?
はい。その通りです。
>そのとき、欠番は考慮するのでしょうか?
考慮していませんが、基本的には欠番は発生しないはずなのです。
Keinさん:
>With Application.FileSearch
> .LookIn = SvF
> .FileType = msoFileTypeExcelWorkbooks
> Fnum = .FoundFiles.Count + 1
> End With
これはフォルダ内のファイル数をカウントしているのでしょうか?
フォルダAにはブックA以外にも
ブックAA、ブックAAAなる異なるデータのファイルも存在するので、
フォルダBにはブックB、ブックCとブックAからの抽出データファイル以外にも
ブックBB,ブックCCやブックBBB,ブックCCCなどと、フォルダAのブックA以外の
ブックからの抽出も保存されてきます。
そのブック毎の抽出データに番号を振りたいのです。
ハチさん:
マクロは多数の人が使う為、アドインにする予定となっており、
ブックA自体にはマクロは入れません。
ですが、ハチさんのおっしゃる、「どこかのセルに番号を入れておく」
というのが初心者の私には一番簡単なのかな?という気がしています。
>With ThisWorkbook.Worksheets(1)
> Do Until Dir(MyPath & "\" & MyBook & "_" & .Range("A1").Value & ".xls") = ""
> .Range("A1").Value = .Range("A1").Value + 1
> Loop
ですが、私にはなぜループをさせているのかが、分かりません。(ごめんなさい。)
フォルダ内に同一ファイルの重複がないようにしているのでしょうか?
皆様:
本当にありがとうございます。
「こんなこと、できないよ〜!」とがっくりきてましたが、
できそうな気がしてきて、嬉しくなってきました。
皆様からのヒントをもとに試行錯誤してみます。
またつまづいたら、書き込ませていただきますので、
そのときは教えてくださると助かります。
よろしくおねがいします (^o^)/
|
|