пишу простую процедурку, она открывает файл Excel я , выполняет над ним действия, затем, закрывает.

Проблема в том что когда файл открывается, вываливается диалоговое окно, которое спраишвает: "Эта книга содержит связи с другими источниками данных." и 3 варианта ответа. 1. Обновить. 2. Не обновлять 3.Справка

из-за этого вся программа встаёт пока пользователь не щёлкнет "Не обновлять".

Подскажите пожалуйста как сделать, чтоб программа щёлкала на этой кнопке...

Буду очень благодарен, т.к. сроки горят.

Что то не помогает, мне надо отключить диалоговое окно у файла екселя, которое я открываю. из другого файла екселя

Private Sub CommandButton2_Click()
Range("D3").Select
Path = ActiveCell.Value
Range("D4").Select
Filename = ActiveCell.Value

Application.EnableEvents = True
Application.DisplayAlerts = False

Workbooks.Open Filename:=Path + Filename, ReadOnly:=False
Application.Run "Macros.xls!Marros_num1"
Workbooks(Filename).Close SaveChanges:=True
End Sub

так тоже не помогло, когда выполняется Workbooks.Open Filename:=Path + Filename, ReadOnly:=False, то оно выкидывает диалог, а после этого уже выполняются все команды

Private Sub CommandButton2_Click()
Range("D3").Select
Path = ActiveCell.Value
Range("D4").Select
Filename = ActiveCell.Value

Application.EnableEvents = True
Application.DisplayAlerts = False

Workbooks.Open Filename:=Path + Filename, ReadOnly:=False
Application.SendKeys ("{TAB}")
Application.SendKeys ("{ENTER}")
Application.Run "Macros.xls!Marros_num1"
Workbooks(Filename).Close SaveChanges:=True
End Sub

Спасибо всем!

RomanB :
так работает:
Private Sub CommandButton2_Click()
Range("D3").Select
Path = ActiveCell.Value
Range("D4").Select
Filename = ActiveCell.Value

Application.SendKeys ("{TAB}")
Application.SendKeys ("{ENTER}")
Workbooks.Open Filename:=Path + Filename, ReadOnly:=False

Application.Run "Macros.xls!Marros_num1"
Workbooks(Filename).Close SaveChanges:=True
End Sub




PA:
так тоже работет!

Private Sub CommandButton1_Click()
Range("D3").Select
Path = ActiveCell.Value
Range("D4").Select
Filename = ActiveCell.Value
Workbooks.Open Filename:=Path + Filename, ReadOnly:=False, UpdateLinks:=0
Application.Run "Ìàêðîñû.xls!Ìàêðîñ8_âîññòàíîâèòü_âñå_ëèñòû"
Workbooks(Filename).Close SaveChanges:=True

End Sub