VBA – Ошибка выполнения 1004 – Документ не может быть сохранен
Фактическая ошибка, которую я получаю, – это
«Ошибка времени выполнения« 1004 »:
Документ не сохраняется. "
- Скопированная копия файла Excel Macro сохраняет ссылки на исходные файлы
- Ошибка записи в книге Apache: записи в двух файлах?
- Открывается книга рабочей книги Excel на вкладке «Сохранить» и «Редактор Visual Basic»
- Excel. Внесите переменную в модуль навсегда, если она найдена в электронной таблице в месте
- C # Excel Data Можно ли перезаписать существующий файл?
а затем, когда я ударил 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, которые будут причиной этого, но, очевидно, что-то не так. Любые идеи или предложения?
- Не удалось сохранить файл Excel с помощью C #
- Сохранить значение текстового поля, VBA, Excel
- Сохранять заполненные таблицы только заполненными ячейками в формате PDF
- Макрос VB в excel для сохранения активного документа в PDF с именем из ячейки
- Как указать файл и путь для сохранения файла с помощью R-shiny и shinyFiles?
- Автоматически сохранять динамический файл из URL-адреса
- EPPlus Сохранение файла генерирует исключение NULL-ссылки
- Макрос для удаления файла из местоположения и сохранения в другом месте?