excel2000マクロでのダイアログ表示での実行

質問

下記のマクロを実行させると、 ActiveWorkbook.SaveAs Filename:= の所で保存しますか
というダイアログが表示されて、はい又はいいえを押さないと次のマクロが実行されないのですが、ダイアログを表示させないで、はいを押したと自動認識して次のマクロを走らせる方法はありますか？

ChDir "C:\Documents and Settings\kenkan\デスクトップ\DB\SYSTEM\Inner_System"
Workbooks.Open Filename:= _
"C:\Documents and Settings\kenkan\デスクトップ\DB\SYSTEM\Inner_System\一時出力データ.csv"

' その他の疾患を抽出
Columns("H:H").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Cells.Replace What:="", Replacement:=" ", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Application.CutCopyMode = False

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\kenkan\デスクトップ\DB\SYSTEM\Inner_System\一時出力_その他の疾患.txt" _
, FileFormat:=xlText, CreateBackup:=False
ActiveWindow.Close

回答No.1

ta123 · ベストアンサー

以下の命令をSaveAsの前後に入れてください。詳しくはVBAのヘルプを参照してください。

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= ・・・
Application.DisplayAlerts = True