Повторное редактирование сообщения из-за новой проблемы.На этот раз я пропустил вопрос о создании новой рабочей книги, но теперь прошлые специальные значения не работают должным образом.Мне нужно скопировать вставить 8 раз одни и те же листы в новый, каждый из которых обновляется в разных географических регионах (например, в Европе, Северной Америке и т. Д.).Я получаю каждый раз a - Ошибка времени выполнения '1004', как указано в заголовке.Я хотел бы вставить в качестве значения, форматов и ширины столбцов, так как исходный лист имеет формулы.Как я могу обновить VBA, чтобы он работал?:-) Заранее благодарим команду.
Sub Export()
Dim lRow, lCol As Integer
Workbooks.Add
Path = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"
ActiveWorkbook.SaveAs Path & "GMCommits.xlsm", FileFormat:=XlFileFormat.xlOpenXMLWorkbookMacroEnabled
Workbooks("1").Activate
Sheets("1").Select
Range("E4").Value = "8"
Application.Calculate
Sheets("2").Select
lRow = Range("C" & Rows.Count).End(xlUp).Row
lCol = Cells(1, Columns.Count).End(xlToLeft).Column
For Each cell In Range(Cells(1, "C"), Cells(1, lCol))
Union(Range("C1:AE" & lRow), Range(Cells(1, cell.Column), Cells(lRow, cell.Column))).Copy
Workbooks("2").Activate
Range("A1").PasteSpecial Paste:=xlPasteFormats
Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Range("A1").PasteSpecial Paste:=xlPasteColumnWidths
Next cell
Application.CutCopyMode = False
Код останавливается на втором диапазоне А1.Процедура VBA состоит в том, чтобы в 8 раз обновить значение из Geographies и скопировать его, вставить его на новые листы в рабочей книге 2, а затем завершить модуль с помощью End sub.