电子表格导入问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 电子表格导入问题

共有3241人关注过本帖树形打印复制链接主题：电子表格导入问题

有点蓝

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

加好友

发短信

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

Post By：2023/8/15 11:16:00 [显示全部帖子]

使用XLS.Book打开execl表格，判断第一行的单元格有没有【车牌、出口时间】这2个数据

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

dim n as integer
For n As Integer = 0 To Sheet.Cols.Count -1
if Sheet(0,n).text = "车牌" orelse Sheet(0,n).text = "出口时间" then

n = n+1

end if

if n>=2 then

msgbox("有")

else

msgbox("无")

endif

有点蓝

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

加好友

发短信

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

Post By：2023/9/4 14:10:00 [显示全部帖子]

代码没有任何问题，就是判断所有列的。除非execl表格列名有重复，比如有2个"车牌"列

有点蓝

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

加好友

发短信

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

Post By：2023/9/4 22:51:00 [显示全部帖子]

回5楼，我测试没有问题，文档发上来测试一下

Dim Book As New XLS.Book("d:\问题\表.xls")

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Dim n As Integer

For i As Integer = 0 To Sheet.Cols.Count - 1

If Sheet(0, i).text = "车牌" OrElse Sheet(0, i).text = "出口时间" Then

n = n + 1

End If

If n >= 2 Then

msgbox("有")

Else

msgbox("无")

End if

有点蓝

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

加好友

发短信

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

Post By：2023/9/4 22:51:00 [显示全部帖子]

回6楼，这个应该是文档有不合法的日期值，导入Foxtable后出错，检查一下表格日期值

有点蓝

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

加好友

发短信

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

Post By：2023/9/5 8:31:00 [显示全部帖子]

说明这个项目之前导入过系统菜单，重新导入即可

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

主题：电子表格导入问题