Как перенести информацию из одного файла в другой

Question

Мне нужно передать информацию из одного файла в другой.

Файл, из которого поступает информация:

The information I need is from columns D (RTO021,RTO022,etc.), column O (28000, 2000,etc) and the date from the merged cells G to N (07/06/2020).

The macro should place this information into a file with the below aspect:
введите описание изображения здесь

Столбцы «Тип факта», «Единица», «Рынок» и «Дата» должны всегда иметь одно и то же значение, а столбцы, содержащие «Продукт» и «Стоимость», должны меняться соответственно.

Answer 1

Насколько я понимаю, вы хотели бы скопировать информацию из одной книги в другую. Вы должны определить исходный диапазон и целевой диапазон. Затем вы можете использовать следующую команду.

rngTarge.Value = rngSource.Value

Важно иметь правильную ссылку на диапазоны, как в этом примере. Имена книг - Target и Source, и аналогично имена рабочих листов - Target и Source.

Sub CopySomething()
    Dim wbSource As Workbook
    Dim wbTarget As Workbook
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim rngSource As Range
    Dim rngTarge As Range
    Set wbTarget = Workbooks("Target.xlsm") 'Set the workbooks
    Set wbSource = Workbooks("Source.xlsm")
    Set wsSource = wbSource.Worksheets("Source") ' Set the worksheets as they are in the workbooks
    Set wsTarget = wbTarget.Worksheets("Target")
    Set rngSource = wsSource.Range("A1:A5")  ' Set the ranges as they are in the sheets
    Set rngTarge = wsTarget.Range("A1:A5")
    ' assign the values
    rngTarge.Value = rngSource.Value
End Sub