懒人办公插件.返回值为数组的错误。

剑仙十号

懒人办公插件.返回值为数组的错误。
测试目标: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.ExcelFilterOver(1, Index)
结束

这个问题的存在，大大影响了tc的威信。

liuhr_2000

筛选和查找好像都有问题。从5.0就有了。这许多年也没有解决。

剑仙十号

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)

feskar

吧主,我就说有这个问题嘛.上次你在贴吧还说是我个人技术问题.....

剑仙十号

估计作者是想拉点赞助。
插件讨论QQ群：14696622 或 群主QQ。
群主将主动加为好友并尽力解答插件使用中疑惑。