- 日時: 2007/08/19 12:11
- 名前: 花ちゃん
- ***********************************************************************************
* カテゴリー:[エクセル][][] * * キーワード:ダイアログ,自動リンク,エラーメッセージ, * ***********************************************************************************
元質問:エクセルの自動リンクエラーを表示させない方法 - TOMO 2006/06/15-20:13 No.6672
VBでエクセルを開いた時に、「開いているブックには、他のファイルへの自動リンクが設定されています。このブックを更新し他のブックの変更を反映しますか?」 のメッセージを出さないように、VBで制御出来ないのでしょうか
----------------------------------------------------------------------------------- Re: エクセルの自動リンクエラーを表示させない方法 - 花ちゃん 2006/06/15-22:36 No.6675 -----------------------------------------------------------------------------------
Open メソッド の引数のUpdateLinks を調べて見て下さい。
>1では、現象変わらず。 今、試して見ましたが、有効になっていますよ。 ファイルをOpen する前に xlApp.DisplayAlerts = False を設定していますか? UpdateLinks = 0 〜 3 の設定と組合せればいいのでは。
xlApp.DisplayAlerts = False
'上記だけでもメッセージがでないようになりますが、記入位置に注意が必要です。 'ファイルをオープンする時にメッセージでるのだから、ファイルをオープンする前に '設定する必要があります。 このように書くとExcelを起動する前に設定する人がいますが 'DisplayAlerts プロパティ は、Excel Application のプロパティなので、xlApp が使用 '出来る状態でないと使用できません。
Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Dim xlFilePath As String xlFilePath = "c:\Book1.xls" Set xlApp = CreateObject("Excel.Application") '問合せを非表示に設定 xlApp.DisplayAlerts = False 'UpdateLinks:=0 等の設定値は、ご自分の指定の設定値にして下さい。 Set xlBook = xlApp.Workbooks.Open(xlFilePath, UpdateLinks:=0) Set xlSheet = xlBook.Worksheets(1) xlApp.Visible = True
|