開いていないＢｏｏｋへの書き込み

ＢｏｏｋＡから開いていないＢｏｏｋＢへテキストを書き込む
プログムを作り意図したとおり動作するようになりました。
しかしＢｏｏｋＢの保存のタイミングで次のようなメッセージ
が出て煩わしいのですが。
「この場所に'RESUME.XLW'という名前のファイルが既に
あります。置き換えますか？」
このメッセージが表示されないようにしたいのですが。
良い方法はないでしょうか。

No.1 ベストアンサー 回答者： korin_ 回答日時： 2008/11/21 10:29

こんにちは。

以下の方法で可能だと思います。
--------------------------------------------------------------
Application.DisplayAlerts = False '確認ダイアログを非表示
'ワークブックを保存する処理をここにいれる
Application.DisplayAlerts = True '確認ダイアログを表示
--------------------------------------------------------------

この回答へのお礼

こんばんは。
早速トライしてみましたが、まだ、表示されます。
どこかおかしいですか。

' データの書き込み
Set x = CreateObject("Excel.Application")
Set w = x.Workbooks.Open(FPath)
x.Visible = False
For j = 0 To 9
w.Worksheets("A").Cells(1 + j, 255).Value = "BBB"
Next

Application.DisplayAlerts = False
x.Save
Application.DisplayAlerts = True

x.Application.Quit
Set x = Nothing
'

お礼日時：2008/11/21 20:29

No.2 回答者： fujillin 回答日時： 2008/11/21 22:20

スクリプトから実行しているのですよね？

その場合は、No1様の回答に相当するオブジェクトは
　x.DisplayAlerts = False
　w.Save
　x.DisplayAlerts = True
のようになるのでは？

この回答へのお礼

ありがとうございました。
とんでもない間違いをしていました。
fujillinさんのアドバイスのとおり修正し
メッセージが表示されなくなりました。

お礼日時：2008/11/21 23:37