Цитата |
---|
MikeVol написал: For Each i In rngОбновить_эти rngTicker.Value = i.Value rngLOL2.ListObject.QueryTable.Refresh BackgroundQuery:=False rngLOL.ListObject.QueryTable.Refresh BackgroundQuery:=False ' Создаем новую книгу и копируем в нее оба листа Dim newWorkbook As Workbook: Set newWorkbook = Workbooks.Add ThisWorkbook.Sheets("sheet0").Copy Before:=newWorkbook.Sheets(1) ThisWorkbook.Sheets("Лист1").Copy Before:=newWorkbook.Sheets(2) ' Сохраняем новую книгу newWorkbook.SaveAs Filename:=strFilepath & "" & i.Value & ".xlsx", FileFormat:=xlWorkbookDefault newWorkbook.Close SaveChanges:=False Next i |
Вариант рабочий, спасибо !