Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Перенос данных макросом, Перенос данных из одной книги в другую
 
#1
09.04.2026 12:22:56
Все привет комрады!

Пожалуйста, помогите поправить макрос ниже, чтобы он переносил данные из одной книги в другую ЗНАЧЕНИЯМИ, а не копировал вместе с формулами.
Тест показал, что сейчас он переносит данные вместе с формулами из книги с данными в новую книгу.

Спасибо!
Код
Option Explicit
 
Sub TransferData()
    Dim wbFrom      As Workbook
    Set wbFrom = Workbooks("АГАТ АО_Запрос 2025_v4_Загрузка (1).xlsx")
 
    Dim wbTo        As Workbook
    Set wbTo = Workbooks("Запрос 2026_основной_v1.xlsx")

' Copy from page Информация
    wbFrom.Worksheets("Информация").Range("B2").Copy _
            Destination:=wbTo.Worksheets("Информация").Range("B2")
     ' Copy from page ф.1
    wbFrom.Worksheets("ф.1").Range("H6:H31").Copy _
            Destination:=wbTo.Worksheets("ф.1").Range("I6")
    wbFrom.Worksheets("ф.1").Range("H34:H34").Copy _
            Destination:=wbTo.Worksheets("ф.1").Range("I34")
    wbFrom.Worksheets("ф.1").Range("H35:H58").Copy _
            Destination:=wbTo.Worksheets("ф.1").Range("I36")
    wbFrom.Worksheets("ф.1").Range("H66:H100").Copy _
            Destination:=wbTo.Worksheets("ф.1").Range("I67")
    ' Copy from page инв.
    wbFrom.Worksheets("инв.").Range("L9:O71").Copy _
            Destination:=wbTo.Worksheets("инв.").Range("L9")
    wbFrom.Worksheets("инв.").Range("AD9:AE71").Copy _
            Destination:=wbTo.Worksheets("инв.").Range("R9")
    wbFrom.Worksheets("инв.").copyRange("AJ9:AJ71").Copy _
            Destination:=wbTo.Worksheets("инв.").Range("AG9")
   ' Copy from page кап.
    wbFrom.Worksheets("кап.").Range("Z11:AA51").Copy _
            Destination:=wbTo.Worksheets("кап.").Range("N11")
 wbFrom.Worksheets("кап.").Range("I11:J51").Copy _
            Destination:=wbTo.Worksheets("кап.").Range("I11")
' Copy from page заем
    wbFrom.Worksheets("заем").Range("AK9:AQ135").Copy _
            Destination:=wbTo.Worksheets("заем").Range("AC9")
   wbFrom.Worksheets("заем").Range("P9:Z135").Copy _
            Destination:=wbTo.Worksheets("заем").Range("P9")
' Copy from page зап.
    wbFrom.Worksheets("зап.").Range("N8:N48").Copy _
            Destination:=wbTo.Worksheets("зап.").Range("L8")
    wbFrom.Worksheets("зап.").Range("U7:U53").Copy _
            Destination:=wbTo.Worksheets("зап.").Range("P7")
' Copy from page ВГО_зап
    wbFrom.Worksheets("ВГО_зап").Range("F14:H114").Copy _
            Destination:=wbTo.Worksheets("ВГО_зап").Range("F14")
    wbFrom.Worksheets("ВГО_зап").Range("L14:L114").Copy _
            Destination:=wbTo.Worksheets("ВГО_зап").Range("I14")
' Copy from page ДЗ
    wbFrom.Worksheets("ДЗ").Range("Q7:Q53").Copy _
            Destination:=wbTo.Worksheets("ДЗ").Range("M7")
    wbFrom.Worksheets("ДЗ").Range("AG7:AG53").Copy _
            Destination:=wbTo.Worksheets("ДЗ").Range("V7")
' Copy from page ВГО_ДЗ
    wbFrom.Worksheets("ВГО_ДЗ").Range("P7:R1006").Copy _
            Destination:=wbTo.Worksheets("ВГО_ДЗ").Range("M7")
    wbFrom.Worksheets("ВГО_ДЗ").Range("I7:L1006").Copy _
            Destination:=wbTo.Worksheets("ВГО_ДЗ").Range("I7")
' Copy from page ДС
    wbFrom.Worksheets("ДС").Range("J17:J216").Copy _
            Destination:=wbTo.Worksheets("ДС").Range("I17")
    wbFrom.Worksheets("ДС").Range("E17:H216").Copy _
            Destination:=wbTo.Worksheets("ДС").Range("E17")
' Copy from page ДЦИ
    wbFrom.Worksheets("ДЦИ").Range("K10:R407").Copy _
            Destination:=wbTo.Worksheets("ДЦИ").Range("O10")
    wbFrom.Worksheets("ДЦИ").Range("AK10:AL407").Copy _
            Destination:=wbTo.Worksheets("ДЦИ").Range("X10")
    wbFrom.Worksheets("ДЦИ").Range("AV10:AW407").Copy _
            Destination:=wbTo.Worksheets("ДЦИ").Range("AT10")
' Copy from page ДЦИ_список_дог_скрыт
    wbFrom.Worksheets("ДЦИ_список_дог_скрыт").Range("A9:B1000").Copy _
            Destination:=wbTo.Worksheets("ДЦИ_список_дог_скрыт").Range("A9")
