Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11759 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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」を入れて
>>みてください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11759 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free