Я понимаю, что этот вопрос задавался ранее, но предоставленные ответы не решили проблему. Я использую код VBA из Excel, который выполняет следующие действия:
1.) Откройте локальный лист (например, C: \ desktop \ AOR \ Names.xlsx)
2.) Считайте в столбце B имена файлов, которые необходимо проверить
3.) Откройте имя файла (как взято из столбца B) с сетевого диска.
4.) Проверьте некоторые ячейки из открытого файла
5.) Закройте файл.
6.) Итерация.
Все это работает без проблем; моя ситуация такова, что когда файл открывается с сетевого диска (то есть шаг 3), я получаю сообщение «Загрузка файла». Единственная опция на этом - «Отмена» или отпустить ее до завершения. Нажатие отмены (или использование для этого клавиш SendKeys) приводит к отмене открытия файла, что останавливает остальную часть процесса. У меня были пользователи, случайно нажимавшие эту отмену достаточно раз, чтобы я хотел полностью закрыть диалоговое окно, но не могу найти ничего, что работает.
Вот код с опциями, которые я пробовал, но безрезультатно:
WhatName = Workbooks(AgencyNamesList).Worksheets("Agencies").Range("B" & i).Value ' get name of file from locally opened workbook.
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
Application.EnableEvents = False ' Prevent code in workbook from running
' Application.SendKeys "{ESCAPE}", False ' Cancels subsequent file opens
' Application.SendKeys "{ESCAPE}", True ' Cancels the file open
' Application.SendKeys "~", True ' Cancels the file open
QuarterDueDate = Workbooks.Open(SourceFolder & WhatName).Worksheets("YTD").Range("I6").Value ' open book get value of I6
На этой странице показано изображение диалогового окна вместе с кем-то, кто пытается найти (с 2012 года) решение этой проблемы.
OPSYS: Windows 7 Enterprise SP1
EXCEL: MS Office Professional Plus 2013
Я уверен, что надеюсь, что кто-то нашел способ предотвратить всплывающее окно!
ПРИМЕЧАНИЕ. Когда этот код запускается для тех же файлов, которые хранятся локально, диалоговое окно НЕ отображается.
Спасибо!