' Copy from page КЗ
    wbFrom.Worksheets("КЗ").Range("J6:J36").Copy _
            Destination:=wbTo.Worksheets("КЗ").Range("E6")
' Copy from page ВГО_КЗ
    wbFrom.Worksheets("ВГО_КЗ").Range("O8:Q1011").Copy _
            Destination:=wbTo.Worksheets("ВГО_КЗ").Range("O8")
    wbFrom.Worksheets("ВГО_КЗ").Range("AA8:AD1011").Copy _
            Destination:=wbTo.Worksheets("ВГО_КЗ").Range("R8")
' Copy from page кредит
    wbFrom.Worksheets("кредит").Range("J9:Y184").Copy _
            Destination:=wbTo.Worksheets("кредит").Range("J9")
    wbFrom.Worksheets("кредит").Range("AH9:AI184").Copy _
            Destination:=wbTo.Worksheets("кредит").Range("Z9")
' Copy from page ОН
    wbFrom.Worksheets("ОН").Range("G5:G38").Copy _
            Destination:=wbTo.Worksheets("ОН").Range("E5")
' Copy from page ОО
    wbFrom.Worksheets("ОО").Range("R6:R27").Copy _
            Destination:=wbTo.Worksheets("ОО").Range("K6")
' Copy from page ДБП
    wbFrom.Worksheets("ДБП").Range("O14:U142").Copy _
            Destination:=wbTo.Worksheets("ДБП").Range("O14")
    wbFrom.Worksheets("ДБП").Range("AE14:AE142").Copy _
            Destination:=wbTo.Worksheets("ДБП").Range("V14")
    wbFrom.Worksheets("ДБП").Range("AG14:AH142").Copy _
            Destination:=wbTo.Worksheets("ДБП").Range("W14")
' Copy from page АПП
    wbFrom.Worksheets("АПП").Range("P8:P40").Copy _
            Destination:=wbTo.Worksheets("АПП").Range("K8")
    wbFrom.Worksheets("АПП").Range("S8:S22").Copy _
            Destination:=wbTo.Worksheets("АПП").Range("R8")
    ' Copy from page ВНА2
    wbFrom.Worksheets("ВНА2").Range("AD9:AD68").Copy _
            Destination:=wbTo.Worksheets("ВНА2").Range("U9")
    ' Copy from page СС_Ф1
    wbFrom.Worksheets("СС_Ф1").Range("O7:X227").Copy _
            Destination:=wbTo.Worksheets("СС_Ф1").Range("E7")
    wbFrom.Worksheets("СС_Ф1").Range("C28:D227").Copy _
            Destination:=wbTo.Worksheets("СС_Ф1").Range("C28")
    wbFrom.Worksheets("СС_Ф1").Range("AU7:BD227").Copy _
            Destination:=wbTo.Worksheets("СС_Ф1").Range("AK7")
    ' Copy from page СС_Ф2
    wbFrom.Worksheets("СС_Ф2").Range("F31:G180").Copy _
            Destination:=wbTo.Worksheets("СС_Ф2").Range("F31")
' Copy from page ССЧ
    wbFrom.Worksheets("ССЧ").Range("D5").Copy _
            Destination:=wbTo.Worksheets("ССЧ").Range("C5")
' Copy from page ВАЛ
    wbFrom.Worksheets("ВАЛ").Range("K8:P12").Copy _
            Destination:=wbTo.Worksheets("ВАЛ").Range("E8")

End Sub
Изменено: FYS - 09.04.2026 23:08:05
 
 
 
#2
09.04.2026 13:01:14
Запишите макрорекордером макрос копирования и вставки данных через Специальная вставка - Значения
П.С. Код в сообщении оформите соответствующим тегом (на панели значок <...>)
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
09.04.2026 13:20:09
Цитата
написал:
Код в сообщении оформите соответствующим тегом (на панели значок  )
Спасибо, но, я не понял эту часть? Что мне нужно сделать - я начинающий в макросах.
Примечание: у меня много листов в книге и много данных на каждом листе, при этом некоторые цифры формулами, как мне решить данный вопрос в макросе, который я указал. Он в целом работает нормально, но, только проблема с ячейками, в которых указаны формулы (итоги и т.д.), а мне необходимо получить значениями в книгу назначения. Благодарю!
 
 
 
#4
09.04.2026 23:01:58
FYS, Тебе не нужно Copy вообще -он всегда тащит формулы, форматы и всё остальное. Самый быстрый и правильный способ - присваивать значения напрямую, на примере:
Код
DestinationRange.Value = SourceRange.Value
В вашем случае:
Код
    ' Информация
    wbTo.Worksheets("Информация").Range("B2").Value = _
            wbFrom.Worksheets("Информация").Range("B2").Value
и так далее.
Цитата
Sanja написал:
П.С. Код в сообщении оформите соответствующим тегом (на панели значок  )
FYS, смотрите скриншот как это делается ниже. Удачи.
 
 
 
#5
09.04.2026 23:17:25
Цитата
MikeVol написал:
FYS , смотрите скриншот как это делается ниже. Удачи.
Спасибо большое! Завтра протестирую на работе и напишу по результатам.
Изменено: FYS - 09.04.2026 23:17:38
 
 
 
Страницы: 1
Читают тему
Наверх