Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11662 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【14678】ＣＳＶ変更保存のメッセージについて ちよ 04/6/4(金) 15:32 質問[未読]
【14679】Re:ＣＳＶ変更保存のメッセージについて ちゃっぴ 04/6/4(金) 15:38 回答[未読]
【14680】Re:ＣＳＶ変更保存のメッセージについて IROC 04/6/4(金) 16:00 回答[未読]
【14685】Re:ＣＳＶ変更保存のメッセージについて ちよ 04/6/4(金) 16:57 お礼[未読]
【14681】Re:ＣＳＶ変更保存のメッセージについて ちよ 04/6/4(金) 16:00 質問[未読]
【14682】Re:ＣＳＶ変更保存のメッセージについて ちゃっぴ 04/6/4(金) 16:14 回答[未読]
【14684】Re:ＣＳＶ変更保存のメッセージについて ちよ 04/6/4(金) 16:56 お礼[未読]
【14683】Re:ＣＳＶ変更保存のメッセージについて Jaka 04/6/4(金) 16:22 回答[未読]
【14686】Re:ＣＳＶ変更保存のメッセージについて ちよ 04/6/4(金) 17:02 お礼[未読]
【14757】Re:ＣＳＶ変更保存のメッセージについて Jaka 04/6/7(月) 9:13 発言[未読]
【14899】Re:ＣＳＶ変更保存のメッセージについて ちよ 04/6/9(水) 17:17 お礼[未読]
【14678】ＣＳＶ変更保存のメッセージについて
質問  ちよ  - 04/6/4(金) 15:32 -
引用なし
パスワード
   マクロで、

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

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

方法はありますか？
初心者です。どなたかよろしくお願い致します。
【14679】Re:ＣＳＶ変更保存のメッセージについて
回答  ちゃっぴ  - 04/6/4(金) 15:38 -
引用なし
パスワード
   >常に変更はしないので、このメッセージを表示したくないのですが。。。

対象のSavedプロパティにTrueを入れてみてください。
【14680】Re:ＣＳＶ変更保存のメッセージについて
回答  IROC  - 04/6/4(金) 16:00 -
引用なし
パスワード
   displayalertプロパティは使えませんか？
【14681】Re:ＣＳＶ変更保存のメッセージについて
質問  ちよ  - 04/6/4(金) 16:00 -
引用なし
パスワード
   ▼ちゃっぴ さん：
ちゃっぴさんありがとうございます。
さっきとはファイル名が違うのですが、やってみました。
でもやっぱりメッセージが出てしまうのですが・・・・

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


Private Sub CommandButton1_Click()

Workbooks.Open Filename:="D:\表.xls"
Kill ("D:\ＣＳＶ.csv")


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

End Sub

よろしくお願いしますm(__)m
【14682】Re:ＣＳＶ変更保存のメッセージについて
回答  ちゃっぴ  - 04/6/4(金) 16:14 -
引用なし
パスワード
   >　　　　ThisWorkbook.Saved = True
>　　　　ActiveWorkbook.Close

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

とやってみて、違いを比べてください。
【14683】Re:ＣＳＶ変更保存のメッセージについて
回答  Jaka  - 04/6/4(金) 16:22 -
引用なし
パスワード
   ▼IROC さん：
>displayalertプロパティは使えませんか？
と、おっしゃっていますので、使ってみてください。

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

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="D:\ＣＳＶ.csv", FileFormat:=xlCSV, _
　　　　CreateBackup:=False
　　　　ActiveWorkbook.Close
Application.DisplayAlerts = True
【14684】Re:ＣＳＶ変更保存のメッセージについて
お礼  ちよ  - 04/6/4(金) 16:56 -
引用なし
パスワード
   ▼ちゃっぴ さん：

どうもありがとうございましたm(__)m
助かりました。
またよろしくお願い致します。
【14685】Re:ＣＳＶ変更保存のメッセージについて
お礼  ちよ  - 04/6/4(金) 16:57 -
引用なし
パスワード
   ▼IROC さん：

どうもありがとうございましたm(__)m
助かりました。
またよろしくお願い致します。
【14686】Re:ＣＳＶ変更保存のメッセージについて
お礼  ちよ  - 04/6/4(金) 17:02 -
引用なし
パスワード
   ▼Jaka さん：

とってもご親切にありがとうございました。
なんせ初心者なもので、displayalertプロパティを使って葛藤していたところ、
Jakaさんのお答えをいただきましてやってみました。
希望とおりに動きました。
本当にありがとうございましたm(__)m
感謝しております。
またよろしくお願い致します！
【14757】Re:ＣＳＶ変更保存のメッセージについて
発言  Jaka  - 04/6/7(月) 9:13 -
引用なし
パスワード
   こんにちは。
よく考えたら、あれば上書きするので下２行は無くても良かったですね。

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

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

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="D:\ＣＳＶ.csv", FileFormat:=xlCSV, _
　　　　CreateBackup:=False
　　　　ActiveWorkbook.Close
Application.DisplayAlerts = True
【14899】Re:ＣＳＶ変更保存のメッセージについて
お礼  ちよ  - 04/6/9(水) 17:17 -
引用なし
パスワード
   ▼Jaka さん：

度々ご親切にありがとうございましたm(__)m
大変助かりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11662 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free