Excel VBA質問箱 IV

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

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


40641 / 76732 ←次へ | 前へ→

【41185】ファイル名のオートナンバー
質問  もとあし  - 06/8/1(火) 16:37 -

引用なし
パスワード
   こんにちは。
最近エクセルのマクロを始めた者です。

ブックAから必要な部分のみブックBに抽出し、ブックBをブックAの入っているフォルダと同じ階層の別フォルダ内に保存したいのですが、保存の際のファイル名で悩んでいます。

ブックAより異なる抽出条件でブックB、ブックCと出来てくるので、「ブックAのファイル名」+「オートナンバー」のような形にしたいのです。

下記記述の保存ファイル名は、オートナンバーではなく「/」を省いた日付を最後に持ってくるようにしていますが、できましたらオートナンバーのようにしたいのです。

例えば、保存先フォルダ内の似通ったファイル名の末尾の最終番号を見つけて、ファイル名に指定するなどという方法、もしくはもっと良い方法はあるのでしょうか?

分かる方がいらっしゃれば教えていただければと思います。
よろしくお願いします。


Dim MyPath As String
Dim MyBook As String

MyPath = Replace(ActiveWorkbook.Path, "フォルダA", "フォルダB")
MyBook = Replace(ActiveWorkbook.Name, ".xls", "")

Workbooks("ブックB").SaveAs Filename:=MyPath & "\" & MyBook & "_" & Year(Date) & Month(Date) & Day(Date) & ".xls"

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 お礼

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