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

wylong 发表于 2004-4-30 09:08:00

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

mikewolf2k 发表于 2004-4-30 16:18:00

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

ssjcmai 发表于 2004-8-17 10:27:00

顶，不错
页: [1]
查看完整版本: 请看这句代码有什么问题