Диалоговое окно «Сохранить» зависает во время цикла

У меня есть программа VBA, которая извлекает данные из сетевого местоположения, обрабатывает данные и затем сохраняет их как один CSV-файл. Этот цикл создаст более 1000 отдельных файлов CSV.

Ошибка, которую я получаю, состоит в том, что, казалось бы, случайным образом, диалоговое окно сохранения просто застрянет. Это похоже на сохранение файла, но он никогда не завершается и будет сидеть там бесконечно. Если я отменил отмену, макрос только продолжит. (Я поменял имя файла)

введите описание изображения здесь

Мой код для этого:

Application.ScreenUpdating = False counter = 2 Do Until ThisWorkbook.Sheets("Production_Data").Cells(Counter, 5).Value = "" '''' Main operations go here '''' 'Save workbook to new file Application.DisplayAlerts = False 'move worksheet to new workbook Set newbook = Workbooks.Add(1) 'create new workbook object with only 1 sheet newbook.Sheets(1).Name = "toDelete" 'name the worksheet ws.Activate 'activate the temporary worksheet to be moved Sheets(tempSheetName).Move Before:=newbook.Sheets(1) newbook.Sheets("toDelete").Delete 'remove the blank sheet created in new workbook 'save as CSV file fname = destPath & "/" & tempSheetName & ".csv" newbook.SaveAs FileName:=fname, FileFormat:=xlCSV newbook.Close Application.DisplayAlerts = True counter = counter + 1 loop Application.ScreenUpdating = True 

Есть ли способ автоматически выйти из этого «замороженного» диалогового окна и продолжить макрос? Что-то не так с моим кодом? В идеале этого можно было бы избежать все вместе.

Единственная идея, которая у меня была, это то, что моя книга excel с макросом находится на сетевом диске, и, может быть, так или иначе это заставит ее как-нибудь замерзнуть?


редактировать

Я попытался добавить set newbook = Nothing после его закрытия, но он все еще остается открытым в менеджере проектов VBA.

Interesting Posts

Как загрузить список SharePoint, который охватывает несколько веб-страниц

Условный массив для вычисления процентили

Получение значения ячейки с VBA в Excel

UDF – определить, является ли это перерасчет или первое исполнение

Код VBA для поиска ячейки содержит определенную строку (среди списка .csv)

Python: объект «NoneType» не имеет атрибута «decpressobj»

Excel VBA Разблокировка ячеек для запуска макроса, затем блокировка снова

Как использовать SUMPRODUCT с двоичными значениями как строка в ячейке?

Какова правильная формула для расчета этих процентов?

Сохранить конкретный одиночный лист как .csv

Макрос Excel не работает должным образом при запуске планировщика задач в Windows 10

Экспортируйте информацию о шаблоне в Excel, а затем загрузите ее в django

Как экспортировать данные из ListView в Excel и PDF (VBA)

как я могу повторить одно и то же значение ячейки миллионное время?

Созданная книга Excel 2013 vba открывается для пользователей в разделе «Защищенный просмотр»,

Давайте будем гением компьютера.