- 日時： 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 を調べて見て下さい。
>１では、現象変わらず。
今、試して見ましたが、有効になっていますよ。
ファイルを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
|
自動リンクエラーのメッセージを表示させない方法（VB6.0 基本編）