请看这句代码有什么问题

mikewolf2k · 发表于 2004-4-29 21:12:00

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