Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


40614 / 76732 ←次へ | 前へ→

【41213】Re:ファイル名のオートナンバー
お礼  もとあし  - 06/8/2(水) 9:39 -

引用なし
パスワード
   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^)/

0 hits

【41185】ファイル名のオートナンバー もとあし 06/8/1(火) 16:37 質問
【41188】Re:ファイル名のオートナンバー Blue 06/8/1(火) 17:01 質問
【41189】Re:ファイル名のオートナンバー Kein 06/8/1(火) 17:07 回答
【41197】Re:ファイル名のオートナンバー ハチ 06/8/1(火) 17:54 発言
【41213】Re:ファイル名のオートナンバー もとあし 06/8/2(水) 9:39 お礼
【41223】Re:ファイル名のオートナンバー ハチ 06/8/2(水) 12:50 発言
【41226】Re:ファイル名のオートナンバー もとあし 06/8/2(水) 14:46 お礼

40614 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free