EXCEL確認メッセージを出さずに保存したい

質問

恐れ入りますが、ご教示お願い致します。

質問(1)
EXCELファイルを
(1)特定の名前で
(2)CSVファイルにして
保存をしたいと考えています。次のマクロを書いたところ、”CSVへの変更を保存しますか？”確認メッセージがでます。

確認メッセージを出さずに、保存するためには、どのように記述したらよいでしょうか？

With ActiveWorkbook
.SaveAs Filename:=Mypath & "\" & Mybook & MYsireal, FileFormat:=xlCSV
.Close
End With

(2)改行するためにはどうしたらよいでしょうか？
.SaveAs Filename:=Mypath & "\" & Mybook & MYsireal, FileFormat:=xlCSV
を、次のように改行させたいのです。
.SaveAs Filename:=Mypath & "\" & Mybook & MYsireal,
　　　　 FileFormat:=xlCSV

_　を使うということを、なんとなく覚えておりますが、うまくいきません。注意点等をご教示頂ければと思います。

以上　よろしくお願い致します。

回答No.1

hana-hana3 · ベストアンサー

＞確認メッセージを出さずに、保存

Application.DisplayAlerts = False
'保存処理
Application.DisplayAlerts = True

＞(2)改行するためにはどうしたらよいでしょうか？

.SaveAs Filename:=Mypath & "\" & Mybook & MYsireal, _
　　　　 FileFormat:=xlCSV

行の末尾に「半角スペース」と「_」を入れて改行キーを押します。
あとは、[TAB]キーで任意の位置から記入できます。

お礼

上述をためしました。
ありがとうございました。お陰で処理が無事終了いたしました。

回答No.2

zap35

(1)”CSVへの変更を保存しますか？” のメッセージはCloseメソッドで出されています
.Close False
にすればこのメッセージは出ません。ただしSaveするフォルダに同名のファイルがあると「上書きしますか」のメッセージが出てしまいますので、
Application.DisplayAlerts = False
With ActiveWorkbook
　.SaveAs Filename:="z:\BOOK2.csv", FileFormat:=xlCSV
　.Close
End With
Application.DisplayAlerts = True
としてやればメッセージは出なくなります

(2)改行したい行の行末に「_」をつけるだけです
SaveAs Filename:=Mypath & "\" & Mybook & MYsireal, _
　　　　 FileFormat:=xlCSV

お礼

ありがとうございました。お陰で処理がはかどりました。感謝です。