请看这句代码有什么问题

mikewolf2k

Sheets("sheet1").Rows(j).Insert                 '1


Excelapp.Sheets("sheet1").Rows(j).Insert         '2


含有代码1的程序,vba源程序在excel97和2000.xp下均正常,将其编译成dll,excelapp和j均已赋值,excel2000.xp均调用正常,excel97下却出错,显示"实时错误1004 类range的insert方法无效".请问这是怎么回事,如何修改?


与此现象相同的代码还有:


Excelapp.Sheets("sheet1").Cells(i, 8).Copy Destination:=Excelapp.Sheets("sheet1").Cells(j, 5)


而这句却都正常:


Excelapp.Sheets("sheet1").Cells(j, 7).Value = Excelapp.Sheets("sheet1").Cells(i, 9).Text

wylong

很显然是由于excel97        中的 “range类” 没有 “insert ”方法，建议你看一下excel97的vba帮助文档。

mikewolf2k

不应该是这个原因.前面说过,"vba源程序在excel97和2000.xp下均正常"!!!

ssjcmai

顶，不错