马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
TC和懒人办公插件。调用懒人函数有BUG吗?
插件来源:
TC论坛。插件专区。
【新版】懒人办公插件 V15.0918.0.4(支持 Excel/ET/Word/Access)
楼主 lxj1985 发消息本帖最后由 lxj1985 于 2015-11-7 22:09 编辑
测试目标:EXCEL功能区.数据处理.筛选.
测试命令:LazyExcel.ExcelFilter()
下面代码换成了TC格式的。
功能 执行()
注册插件("rc:LazyOffice.dll", 真)
变量 LazyExcel, path, Index, Arr
path = "c:\\测试.xls"
LazyExcel = 插件 ("Lazy.LxjExcel")
Index = LazyExcel.ExcelOpen(path, 1)
//写入数据用来测试 筛选命令
遍历(变量 m = 1; m < 7; m++)
遍历(变量 n = 1; n < 5; n++)
LazyExcel.ExcelWrite( 1, m, n, m * n, Index)
结束
结束
//对第2列和第3列执 行筛选
Arr = LazyExcel.ExcelFilter(1, 1, 2, "<5 or >8", Index)
Arr = LazyExcel.ExcelFilter(1, 1, 3, ">10", Index)
messagebox(数组转 字符串(Arr))
LazyExcel.ExcelFilterOve r(1, Index)
结束
懒人办公插件.
在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)
|