|
こんにちは。
最近エクセルのマクロを始めた者です。
ブック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"
|
|