Excel VBA: 自動でxlsファイルを開くマクロでメッセージが現れたとき自動でボタンを押す方法

自動で同ディレクトリ内のxlsファイルを開くマクロを作っています。
開きたいファイルにリンクが張られてあると、「リンクを更新しますか？」という類のメッセージウィンドウが現れるのですが、マクロでこれを自動的に「Yes」「No」と答えるにはどうしたらよいのでしょうか。一応、下のマクロでファイルを開こうとするとこまではできてます。
　Sub update()
Dim DataFile As Workbook
Dim fn As String
fn = "Link.xls"
Set DataFile = Workbooks.Open(FileName:=ThisWorkbook.Path & "\" & fn)
Set DataFile = Nothing
End Sub

No.2 ベストアンサー 回答者： kurinkurinkurin 回答日時： 2007/05/23 14:20

Workbooks.Openの2番目の引数が、UpdateLinksなので

Set DataFile = Workbooks.Open(FileName:=ThisWorkbook.Path & "\" & fn , True)
でどうでしょうか？

この回答へのお礼

ご回答ありがとうございます。Trueだけではエラーとなったため、検索してみたらUpdateLinks:=1とすればよいことがわかりました。参考になりました。

お礼日時：2007/05/23 21:23

No.1 回答者： kokorone 回答日時： 2007/05/23 00:01

Set DataFile = Workbooks.Open(FileName:=ThisWorkbook.Path & "\" & fn)

の直前に
Application.DisplayAlerts = False
を入れられたらいかがでしょうか？
質問の趣旨とは異なりますが、いかがでしょうか？
ダイアログの表示を抑止することができます。

参照ＵＲＬの２項を参考にしてください。

参考URL：http://www.officetanaka.net/excel/vba/file/file0 …

この回答へのお礼

ご回答ありがとうございます。やってみましたが駄目でした。しかし、こういうのがあるというのは勉強になりました。

お礼日時：2007/05/23 21:25