TC官方合作论坛

标题: TC和懒人办公插件。调用懒人函数有BUG吗？ [打印本页]

作者: 剑仙十号 时间: 2016-6-13 20:26
标题: TC和懒人办公插件。调用懒人函数有BUG吗？

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)

作者: 个人神话 时间: 2016-6-13 20:37
TC5 现在自带基本EXCEL读写功能了吧？不是做办公软件，用数据库比较好

作者: feskar 时间: 2016-6-14 09:31

个人神话发表于 2016-6-13 20:37
TC5 现在自带基本EXCEL读写功能了吧？不是做办公软件，用数据库比较好

如果是办公就需要用到excel了,别人发来表格,想流程化处理表格的数据,目前来说懒人插件还是比较好用的,奈何现在TC对懒人插件的支持不够完善

作者: dongxc25 时间: 2016-6-20 16:06

feskar 发表于 2016-6-14 09:31
如果是办公就需要用到excel了,别人发来表格,想流程化处理表格的数据,目前来说懒人插件还是比较好用的,奈 ...

我大量使用懒人处理excel表格，挺好的，BUG不是很多吧。有一个懒人群你可以搜一下，群主基本问题都会解答。

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)