ускорение этого сценария vba

Question

После открытия этой книги выполняется следующий скрипт, который пишет формулу для создания ссылки на несколько книг. Каждое учебное пособие записывает 3 колонки т.е. рабочая тетрадь 1 пишет A, B и C и рабочая тетрадь 2 пишет D, E, F и т.д ..

WBNAME = "=IF(AND('\\insurance\it\FileData\Computers\Release Note\[Aliens.xlsm]iForms'!A2<>"""",'\\insurance\it\FileData\Computers\Release Note\[Aliens.xlsm]iForms'!E2=""""),'\\insurance\it\FileData\Computers\Release Note\[Aliens.xlsm]iForms'!A2,"""")" 
Worksheets("All Release Items").Range("A2:A100").Value = WBNAME 
WBNAME2 = "=IF(AND('\\insurance\it\FileData\Computers\Release Note\[Aliens.xlsm]iForms'!A2<>"""",'\\insurance\it\FileData\Computers\Release Note\[Aliens.xlsm]iForms'!D2<>"""",'\\insurance\it\FileData\Computers\Release Note\[Aliens.xlsm]iForms'!E2=""""),'\\insurance\it\FileData\Computers\Release Note\[Aliens.xlsm]iForms'!D2,"""")" 
Worksheets("All Release Items").Range("B2:B100").Value = WBNAME2 
WBNAME3 = "=IF('\\insurance\it\FileData\Computers\Release Note\[Aliens.xlsm]All Release Items'!A2<>"""",'\\insurance\it\FileData\Computers\Release Note\[Aliens.xlsm]All Release Items'!A1,"""")" 
Worksheets("All Release Items").Range("C2:C100").Value = WBNAME3 

Есть в настоящее время 12 рабочих книг все .xlsm и находятся в одном файле дорожка. Пожалуйста, помогите

Answer 1

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

Вы можете проверить это, установив свой режим расчета в ручном режиме (в разделе «Расчет» на ленточной странице «Формулы» или Application.Calculation = xlCalculationManual), затем запустите макрос, затем «Рассчитать сейчас» (на ленте снова, или F9), и посмотреть, сколько времени это займет. Сравните время, выполняемое таким образом, когда справочные книги открыты или закрыты. Я думаю, вы обнаружите, что макрос занимает немного времени, чтобы добавить формулы, но расчет занимает много времени, потому что книги закрыты.

Если это так, перепишите его, чтобы открыть книги перед вычислением.

Кроме того, вы можете захотеть поместить свои данные в базу данных, если на это нужно ссылаться.