Автоматически и скрыто обновлять

Амузаби

Гость

02.08.2012 23:12:12

Привет профессионалам.
Очень прошу вашей помощи.
При выполнении автоматического макроса система выдает запрос на обновление данных в определенной таблице. Эта таблица действительно время от времени обновляется (заносятся новые данные).
Нужно чтобы при выполнении макроса не выдавался запрос на обновление, а автоматически макрос "брал" уже обновленные данные из таблицы E: \ Отчет \ Отчет2012.xls
Спасибо.

schetovod Пользователь Сообщений: 65 Регистрация: 01.01.1970	#2 03.08.2012 15:26:34 попробуйте application.displayalerts=false application.displayalerts=true

Амузаби

Гость

04.08.2012 00:32:40

К большому сожалению и дальше спрашивает об обновлении книги. Куда я только данные запросы в макросе не помещал. И в перед, и посередине, и перед той операцией, задающего запрос на обновление ... Ничего не помогает. Возможно еще выход? Спасибо всем не равнодушным.

EducatedFool

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

04.08.2012 00:37:07

У нас не настолько развиты телепатические навыки, чтобы взять так и сразу подсказать готовое решение.

Вы покажите свой код (и как вы в него вставили application.displayalerts=false),
- тогда, глядишь, и придумаем чего-нибудь.

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Guest

Гость

04.08.2012 01:06:31

Спасибо.
Вот здесь

Sub

.......
With ActiveSheet.[a1].CurrentRegion
.AutoFilter 9, "<10"
.Offset(1).SpecialCells(12).EntireRow.Delete
.Parent.AutoFilterMode = 0
.Sort Key1:=Range("I1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, Orientation:=xlTopToBottom
End With

Range("J2").Select
'Вот здесь ссылка на данную книгу!!!!!!!!!
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-6]:R[998]C[-6],'Отчет2012.xls]Полные невыполнение'!C1:C4,1,FALSE)"
Selection.AutoFill Destination:=Range("J2:J700")
Range("J2:J700").Select
Range("K2").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-7]:R[998]C[-7],'[Аномалии Отчет.xls]Отчет'!C4:C7,1,FALSE)"
Selection.AutoFill Destination:=Range("K2:K900")
Range("K2:K900").Select
Windows("PA_command_recep_par_CM_New.xls").Activate
Range("A2:K1200").Select
Selection.Copy
Windows("Отчет22012.xls").Activate
Range("I4:I800").Value = Range("I4:I800").Value
Range("A3").Select
ActiveSheet.Paste
..........
End Sub

Спасибо Вам.

dnv Пользователь Сообщений: 5 Регистрация: 22.12.2012	#6 04.08.2012 02:41:16 Sub ThisWorkbook.UpdateLinks = xlUpdateLinksAlways <...> ThisWorkbook.UpdateLinks = xlUpdateLinksUserSetting End Sub Или [Alt] + [S] + [T] (см. скрин) Прикрепленные файлы post_352436.PNG (60.94 КБ)

Читают тему