Как убрать окно обновления

[Серёга0629]

Книга состоит в связи с другим документом. При выполнении макроса экспорта появляется окно Обновления связей, как его убрать и програмно выбрать "Обновить"?

[Hugo121]

Попробуйте
Application.displayalerts=false
Не уверен...

[Серёга0629]

Private Sub CommandButton1_Click()
ChDir "C:\Documents and Settings\s.fischenko\Рабочий стол\Проба"
Workbooks.Open Filename:= _
"C:\Documents and Settings\s.fischenko\Рабочий стол\Проба\103.xls"
Application.DisplayAlerts = False ' Не помогает
Sheets("Лист3").Activate
If TextBox1.Value = 103 Then
ActiveSheet.Range("B9:B22").Select
Selection.Copy
Workbooks("Проги VBA откат проги.xls").Worksheets("105").Activ ate
Sheets("105").Range("B3:B16").Paste Special
ElseIf TextBox1.Value = 108 Then
ActiveSheet.Range("C9:C22").Select
Selection.Copy
Workbooks("Проги VBA откат проги.xls").Worksheets("105").Activ ate
Sheets("105").Range("E3:E16").Paste Special
ElseIf TextBox1.Value = 148 Then
ActiveSheet.Range("D9:D22").Select
Selection.Copy
Workbooks("Проги VBA откат проги.xls").Worksheets("105").Activ ate
Sheets("105").Range("F3:F16").Paste Special
Else
End If
Application.CutCopyMode = False 'очистка буфера обмена
Workbooks("103.xls").Close savechanges:=True

всё равно появляется окошко, я не помню, но вроде можно продублировать окошко кодом и в нём выбрать обновление, вот только как он выглядит, для меня загадка

[Hugo121]

Тогда может
Workbooks.Open FileName:=Папка & Имя , UpdateLinks:=False
или
Workbooks.Open FileName:=Папка & Имя , UpdateLinks:=True

[Серёга0629]

Спасибо))
Workbooks.Open Filename:="C:\Documents and Settings\s.fischenko\Рабочий стол\Проба" & "C:\Documents and Settings\s.fischenko\Рабочий стол\Проба\103.xls", UpdateLinks:=True

- так не работает, не может найти книгу, а вот так работает:

ChDir "C:\Documents and Settings\s.fischenko\Рабочий стол\Проба"
Workbooks.Open Filename:= _
"C:\Documents and Settings\s.fischenko\Рабочий стол\Проба\103.xls", UpdateLinks:=True

[Hugo121]

Ну Папка & Имя - это такой пример, где выше по коду в переменные помещаются нужные строки.
Т.е. рассчитано на такое:

Sub tt()
Dim Папка$, Имя$
Папка = "C:\Documents and Settings\s.fischenko\Рабочий стол\Проба\"
Имя = "103.xls"
Workbooks.Open Filename:=Папка & Имя, UpdateLinks:=True
End Sub

[Серёга0629]

Тоесть как переменные, будем знать) ещё раз спасибо