| Вопрос: Как отключить в VBA запрос на обновление связей | Добавлено: 12.12.06 17:56 |
Автор вопроса:  Sergey
|
|
Требуется, чтобы при открытии файла с макросом, Excelем не выдавалось окно на обновление связей, а связи обновлялись автоматически. Метод Сервис-Параметры-Правка- запрос на обновление связей не подходит, т.к. данные не обновятся и этот режим распространяется на другие книги. Пробовал так:
Private Sub Workbook_Open() ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways End Sub Но это событие работает уже после того как появляется запрос на обновление. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Незнайка Вопросов: 7 Ответов: 188 |
Профиль | | #1 | Добавлено: 13.12.06 10:47 |
|
Open Method
Opens a workbook. Syntax expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMRU) expression Required. An expression that returns a Workbooks or RecentFile object. FileName Required String. The file name of the workbook to be opened. UpdateLinks Optional Variant. Specifies the way links in the file are updated. If this argument is omitted, the user is prompted to specify how links will be updated. Otherwise, this argument is one of the values listed in the following table. |
||
|
Номер ответа: 2 Автор ответа: Sergey Вопросов: 3 Ответов: 3 |
Профиль | | #2 | Добавлено: 13.12.06 13:57 |
| Спасибо за ответ, но я открываю через проводник файл с макросом, а не макросом Excelевскую книгу. Я еще пробовал через Правка-Связи-Запрос на обновление связей, но нужный пункт работает только после снятия галки на запросе об атоматическом обновлении (Сервис-Параметры-Правка). Но при этом все это распространится на все книги Excel, а надо только на одну. | ||
|
Номер ответа: 3 Автор ответа: Alex115-5Вопросов: 0 Ответов: 1 |
Профиль | | #3 | Добавлено: 25.03.10 23:53 |
|
В "Эта книга" необходимо добавить следующий код:
Private Sub Workbook_Open() Application.AskToUpdateLinks = False End Sub Чтобы обновление включить вновь, то: Private Sub Workbook_Open() Application.AskToUpdateLinks = True End Sub |
||
|
Номер ответа: 4 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #4 | Добавлено: 26.03.10 00:22 |
Этож какая нужна лопата !? 
|
||
Страница: 1 |