У меня есть две идентичные рабочие книги, в которых есть одинаковые именованные диапазоны.В одной из рабочих книг (wbSource) эти именованные диапазоны содержат данные, а в другой рабочей книге (wbTarget) именованные диапазоны пусты.Я пытаюсь найти решение для передачи данных в именованных диапазонах от wbSource к wbTarget.Буду признателен, если кто-то здесь может помочь мне с этим.Я попытался использовать приведенный ниже код, но безуспешно.
Sub dataTransfer()
Dim targetModel, sourceModel, fileC As String
Dim rangesArray As Variant
targetModel = "Target.xlsm"
sourceModel = "Source.xlsm"
fileC = "C:\mypath\"
Dim wbSource As Workbook: Set wbSource = Workbooks.Open(Filename:=fileC & sourceModel)
Dim wbTarget As Workbook: Set wbTarget = Workbooks.Open(Filename:=fileC & targetModel)
rangesArray = Array("Coconut", "Apple", "Pear") 'An array of the names for the named ranges in both wbSource and wbTarget.
For Each element in rangesArray
wbTarget.Range(element) = wbSource.Range(element)
Next element
End Sub