Excel 如何修复此代码中的“Error438:对象不支持此属性或方法”？

我明白了

错误438:对象不支持此属性或方法 当我尝试从一个工作簿粘贴到另一个工作簿时。语法错了吗

试试这个：

ALMscen.Worksheets(1).Range(Cells(firstrow, 6), Cells(lastrow, 15)).Copy _
Destination:=Wrkbk.Worksheets("Sheet1").Range("E2")

其中：Sheet1是工作簿的原始工作表，也可以像此工作表\u sheetname\u那样调用该工作表。其中sheetname是工作表的实际名称

铁道部信息 在这里，您正在正确地执行Wrkbk.worksheetsheet1.RangeCells2，34，CellsUnsen*115+1，34.Value=0，因为您调用了集合中的对象

看： 工作簿包含工作表，如果要调用任何工作表，则需要遵守顺序 我看见你了

---

Wrkbk.worksheetsheet1.RangeCells2，34，CellsUnsen*115+1，34。Value=0

范围对象是工作表对象的属性，而不是工作簿对象。因此，您需要使用工作表来限定范围引用，例如ALMscen.worksheetsheets1.range。。。。另外，我看到您还没有定义firstrow和lastrow。

ALMscen.Worksheets(1).Range(Cells(firstrow, 6), Cells(lastrow, 15)).Copy _
Destination:=Wrkbk.Worksheets("Sheet1").Range("E2")