名前を付けて保存ダイアログを表示

Ｅｘｃｅｌで作った元帳ソフトを更に改良しようと頑張ってみた・・・が

〆罫線を入れてルーズリーフに印刷までは・・・完成していたのだが・・・

印刷後に、そのデータを別のフォルダーに名前を付けて保存までさせようとやってみた・・・が・・・

小生の知識では・・・何処かでバグってしまう・・・のだ・・・



そこで、完全自動は・・・あきらめましたぁ～！

結局、

　　　　　　印刷後に下の様な表示を出し⇒⇒⇒ＯＫボタンをクリックすれば・・・

　　　　　　“名前を付けて保存ダイアログ”を表示させ⇒⇒⇒そこでフォルダーを選んで保存する

命令文字は以下の簡単な方法にしてしまいましたぁ・・・

Sub
　If MsgBox("印刷は終わりました【総勘定元帳保存】フォルダに保存して下さい！　　　　　　名前を付けて保存ダイアログを開きます！", vbOKCancel, "データの保存の確認") = vbOK Then
　　Application.Dialogs(xlDialogSaveAs).Show
　End If
End Sub


これでも少しは、手間が省ける・・・又、追々考えるとしよう・・・