从特定单元格开始将变量范围从一个工作簿粘贴到另一个工作簿

Question

我正在尝试将关闭的工作表中“A”列到“K”列中的单元格中的数据复制到打开的工作表中，从单元格“A4”开始，同时保持源格式。工作簿 A 是我要从中复制的那个，而工作簿是我要粘贴到的那个。

Sub cmdUpdate_Click()
Dim LastRow As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Workbooks.Open Filename:="path to Workbook A", ReadOnly:=True
Windows("Workbook A").Activate
Range("A3" & ":K" & LastRow).Select
Selection.Copy
Workbooks("Workbook B").Cells(Rows.Count, 4).PasteSpecial Paste:=PasteAllUsingSourceTheme

我收到的错误是“范围类的选择方法失败”。

Answer 1

你可以试试这个。这不使用select 语句，但仍复制与其明确声明的范围相同的范围，而不是使用select 语句（应尽可能避免）

Sub cmdUpdate_Click()
Dim LastRow As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Workbooks.Open Filename:="path to Workbook A", ReadOnly:=True
Workbooks("Workbook A").Range("A3" & ":K" & LastRow).Copy
Workbooks("Workbook B").Cells(Rows.Count, 4).PasteSpecial Paste:=xlPasteAllUsingSourceTheme

---

在进一步的 cmets 后更新：

你可以试试这个：

Dim wb1 As Workbook, wb2 As Workbook
Dim ws1 As Worksheet, ws2 As Worksheet
Dim LastRow As Long
Dim rng As Range

Set wb1 = Workbooks.Open("path to Workbook A", ReadOnly:=True)
Set wb2 = Workbooks("Workbook B")

Set ws1 = wb1.Sheets("Relevant Worksheet in A")
Set ws2 = wb2.Sheets("Relevant Worksheet in B")

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
Set rng = ws1.Range("A3" & ":K" & LastRow)

rng.Copy

With ws2
    .Cells(Cells(.Rows.Count, "D").End(xlUp).Row, 4).PasteSpecial Paste:=xlPasteAllUsingSourceTheme
End With