エクセル2003VBA 新規ブックを作成、保存の時に

質問

いつも勉強させていただいております。
今回、VBAで以下の事をできるのかな？と思い質問させていただきました。
まず、VBAで以下の動作を作成しました。
Aファイル、データーベースCSVファイル
Bファイル、VBA記述ファイル
１）Bファイルから、Aファイルを開いて、検索、条件に合うデーター
を配列で抽出。
2)新規ブックを追加
3)新規ブックに抽出したデーターを書き出し
と言うVBAを作成しました。
で、質問なのですが、新規ブックは保存するか、しないかがその時々に
よって任意でするため、VBAで保存の所までは作成していないのですが
、保存する場合、ファイル名に規則性を持たせたいため、ファイル保存
をしたときに表示させる初期ファイル名をBファイルのVBAから変更
させる事はできるのでしょうか？
新規ブックを保存するとき、初期ファイル名は「Book1.xls」となって
いると思うのですが、この値を変更することってできますでしょうか？
もし可能であれば、ヒントや参考になるHPなど教えていただけないで
しょうか。

回答No.4

noname#52504 · ベストアンサー

ご質問の趣旨を取り違えていましたらすみません。

・自動保存はしない(保存するか否か、事前にはわからない）
・手動で[名前を付けて保存]しようとした場合に
　ダイアログで表示されるファイル名を指定したい。　

ということですよね。

●Ａ案：新規ブックを作成する際、まずテンプレを作り、それから作成する

　ちょっとトリッキーですが、手軽な近似案として。

　動作の概要
　　"ほにゃららX"という名前の新規ブックを作成する(Xは連番)

　Ｂファイル(VBA記述ファイル)上に記述して、
　新規ブック作成時に動作させることを想定しています。
　連番がついてしまう点に目をつぶれば、ご要望に近い動作かと思います。

　'----------↓ココカラ↓----------
　Sub Sample()
　　myStr = "ほにゃらら" & ".xlt"
　　Workbooks.Add.SaveAs myStr
　　Workbooks.Add myStr
　　Kill myStr
　End Sub
　'----------↑ココマデ↑----------

●Ｂ案：新規作成するブックにイベントドリブンマクロを仕込む

　「マクロでマクロをいじる」のはいろいろと微妙な問題が絡むので、、
　あらかじめマクロを記述したブックをテンプレとして用意しておき、
　そのテンプレから新規ブックを作成するのが簡単かと思います。

　マクロは
　・新規ブックを作成してファイル名を渡すマクロ：Ｂ１
　　※Bファイル(VBA記述ファイル)側
　・保存のタイミングを捉えてダイアログを制御するマクロ：Ｂ２
　　※テンプレ＝新規ブック側
　に分かれます。

　ファイル名の渡し方については、
　隠しセル，名前，DocumentProperty等いろいろ考えられますが、
　とりあえず例として、ブックのプロパティの[タイトル]を使いました。

　動作の概要（Ｂ１）
　　[C:\myBook.xlt]から、マクロ付き新規ブックを作成し、
　　ファイルのプロパティ[タイトル]にファイル名を記述する。

　↓Ｂファイル(VBA記述ファイル)上に記述して新規ブック作成時に動作させる
　'-------------------↓Ｂ１ココカラ↓-------------------
　Sub Sample2()
　　myStr = "ほにゃらら"
　　Set mybook = Workbooks.Add("C:\myBook.xlt")
　　mybook.BuiltinDocumentProperties("Title") = myStr
　End Sub
　'-------------------↑Ｂ１ココマデ↑-------------------

　動作の概要（Ｂ２）
　　[名前をつけて保存]しようとしたら、
　　[タイトルプロパティに記述されている文字列]をファイル名としてダイアログを開く。

　↓これをThisWorkbookモジュールに記述したテンプレートを、
　myBook.xlt(拡張子に注意)という名前でCドライブルート直下に用意しておく。
　'--------------------------↓Ｂ２ココカラ↓--------------------------
　Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
　　If SaveAsUI Then
　　　Cancel = True
　　　myStr = ThisWorkbook.BuiltinDocumentProperties("Title")
　　　With Application
　　　　.EnableEvents = False
　　　　.Dialogs(xlDialogSaveAs).Show myStr
　　　　.EnableEvents = True
　　　End With
　　End If
　End Sub
　'--------------------------↑Ｂ２ココマデ↑--------------------------

もっとスマートな方法がありそうな気もしますが、とりあえずご参考まで。

お礼

deus_ex_machina様、ご回答ありがとうございました。
今回のコードを試行錯誤している間に本職の業務の方が
多忙となってしまい、課題に取り組めていないのが現状で
あります。
ただ、サンプルコードをテストして、解決の糸口が見えて
来ている状態であります。
今後、更に皆様のコードを試行錯誤行いながら、望むもの
を作って行きたいと思っております。
ご回答頂き、誠にありがとうございます。

補足

deus_ex_machina様、ご回答ありがとうございます。
趣旨の点については、ご返答いただいた通りであります。
まだ、サンプルコードの方は現時点でテストできていませんので
この後、コードを試して行きたいと思います。
まずは、お礼申し上げます。
皆様のコードをこれから試して、理解していきたいと思いますの
で、少しお時間をいただきたく思います。
ありがとうございます