У меня есть код, который делает следующее:
Откройте файл шаблона
Скопируйте соответствующую информацию в этот файл
Сохраните файл как Uniquekey_templatefile.xlsm
У меня есть цикл, созданный циклом, который выполняет эту операцию в течение 100 с уникального ключа / TempId. Основное создание и сохранение различных файлов для каждого уникального ключа.
Код работает отлично, но после сохранения 10-15 файлов, похоже, что код останавливается после генерации нескольких файлов.
Workbooks("Template.xlsm").Worksheets("Data").Activate
ActiveWorkbook.SaveAs filepath & TemplID & "_Template.xlsm"
Application.Wait (Now + TimeValue("00:00:01"))
ActiveWorkbook.Close
Также нет потери данных. Когда я нажимаю «Отмена», он переходит к сохранению следующего файла.
Так что все, что мне нужно, - это улучшение моего кода, которое будет нажимать кнопку «Отмена», если это сообщение не будет отправлено через 15 секунд.