易语言 调用excel对象 这句VBA如何翻译？

hnabing

   Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("G1"), Unique:=True
   


如何把上面这句翻译成易语言调用EXCEL对象格式，我试了很多种，没有成功
这句话的意思是把A列的数据进行筛选，去重后，放入G列

以下是我试验的语句，都不成功


Excel对象.读对象型属性 (“Worksheets”, ).读对象型属性 (“Item”, 1).读对象型属性 (“Range”, “A:A”).通用方法 (“AdvancedFilter”, “Action:=xlFilterCopy”, “CopyToRange:="表格对象.读对象型属性("Range","G1"), “Unique:= True”)


Excel对象.读对象型属性 (“Worksheets”, ).读对象型属性 (“Item”, 1).读对象型属性 (“Range”, “A:A”).通用方法 (“AdvancedFilter”, “Action:=xlFilterCopy,CopyToRange:=Range(G1),Unique:= True”)



通用方法  方法 对象型方法  都试过了

Columns("A:A")   这个我试过，也不知道怎么用，只能用Range（“A:A"）代替

求高手解答

cyi100

.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 单元格对象, 对象
.局部变量 参数3, 变体型

单元格对象 ＝ Excel对象.读对象型属性 (“Cells”, )
参数3 ＝ 单元格对象.读属性 (“Range”, “C1”)
Excel对象.读对象型属性 (“Range”, “A:A”).通用方法 (“AdvancedFilter”, 2, , 参数3, 真)
调试输出 (表格对象.取错误 ())


楼主自己解决了 我来蹭个热度   希望再遇到这个问题不用纠结这么久。。。

mxshy

那你就用Range,因为你理解的问题...

hnabing

mxshy 发表于 2018-6-8 16:03
那你就用Range,因为你理解的问题...

这样回答是不是太随意了？没解决问题呀，我问那句vba怎么用易语言实现
Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("G1"), Unique:=True

mxshy

hnabing 发表于 2018-6-8 18:14
这样回答是不是太随意了？没解决问题呀，我问那句vba怎么用易语言实现
Columns("A:A").AdvancedFilter A ...

“Excel对象.读对象型属性 (“Worksheets”, ).读对象型属性 (“Item”, 1).”因为这句代码是错的....下面自己解决吧

hnabing

mxshy 发表于 2018-6-8 20:39
“Excel对象.读对象型属性 (“Worksheets”, ).读对象型属性 (“Item”, 1).”因为这句代码是错的....下 ...

你这回答都快赶上股评家了，头都能解释，哪句错了呀？？？？你直接上个对的出来，我好知道错在哪里呀。

hnabing

语法
AdvancedFilter( Action , CriteriaRange , CopyToRange , Unique )
表达式。AdvancedFilter(操作， CriteriaRange ， CopyToRange ，Unique)

表达式_一个表示一个Range对象的变量。
参数
名称        必需/可选        数据类型        说明
Action        必需        XlFilterAction        指定是否要复制或筛选的列表中的位置的XlFilterAction常量之一。
CriteriaRange        可选        Variant        条件区域。如果省略该参数，则没有条件限制。
CopyToRange        可选        Variant        如果_操作_是xlFilterCopy ，复制的行的目标区域。否则，该参数将被忽略。
Unique        可选        Variant        True要筛选重复的记录。假以筛选符合条件的所有记录。默认值为False 。


以上是这个AdvancedFilter方法的语法，共有4个参数，除第一个必选以外，其他三个为可选，第一个参数可以用整数1和2，后面三个参数我就不知道用什么格式传了


Range("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("G1"), Unique:=True
上面这条是原句

我目前只翻译到下面这样
表格对象.读对象属性（“Range”,"A:A"）.通用方法（“AdvancedFilter”，1）
上面这句，只是想试试这样调用是否有反应，所以第一个参数设置成了1，要是按Action:=xlFilterCopy的参数要求，这个参数应该是2
下面的问题就是 CopyToRange:=Range("G1"), Unique:=True 这样的参数怎么翻译成易语言格式传递过去


在宏里，上面这条语句的参数，可以像如下这样简写：

Range("A:A").AdvancedFilter 2，， Range("G1")，1


用易语言试了，只有第三个参数不知道怎么传送

表格对象.读对象属性（“Range”,"A:A"）.通用方法（“AdvancedFilter”，1，，，1）
像上面这条没有第三个参数的语句，可以正常使用，现在就纠结第三个参数，也就是Range("G1")以何种形式传送的问题了

求高手解答

hnabing

刚才又在VBE的环境里测试了一下，第三个参数不能以文本的方式传送，也就是说Range("G1")不是一个字符串