Excel中的删除重复项VBA语句怎么转成Delphi代码???

xiaonanw 2018-04-17 08:13:01
Excel vba语句:ActiveSheet.Range("$E$4:$I$68").RemoveDuplicates Columns:=Array(1, 2, 3, 4), _
Header:=xlNo
怎么转化成Delphi


我写成:ExcelAppxie.ActiveSheetRange['$K$3:O'+inttostr(k)].RemoveDuplicatesColumns:=Array(1, 2, 3, 4); 报错

哪位知道?

这个vba语句就是删除重复项的作用
...全文
832 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
xiaonanw 2018-04-19
引用 1 楼 shw014 的回复:
   ExcelApp.ActiveSheet.Range['$K$3:O'+inttostr(k)].RemoveDuplicates(
                                               Columns:=VarArrayOf([1, 2, 3, 4]),    Header:=2 ) ;
查资料后知道 xlNo=2 ,这里直接用2 代替
非常感谢,调试通过,因为不是专业程序员,不知道去哪里查资料,谢谢,结贴
回复
shw014 2018-04-19
   ExcelApp.ActiveSheet.Range['$K$3:O'+inttostr(k)].RemoveDuplicates(
                                               Columns:=VarArrayOf([1, 2, 3, 4]),    Header:=2 ) ;
查资料后知道 xlNo=2 ,这里直接用2 代替
回复
发帖
非技术区
创建于2007-08-02

799

社区成员

Delphi 非技术区
申请成为版主
帖子事件
创建了帖子
2018-04-17 08:13
社区公告
暂无公告