从具有命名范围的外部书籍获取数据到命名范围

Question

大家早上好，

我的 vba 经验相当有限，但通常可以调整“谷歌搜索”代码以满足我的大部分基本需求。 但是，我目前对以下代码有疑问。目的是从一张表中的表中获取数据，并将其复制到另一张表上的大小相同的表（均称为命名范围 - MainList）中。

它适用于单个单元格，但不想做整个范围。有人可以帮忙吗？

Dim path As String
path = ActiveSheet.Range("A1").Value

Dim currentWb As Workbook
Set currentWb = ThisWorkbook

Dim openWb As Workbook
Set openWb = Workbooks.Open(path)

Dim openWs As Worksheet
Set openWs = openWb.Sheets("Job Details")

currentWb.Sheets("Main List").Range("MainList") = openWs.Range("MainList")

openWb.Close (False)

Answer 1

使用复制和粘贴

Dim openWb As Workbook
Dim openWs As Worksheet
Dim openRange As Range
Dim destRange As Range

Set openWb = Workbooks.Open("E:\DOCS\Book1.xlsm")
Set openWs = openWb.Sheets("Sheet1")
Set openRange = openWs.Range("$A$1:$H$16")
Set destRange = ThisWorkbook.Sheets("Sheet1").Range("$A$1:$H$16")

'magic happens here
openRange.Copy
destRange.PasteSpecial

openWb.Close False

Set openWs = Nothing
Set openWb = Nothing