Скопировать лист из другой Книги с заменой

16.05.2019, 13:07. Показов 3045. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Добрый день!
Есть одна проблема
Существует 2 книги, в каждой книге одинаковые листы, и названия и номер. Мне нужно чтобы в первой книге несколько листов обновились, вместе с формулами, закрашенными ячейками, то есть просто чтобы листы второй книги перешли в листы первой. При этом, чтобы это был не новый лист, а тот же. Существует ли какая-нибудь функция замены листа в vba?
Данные могут быть с фильтрами, но нужно чтобы все данные перенеслись
Пробовал просто данные копировать, но тут ругается

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub AddSvodAndCloseAcc()
    Dim sFiles As String
    Dim oExcel As New Excel.Application
    Dim oWorkBook As Excel.Workbook
    Set wS = ThisWorkbook.Worksheets("Ñâîä")
    Set wCA = ThisWorkbook.Worksheets("CloseAcct")
    With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = ThisWorkbook.Path
        If .SHOW = False Then Exit Sub
        sFiles = .SelectedItems(1)
    End With
    Set oWorkBook = oExcel.Workbooks.Open(sFiles)
    Set wSOld = oWorkBook.Worksheets("Ñâîä")
    Set wCAOld = oWorkBook.Worksheets("CloseAcct")
    wS.Range("A2:W100000").Delete
    wCA.Range("A2:T1000").Delete
    wSOld.Range("A2:W100000").Copy wS.Range("A2:W100000")
    wCAOld.Range("A2:T1000").Copy wCA.Range("A2:T1000")
    oWorkBook.Close False
End Sub

Добавлено через 1 час 19 минут
Нашёл на форуме такой код
Но ругается на Copy

Visual Basic
1
2
Sheets('Лист1').Select
Sheets('Лист1').Copy Before:=Workbooks('Книга2.xls').Sheets(1)

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

16.05.2019, 13:07

Ответы с готовыми решениями:

Перенос данных с одного листа одной книги на другой лист другой книги с константой
Добрый вечер, товарищи! Есть прайс-лист, который содержит в себе много колонок и строк. На ежедневной основе мне приходится распределять...

Копирование строки с данными из листа одной книги в лист другой книги
Никак не получается написать код, который бы копировал только вторую строку с данными из листа одной книги в лист другой книги. Помогите...

Скопировать лист с закрытой книги
Есть код, который копирует ячейки из указанной закрытой книги в текущую: Public Function GetValue(path, file, sheet, ref) Dim...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

16.05.2019, 13:07

Помогаю со студенческими работами здесь

Как скопировать лист Excel из одной книги в другую
Подскажите, пожалуйста, как скопировать целиком лист из одной книги в другую со всеми разделителями страниц, существующим форматом полей и...

Excel : Скопировать выделенный диапазон с первого листа на тот лист активной рабочей книги
8. Excel : Скопировать выделенный диапазон с первого листа на тот лист активной рабочей книги, номер которого получен через функцию...

Как скопировать активный лист с одной книги в определёную другую под заданым именем?
ПОМОГИТЕ ПОЖАЛУСТА: скопировать активный лист с одной книги в определёную другую под заданым именем.

Скопировать информацию с нескольких листов на другой лист
Помогите, гуглил уже но не могу понять как мне скопировать нужную мне информацию с первых 12 листов на другой лист. К примеру лист с именем...

Скопировать строку определенного цвета на другой лист
Привет Всем! Вопрос такой: Можно ли создать условие что-бы скопировать строку определенного цвета на другой лист? Спасибо!!

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

Наверх