Як за допомогою vba скопіювати дані з однієї книги в іншу

Завдання полягає в тому, щоб скопіювати певний діапазон поточного листа, відкрити іншу книгу, і вставити ці скопійовані дані в певну комірку, зберегти цей файл і закрити. Нижче наведено код VBA.

Sub Названіе_Макроса () `Виділити діапазон який необхідно скопіроватьRange ( "A1: F52"). Select`Скопіровать то, що виделеноSelection.CopyChDir "шлях до папки де лежить файл в який необхідно скопіювати" Workbooks.Open Filename: = "Назва файлу, який знаходиться в папці, шлях до якої зазначений вище " `Виділити початкову осередок в яку необхідно вставити скопійовані данниеRange (" A6 "). Select`Вставіть данниеActiveSheet.Paste`сохраніть поточну кнігуActiveWorkbook.Save`Закрить кнігуActiveWorkbook.CloseEnd Sub

Варіант 2: В відкрилася книзі запускаємо макрос, щоб він відкрив потрібну нам книгу, скопіював звідти потрібні нам дані і вставив в нашу відкриту книгу, закривши файл з якого ці дані були скопійовані

Sub Названіе_Макроса2 () `Відкриваємо файл з якого потрібно скопіювати данниеWorkbooks.Open Filename: = "C: Данние.xlsx"` Скопіювати потрібний діапазон в відкрилася книзі на аркуші 1Workbooks ( "Данние.xlsx"). Worksheets ( "Лист1"). Range ( "A16: E16"). Copy`Актівіруем потрібну нам кнігуWorkbooks ( "Кніга1.xlsm"). Activate`Виделяем і вставляємо скопійовані дані в осередок А1ActiveWorkbook.Worksheets ( "Лист1"). Range ( "A1"). SelectActiveSheet. Paste`Закриваем книгу звідки ми скопіювали данниеWorkbooks ( "Данние.xlsx"). CloseEnd Sub

Ще приклад - Скопіювати діапазони даних з активною відкритою книги Excel кількох аркушів (в нашому прикладі 3-х листів) в іншу книгу, яка зберігається в певному місці. Дані будуть вставлені як значення, плюс будуть перенесені формати осередків.

Sub Копіруем_лісти_в_другую_кнігу () Dim bookconst As WorkbookDim abook As WorkbookSet abook = ActiveWorkbook `присвоюємо перменная активної кнігеSet bookconst = Workbooks.Open ( "C: Users User Desktop 1.xlsx")` присвоюємо перменная книзі куди необхідно копіювати данние`переходім в активну книгу звідки необхідно скопіювати данниеabook.Worksheets ( "Лист1"). ActivateRange ( "A1: I23"). Copy `копіюємо певний діапазон листа, вкажіть свій діапазонbookconst.Worksheets ( "Лист1"). Activate` активуємо лист куди необхідно вставити данниеRange ( "A1: I23"). Select `встаємо на осередок А1Selection.PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks _: = False, Transpose: = False`вставляем тільки ормати ячеекSelection.PasteSpecial Paste: = xlPasteFormats, Operation: = xlNone, _SkipBlanks: = False, Transpose: = False`второй лістabook.Worksheets ( "Аркуш2"). ActivateRange ( "A1: I23"). Copybookconst.Worksheets ( "Аркуш2" ) .ActivateRange ( "A1: I23"). Select `виділяємо діапазонSelection.PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks _: = False, Transpose: = False`вставляем тільки формати ячеекSelection.PasteSpecial Paste: = xlPasteFormats, Operation : = xlNone, _SkipBlanks: = False, Transpose: = False`третій лістabook.Worksheets ( "Ліст3"). ActivateRange ( "A1: I23"). Copybookconst.Worksheets ( "Ліст3"). ActivateRange ( "A1: I23") .Select `виділяємо діапазонSelection.PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks _: = False, Transpose: = False`вставляем тільки формати ячеекSelection.PasteSpecial Paste: = xlPasteFormats, Operation: = xlNone, _SkipBlanks: = False, Transpose : = Fa lse`сохраніть поточну кнігуbookconst.Save`Закрить кнігуbookconst.Closeabook.ActivateEnd Sub

Якщо стаття була вам корисна, то буду вдячний, якщо ви поділитеся їй зі своїми друзями за допомогою кнопок розташованих нижче.

Дякуємо за увагу.