Question

所以我有一个小问题，可能只是失明！

Public Sub copy_from_another_sheet_all2()

Dim countrows1 As Integer
Dim wb As Workbook

Set wb = Workbooks.Open("\\sassrv01-prod\ewpublic\3929ALL\JeppeKNID.xlsx")

countrows1 = wb.Sheets("X-variabel").Range("A" & Rows.count).End(xlUp).Row

ThisWorkbook.Sheets("X-variabel").Range("A1:R" & countrows1).Value = wb.Sheets("X-variabel").Range("A1:R" & countrows1).Value*

给我一个运行时错误9 - 我不知道为什么？如果有人可以帮助谢谢:)

Answer 1

尝试为范围地址添加新的String变量，我认为它应该可以工作。

Dim addr as String
addr = "A1:R" & countrows1
ThisWorkbook.Sheets("X-variabel").Range(addr).Value = wb.Sheets("X-variabel").Range(addr).Value

但还有另外一种方法，我更喜欢这种方法，那就是使用复制/粘贴来实现这个目的：

wb.Sheets("X-variabel").Range("A1:R" & countrows1).Select
Selection.Copy
ThisWorkbook.Sheets("X-variabel").Paste Destination:=ThisWorkbook.Sheets("X-variabel").Range("A1:R" & countrows1)

运行时错误9 VBA

1 个答案: