|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.05.2011, 12:30 | #1 |
Форумчанин
Регистрация: 21.04.2011
Сообщений: 128
|
Как убрать окно обновления
Книга состоит в связи с другим документом. При выполнении макроса экспорта появляется окно Обновления связей, как его убрать и програмно выбрать "Обновить"?
|
11.05.2011, 12:58 | #2 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Попробуйте
Application.displayalerts=false Не уверен...
webmoney: E265281470651 Z422237915069 R418926282008
|
11.05.2011, 13:25 | #3 |
Форумчанин
Регистрация: 21.04.2011
Сообщений: 128
|
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 всё равно появляется окошко, я не помню, но вроде можно продублировать окошко кодом и в нём выбрать обновление, вот только как он выглядит, для меня загадка |
11.05.2011, 13:33 | #4 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Тогда может
Workbooks.Open FileName:=Папка & Имя , UpdateLinks:=False или Workbooks.Open FileName:=Папка & Имя , UpdateLinks:=True
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 11.05.2011 в 13:35. |
11.05.2011, 13:52 | #5 |
Форумчанин
Регистрация: 21.04.2011
Сообщений: 128
|
Спасибо))
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 |
11.05.2011, 14:10 | #6 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Ну Папка & Имя - это такой пример, где выше по коду в переменные помещаются нужные строки.
Т.е. рассчитано на такое: Код:
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 11.05.2011 в 14:13. |
11.05.2011, 14:20 | #7 |
Форумчанин
Регистрация: 21.04.2011
Сообщений: 128
|
Тоесть как переменные, будем знать) ещё раз спасибо
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Убрать окно программы с панели задач | maloun | Общие вопросы Delphi | 4 | 14.02.2011 15:10 |
Как убрать окно из панели задач? | Seven[up] | Win Api | 3 | 10.08.2010 01:19 |
Убрать консольное окно | Иллидан | Общие вопросы Delphi | 1 | 09.06.2008 09:03 |
как Windows после обновления глючит. | Gauss | Свободное общение | 3 | 29.04.2008 23:25 |
КАК делать обновления к програме? | ZhekON | Общие вопросы Delphi | 6 | 30.11.2007 21:30 |