TC论坛。插件专区。
【新版】懒人办公插件 V15.0918.0.4(支持 Excel/ET/Word/Access)
楼主 lxj1985 发消息本帖最后由 lxj1985 于 2015-11-7 22:09 编辑
懒人插件.在TC中调用返回值为数组的函数,就会提示错误。
在AJJL中调用这个函数,却是正常的。
Dim LazyExcel,path,Index,Arr
path="C:\测试.xls"
Set LazyExcel= CreateObject("Lazy.LxjExcel")
Index = LazyExcel.ExcelOpen(path, 1)
'写入数据用来测试筛选命令
For m = 1 To 6
For n = 1 To 4
Call LazyExcel.ExcelWrite(1, m, n, m*n, Index)
Next
Next
'对第2列和第3列执行筛选
Arr = LazyExcel.ExcelFilter(1,1,2, "<5 or >8", Index)
Arr = LazyExcel.ExcelFilter(1, 1, 3, ">10", Index)
MsgBox join(Arr, VbCrlf)
'筛选结束
Call LazyExcel.ExcelFilterOver(1,Index)
|