Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

11778 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

▼

【14319】csv形式に保存してcloseする処理 nao 04/5/25(火) 22:39

【14322】Re:csv形式に保存してcloseする処理 ichinose 04/5/25(火) 23:31

【14325】Re:csv形式に保存してcloseする処理 ichinose 04/5/26(水) 1:02

【14359】Re:csv形式に保存してcloseする処理 nao 04/5/26(水) 20:19


	【14319】csv形式に保存してcloseする処理

nao - 04/5/25(火) 22:39 -


	引用なし

	パスワード

こんにちは

csv形式に保存して、
CLOSE処理を入れずに
Application.Quitでエクセルを終了させたいのですが、
"AAA.csvを保存しますか。" というメッセージがでてきます。
エクセルの場合ですと、保存してApplication.Quit
で何もメッセージはでないのですが、
csvで同じような処理ができないでしょうか。
どなたかご存知の方は教えて下さい。
よろしくお願いします。


	【14322】Re:csv形式に保存してcloseする処理

ichinose - 04/5/25(火) 23:31 -


	引用なし

	パスワード

▼nao さん：
こんばんは。

>csv形式に保存して、
>CLOSE処理を入れずに
>Application.Quitでエクセルを終了させたいのですが、
>"AAA.csvを保存しますか。" というメッセージがでてきます。
>エクセルの場合ですと、保存してApplication.Quit
>で何もメッセージはでないのですが、
>csvで同じような処理ができないでしょうか。

'=================================
Sub test()
　 With ThisWorkbook
　　 .SaveAs Filename:="D:\My Documents\ＴＥＳＴエリア\abc.cvs", FileFormat:=xlCSV
　　 .Saved = True
　　 End With
　 Application.Quit
　
End Sub

というようにQuitの前に「Saved=True」を入れて
みてください。


	【14325】Re:csv形式に保存してcloseする処理

ichinose - 04/5/26(水) 1:02 -


	引用なし

	パスワード

▼nao さん：
>こんばんは。
>
>>csv形式に保存して、
>>CLOSE処理を入れずに
>>Application.Quitでエクセルを終了させたいのですが、
>>"AAA.csvを保存しますか。" というメッセージがでてきます。
>>エクセルの場合ですと、保存してApplication.Quit
>>で何もメッセージはでないのですが、
>>csvで同じような処理ができないでしょうか。
>
>'=================================
>Sub test()
>　 With ThisWorkbook
>　　 .SaveAs Filename:="D:\My Documents\ＴＥＳＴエリア\abc.cvs", FileFormat:=xlCSV
'　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　↑csvにして下さい
>　　 .Saved = True
>　　 End With
>　 Application.Quit
>　
>End Sub
>
>というようにQuitの前に「Saved=True」を入れて
>みてください。


	【14359】Re:csv形式に保存してcloseする処理

nao - 04/5/26(水) 20:19 -


	引用なし

	パスワード

ありがとうございます。
うまくいきました。

▼ichinose さん：
>▼nao さん：
>>こんばんは。
>>
>>>csv形式に保存して、
>>>CLOSE処理を入れずに
>>>Application.Quitでエクセルを終了させたいのですが、
>>>"AAA.csvを保存しますか。" というメッセージがでてきます。
>>>エクセルの場合ですと、保存してApplication.Quit
>>>で何もメッセージはでないのですが、
>>>csvで同じような処理ができないでしょうか。
>>
>>'=================================
>>Sub test()
>>　 With ThisWorkbook
>>　　 .SaveAs Filename:="D:\My Documents\ＴＥＳＴエリア\abc.cvs", FileFormat:=xlCSV
>'　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　↑csvにして下さい
>>　　 .Saved = True
>>　　 End With
>>　 Application.Quit
>>　
>>End Sub
>>
>>というようにQuitの前に「Saved=True」を入れて
>>みてください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

11778 / 13665 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free