自定义函数导入excel时不是更新而是增加行，窗口导入正确 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自定义函数导入excel时不是更新而是增加行，窗口导入正确

共有2381人关注过本帖树形打印复制链接主题：自定义函数导入excel时不是更新而是增加行，窗口导入正确

foxyuan

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：299 积分：2563 威望：0 精华：0 注册：2018/2/3 10:48:00

Post By：2020/10/8 21:03:00 [只看该作者]

我放在excel的备注列了，有问题这个是：Functions.Execute("导入excel","项目信息","项目编号")

有点蓝

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：106603 积分：542186 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/10/9 10:08:00 [只看该作者]

execl文档本身有问题，直接使用office打开就出错了，另存一下测试就没有问题了

另外如果使用数组赋值逻辑列，直接赋值即可不需要判断逻辑列

For Each m As String In nms.keys

If dt.DataCols(m).Expression > "" Then

'表达式列

Else If dt.DataCols(m).IsNumeric Then

ndr (m) = val(ary(l,nms(m)))

Else If dt.DataCols(m).IsDate Then

Dim d As Date

If Date.TryParse(ary(l,nms(m)), d)

ndr (m) = d

End If

Else

ndr (m) = ary(l,nms(m))

End If

foxyuan

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：299 积分：2563 威望：0 精华：0 注册：2018/2/3 10:48:00

Post By：2020/10/9 18:21:00 [只看该作者]

谢谢。应当与excel格式没有关系，我做得实例是新建的excel表格，不是原来出错的表格。

问题就是出在逻辑列上，如果把exce表中对应的逻辑列删除就不会报错了。按不判断逻辑列来的话，开始原来的excel表格仍报错，但重新导出一份excel表格重新导出就正常了。

总数 13 上一页 1 2

主题：自定义函数导入excel时不是更新而是增加行，窗口导入正确