• 全部

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

社区成员

5.4w+

社区内容

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