VBA – Ошибка выполнения 1004 – Документ не может быть сохранен

Фактическая ошибка, которую я получаю, – это

«Ошибка времени выполнения« 1004 »:

Документ не сохраняется. "

а затем, когда я ударил debug, он доставит меня к линии

ActiveWorkbook.Save 

У меня есть гигантский макрос VBA, с которым у меня проблемы. Макрос запускается в гигантской книге с ~ 75 или около того листов данных. Он начинается с первой страницы, читает имя рабочей таблицы, чтобы определить, какая модель будет выполняться на данных, создает новую книгу, выполняет вычисления и создает графики, а затем сохраняет книгу, прежде чем перейти к следующему листу ввода. Все это прекрасно работает, за исключением сохранения новой книги. Есть 4 разных модели, которые я запускаю, и 2 из них сохраняются правильно. Однако для остальных 2 я сталкиваюсь с этой ошибкой в ​​любое время, когда я пытаюсь их сохранить.

 OutputFolder = "location of output file" If Dir(OutputFolder, vbDirectory) = "" Then MkDir OutputFolder End If Workbooks.Open Filename:="location of input file" '(this is a path to the file) Workbooks.Open Filename:="location of lookup table" '(another path) number_of_reports = Workbooks(InputFile).Sheets.Count Workbooks(InputFile).Activate For i = 1 To number_of_reports ReportID = ActiveSheet.Name 'get 3 part ID ID_Lookup = Split(ActiveSheet.Name, "-") 'seperate into individual parts Workbooks("LookupTable").Activate 'use lookup table Sheets("CompanyLookup").Select CompanyID = Range("A" & (ID_Lookup(0) + 1)) CompanyName = Range("B" & (ID_Lookup(0) + 1)) Sheets("CategoryLookup").Select CategoryID = Range("A" & (ID_Lookup(1) + 1)) CategoryName = Range("B" & (ID_Lookup(1) + 1)) Sheets("ModelLookup").Select ModelID = Range("A" & (ID_Lookup(2) + 1)) ModelName = Range("B" & (ID_Lookup(2) + 1)) Workbooks(InputFile).Activate y = Range("B1").End(xlToRight).Column Workbooks(InputFile).Sheets(ReportID).Select 'name of the workbook SaveID = CategoryName & "_" & ModelName & "_" & FileID 'create company folder if not there already Output = "location of output" & CompanyName If Dir(Output, vbDirectory) = "" Then MkDir Output End If 'create model folder if not there already Output = "location of put" & CompanyName & "\" & ModelName If Dir(Output, vbDirectory) = "" Then MkDir Output End If 'where to save workbook Dim SaveLocation As String SaveLocation = Output & "\" & SaveID & ".xlsx" 'save workbook Dim NewBook As Workbook 'create WB for output Set NewBook = Workbooks.Add With NewBook .Title = ReportID .Subject = ReportID .SaveAs Filename:=SaveLocation End With 'decide which model to run If ModelID = 1 Then Call Regression ElseIf ModelID = 2 Then Call VolMix ElseIf ModelID = 3 Then Call ProdMix ElseIf ModelID = 4 Then Call AvgPrice End If Workbooks(SaveID).Activate Range("A1").Select deletecheck = Workbooks(SaveID).Sheets.Count 'delete extra sheets If deletecheck > 3 Then Call DeleteSheet("Sheet1") Call DeleteSheet("Sheet2") Call DeleteSheet("Sheet3") End If ActiveWorkbook.Save 'THIS IS WHERE I'M GETTING THE ERROR ActiveWorkbook.Close Workbooks(InputFile).Sheets(ReportID).Activate If i <> number_of_reports Then ActiveSheet.Next.Select End If Next i 

Так что модели 2 и 4 – это те, которые дают мне проблемы, когда они пытаются спастись, а другие нет. Я просмотрел код для каждой из моделей, и я не могу найти никакой разницы между 4, которые будут причиной этого, но, очевидно, что-то не так. Любые идеи или предложения?

Interesting Posts

ячейки excel сжимаются на разных машинах, даже если код одинаковый, используя apache poi

VBA Хранение нескольких столбцов в массиве во время цикла, а затем возвращаемое значение

INDEX / MATCH с несколькими критериями

Использование VBA ActiveCell.Offset дает время выполнения ошибки 9 под индексом вне диапазона

R, XLConnect: настройка цвета с кодом RGB

Как изменить результат запроса в формате Excel, используя разные запросы

Экспорт нескольких листов excel в одной книге R shiny

может ли макрос XL выбрать диапазон с переменными начальными и конечными строками?

Чтение данных таблицы excel с использованием c #

Макрос для отправки сводной таблицы в теле

vba искать значение в столбце из другой книги?

Проверьте, не падает ли дата между некоторым диапазоном

(Запрос справки VBA) Быстрое создание таблиц для представления журнала математики (заимствует любую помощь!)

Прогнозирование по годам Ежедневное изменение данных в Excel

Форматирование нулевых дат при импорте данных в Excel из XML

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