Я пытаюсь скопировать динамический диапазон c (дина) из активной таблицы и вставить его в новую книгу, расположенную в "E: \ 1b \", имя файла основано на ячейке значение (J7).
Ниже приведена формула в динамическом диапазоне c:
dyna = "= OFFSET (Sheet1! $ D $ 6,0,0, COUNTA ( Sheet1! $ D: $ J), 7) "
Мне нужна помощь, чтобы сделать это.
вот код, который у меня есть
Set wb = Workbooks.Add
ThisWorkbook.Activate
ActiveSheet.dyna.Copy Before:=wb.Sheets(1)
wb.Activate
Application.DisplayAlerts = False
wb.SaveAs "E:\1b\" & Range("J7").Value & ".xlsx",
FileFormat:=xlOpenXMLWorkbook, ReadOnlyRecommended:=False, CreateBackup:=False
wb.Close "E:\1b\" & Range("J7").Value & ".xlsx"
Application.DisplayAlerts = True
End Sub