Excel VBA質問箱 IV

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

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


11662 / 13645 ツリー ←次へ | 前へ→

【14678】CSV変更保存のメッセージについて ちよ 04/6/4(金) 15:32 質問[未読]
【14679】Re:CSV変更保存のメッセージについて ちゃっぴ 04/6/4(金) 15:38 回答[未読]
【14680】Re:CSV変更保存のメッセージについて IROC 04/6/4(金) 16:00 回答[未読]
【14685】Re:CSV変更保存のメッセージについて ちよ 04/6/4(金) 16:57 お礼[未読]
【14681】Re:CSV変更保存のメッセージについて ちよ 04/6/4(金) 16:00 質問[未読]
【14682】Re:CSV変更保存のメッセージについて ちゃっぴ 04/6/4(金) 16:14 回答[未読]
【14684】Re:CSV変更保存のメッセージについて ちよ 04/6/4(金) 16:56 お礼[未読]
【14683】Re:CSV変更保存のメッセージについて Jaka 04/6/4(金) 16:22 回答[未読]
【14686】Re:CSV変更保存のメッセージについて ちよ 04/6/4(金) 17:02 お礼[未読]
【14757】Re:CSV変更保存のメッセージについて Jaka 04/6/7(月) 9:13 発言[未読]
【14899】Re:CSV変更保存のメッセージについて ちよ 04/6/9(水) 17:17 お礼[未読]

【14678】CSV変更保存のメッセージについて
質問  ちよ  - 04/6/4(金) 15:32 -

引用なし
パスワード
   マクロで、

1.既に存在する【テスト.csv】ファイルを破棄
2.【データ.xls】を開き、CSVで保存します。

テスト.csvは始めに削除している為に、"ファイルが存在します。上書きしますか?"
というメッセージはでないのですが、その後に"CSVファイルは変更しますか?"
というメッセージがでてしまいます。
常に変更はしないので、このメッセージを表示したくないのですが。。。

方法はありますか?
初心者です。どなたかよろしくお願い致します。

【14679】Re:CSV変更保存のメッセージについて
回答  ちゃっぴ  - 04/6/4(金) 15:38 -

引用なし
パスワード
   >常に変更はしないので、このメッセージを表示したくないのですが。。。

対象のSavedプロパティにTrueを入れてみてください。

【14680】Re:CSV変更保存のメッセージについて
回答  IROC  - 04/6/4(金) 16:00 -

引用なし
パスワード
   displayalertプロパティは使えませんか?

【14681】Re:CSV変更保存のメッセージについて
質問  ちよ  - 04/6/4(金) 16:00 -

引用なし
パスワード
   ▼ちゃっぴ さん:
ちゃっぴさんありがとうございます。
さっきとはファイル名が違うのですが、やってみました。
でもやっぱりメッセージが出てしまうのですが・・・・

このやり方では無理でしょうか??


Private Sub CommandButton1_Click()

Workbooks.Open Filename:="D:\表.xls"
Kill ("D:\CSV.csv")


ActiveWorkbook.SaveAs Filename:="D:\CSV.csv", FileFormat:=xlCSV, _
    CreateBackup:=False
    ThisWorkbook.Saved = True
    ActiveWorkbook.Close

End Sub

よろしくお願いしますm(__)m

【14682】Re:CSV変更保存のメッセージについて
回答  ちゃっぴ  - 04/6/4(金) 16:14 -

引用なし
パスワード
   >    ThisWorkbook.Saved = True
>    ActiveWorkbook.Close

対象を考えましょう!
ここの行の前に
MsgBox ThisWorkbook.Name
MsgBox ActiveWorkbook.Name

とやってみて、違いを比べてください。

【14683】Re:CSV変更保存のメッセージについて
回答  Jaka  - 04/6/4(金) 16:22 -

引用なし
パスワード
   ▼IROC さん:
>displayalertプロパティは使えませんか?
と、おっしゃっていますので、使ってみてください。

Workbooks.Open Filename:="D:\表.xls"
On Error resume Next  '←入れた方がいいと思います。
Kill ("D:\CSV.csv")

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="D:\CSV.csv", FileFormat:=xlCSV, _
    CreateBackup:=False
    ActiveWorkbook.Close
Application.DisplayAlerts = True

【14684】Re:CSV変更保存のメッセージについて
お礼  ちよ  - 04/6/4(金) 16:56 -

引用なし
パスワード
   ▼ちゃっぴ さん:

どうもありがとうございましたm(__)m
助かりました。
またよろしくお願い致します。

【14685】Re:CSV変更保存のメッセージについて
お礼  ちよ  - 04/6/4(金) 16:57 -

引用なし
パスワード
   ▼IROC さん:

どうもありがとうございましたm(__)m
助かりました。
またよろしくお願い致します。

【14686】Re:CSV変更保存のメッセージについて
お礼  ちよ  - 04/6/4(金) 17:02 -

引用なし
パスワード
   ▼Jaka さん:

とってもご親切にありがとうございました。
なんせ初心者なもので、displayalertプロパティを使って葛藤していたところ、
Jakaさんのお答えをいただきましてやってみました。
希望とおりに動きました。
本当にありがとうございましたm(__)m
感謝しております。
またよろしくお願い致します!

【14757】Re:CSV変更保存のメッセージについて
発言  Jaka  - 04/6/7(月) 9:13 -

引用なし
パスワード
   こんにちは。
よく考えたら、あれば上書きするので下2行は無くても良かったですね。

Workbooks.Open Filename:="D:\表.xls"

'On Error resume Next  '無し可
'Kill ("D:\CSV.csv") '無し可

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="D:\CSV.csv", FileFormat:=xlCSV, _
    CreateBackup:=False
    ActiveWorkbook.Close
Application.DisplayAlerts = True

【14899】Re:CSV変更保存のメッセージについて
お礼  ちよ  - 04/6/9(水) 17:17 -

引用なし
パスワード
   ▼Jaka さん:

度々ご親切にありがとうございましたm(__)m
大変助かりました。

11662 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free