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

質問

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

回答No.5

Wendy02

こんにちは。

#3の回答者です。たぶん、マクロは、これからも勉強されるのなら、一つ別の方法も紹介しておきます。

インスタンスを設ける方法です。
ただし、二重のインスタンスは、同じものがぶつからないようにしてください。
Application は、Application だけにしてください。

'-------------------------------------------
'Class1

Public WithEvents App As Application
'ベース名
Private Const BASENAME As String = "AAA"

Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
　　Cancel = True
　　Application.EnableEvents = False
　　If Not Wb.Name Like "*.*" Then
　　　　Application.Dialogs(xlDialogSaveAs).Show BASENAME, 1
　　Else
　　　　Cancel = False
　　End If
　　Application.EnableEvents = True
End Sub
Private Sub Class_Terminate()
　Set App = Nothing
End Sub

'-------------------------------------------
'標準モジュール
Public myClass As New Class1
Sub Auto_Open()
　Set myClass.App = Application
End Sub

お礼

Wendy02様、ご回答ありがとうございます。
また、こちらのお返事が遅くなりまして、申し訳ありません。
現段階で、本職の業務が忙しくなってしまい、VBAの検討について
中途の状態で止まってしまっております。
まだ、現段階で課題をクリアできていませんが、サンプル
コードを基にスキルアップしていきたく思っております。
今回の質問については、一度これにて閉じさせていただきます。
毎回、質問のたびにご回答頂き、誠に感謝しております。
ありがとうございます。