- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 电子表格导入问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187829)
-- 发布时间：2023/8/15 11:07:00
-- 电子表格导入问题
表 A 列名：车牌，出口时间
用电子表格导入数据到表A
导入之前如何判断电子表格中是否存在 车牌、出口时间 这两列？如存在，导入文件，更名为原始表，否则，提醒“导入资料不符要求”
谢谢！
-- 发布时间：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 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
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
Next
if n>=2 then
msgbox("有")
else
msgbox("无")
endif
-- 发布时间：2023/9/4 13:59:00
--
蓝版，你上面的代码并没能综合判断出是否存在“车牌”和“出口时间”这两列，如果“车牌”列不是放在第一列而是第3列或更后面，表中即使仅存在车牌而没有“出口时间”列，它也会提示有。
想要的真正结果是：不管理这“车牌”和“出口时间”放在哪一列位置，如果缺少其中一列都提示无。上面的代码要如何修改？？
-- 发布时间：2023/9/4 14:10:00
--
代码没有任何问题，就是判断所有列的。除非execl表格列名有重复，比如有2个"车牌"列
-- 发布时间：2023/9/4 22:37:00
--
此主题相关图片如下：提示.gif
-- 发布时间：2023/9/4 22:41:00
--
难道是我的电脑问题？因为今天启动项目时，出现这样的错误提示
此主题相关图片如下：2023-09-04_140130.gif
此主题相关图片如下：2023-09-04_123921.gif
-- 发布时间：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
Next
If n >= 2 Then
msgbox("有")
Else
msgbox("无")
End if
-- 发布时间：2023/9/4 22:51:00
--
回6楼，这个应该是文档有不合法的日期值，导入Foxtable后出错，检查一下表格日期值
-- 发布时间：2023/9/4 23:14:00
--
还有其中一个项目的系统的菜单栏内容也有缺失，不知道是什么原因
此主题相关图片如下：1.gif
-- 发布时间：2023/9/5 8:31:00
--
说明这个项目之前导入过系统菜单，重新导入即可