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语句就是删除重复项的作用
...全文
909 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
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 代替

830

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 非技术区
社区管理员
  • 非技术区社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