Копирование данных Excel в другую книгу

Posted by obzor under VBA

Нужен макрос который:
1. скопирует с активного листа (рабочей книги) данные (диапазон A1:GT1004)
2. откроет другую книгу (она уже существует) из той-же папки что и активная.. код типа —

With Workbooks.Open(ThisWorkbook.Path & "\" & "CHECK BASE.xlsm"

3. создаст там (в CHECK BASE.xlsm) новый лист (с любым названием типа Лист1 — название будет потом все равно переименовано вручную)
4. вставит скопированное в этот новый лист в ячейку С5
5. сохранит и закроет книгу (CHECK BASE.xlsm) … ну и — End Sub

Но ОЧЕНЬ ВАЖНО чтоб данные были 1 в 1 с оригиналом (шрифт, окраска, ширина столбцов и тд включая условное форматирование)
НО вместо формул только их ЗНАЧЕНИЕ!
IgorGO

Sub CopySameData()
  Dim rg As Range, ar
  Set rg = ActiveSheet.Range("A1:GT1004"):  ar = rg.Value
  With Workbooks.Open(ThisWorkbook.Path & "\" & "CHECK BASE.xlsm")
    .Worksheets.Add
    rg.Copy .Worksheets(.Worksheets.Count).Range("C5")
    .Worksheets(.Worksheets.Count).Range("C5").Resize(UBound(ar), UBound(ar, 2)).Value = ar
    .Save: .Close
  End With
End Sub

Похожие статьи

• Ping из VBA
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить ввод пробелов в ячейки Excel
• Массовое переименование label на форме
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Копирование данных «отталкиваясь» от последней заполненной строки Excel
• Как вытащить URL адрес из формулы с гиперссылкой в Excel