Dim ip As New Importer - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → Dim ip As New Importer

共有4084人关注过本帖树形打印复制链接主题：Dim ip As New Importer

fvcfox

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

加好友

发短信

等级：二尾狐帖子：571 积分：5432 威望：0 精华：0 注册：2020/5/7 13:05:00

Dim ip As New Importer 发帖心情

Post By：2022/1/14 11:05:00 [只看该作者]

使用导入表格的代码，如果电子表格有合并的单元格，在导入时会出错，要怎样防止出错

有点蓝

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

加好友

发短信

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

Post By：2022/1/14 11:13:00 [只看该作者]

放到try里：http://www.foxtable.com/webhelp/topics/2070.htm

fvcfox

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

加好友

发短信

等级：二尾狐帖子：571 积分：5432 威望：0 精华：0 注册：2020/5/7 13:05:00

Post By：2022/1/14 11:35:00 [只看该作者]

此主题相关图片如下：微信截图_20220114111726.png

是以上的出错

try

ip.Import()

Catch ex As Exception

MessageBox.Show("导入的表格有问题, 请尝试只保留有用的数据行, 将合计行等没用行删除后再导入")

Return

End Try

不起作用

[此贴子已经被作者于2022/1/14 11:38:51编辑过]

有点蓝

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

加好友

发短信

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

Post By：2022/1/14 11:43:00 [只看该作者]

那就没有办法了。换种方式导入数据：http://www.foxtable.com/webhelp/topics/2334.htm

fvcfox

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

加好友

发短信

等级：二尾狐帖子：571 积分：5432 威望：0 精华：0 注册：2020/5/7 13:05:00

Post By：2022/1/15 14:06:00 [只看该作者]

Dim Book As New XLS.Book("c:\test\订单.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
msgbox(Sheet.Rows.Count -1)

可以读取有效行，但msgbox(Sheet.cols.Count -1)并不是有效，而是255列，有办法读取有效列吗

有点蓝

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

加好友

发短信

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

Post By：2022/1/15 14:43:00 [只看该作者]

正常都是有效列，不有效的原因一般是execl被编辑，或者其它软件导出的时候使用到了后面的列。

如果是手工编辑的execl，选中所有非有效列，删除一次即可。其它情况只能使用vba处理了，参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=92748

fvcfox

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

加好友

发短信

等级：二尾狐帖子：571 积分：5432 威望：0 精华：0 注册：2020/5/7 13:05:00

Post By：2022/1/15 16:17:00 [只看该作者]

怎样在生成的临时表

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("产品", GetType(String), 32)
dtb.AddDef("客户", GetType(String), 32)
dtb.AddDef("数量", GetType(Integer))
dtb.AddDef("金额", GetType(Double))
dtb.Build()
MainTable= Tables("统计")

的DataColChanged写代码

有点蓝

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

加好友

发短信

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

Post By：2022/1/15 16:36:00 [只看该作者]

到全局表事件处理：http://www.foxtable.com/webhelp/topics/0671.htm

下一主题 >> << 上一主题

主题：Dim ip As New Importer