共10 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：电子表格导入问题
1楼
HJG_HB950207 发表于：2023/8/15 11:07:00表 A 列名：车牌，出口时间
用电子表格导入数据到表A
导入之前如何判断电子表格中是否存在 车牌、出口时间 这两列？如存在，导入文件，更名为原始表，否则，提醒“导入资料不符要求”
谢谢！
2楼
有点蓝 发表于：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
3楼
hrsoft 发表于：2023/9/4 13:59:00蓝版，你上面的代码并没能综合判断出是否存在“车牌”和“出口时间”这两列，如果“车牌”列不是放在第一列而是第3列或更后面，表中即使仅存在车牌而没有“出口时间”列，它也会提示有。
想要的真正结果是：不管理这“车牌”和“出口时间”放在哪一列位置，如果缺少其中一列都提示无。上面的代码要如何修改？？
4楼
有点蓝 发表于：2023/9/4 14:10:00代码没有任何问题，就是判断所有列的。除非execl表格列名有重复，比如有2个"车牌"列
5楼
hrsoft 发表于：2023/9/4 22:37:00
此主题相关图片如下：提示.gif
6楼
hrsoft 发表于：2023/9/4 22:41:00难道是我的电脑问题？因为今天启动项目时，出现这样的错误提示
此主题相关图片如下：2023-09-04_140130.gif
此主题相关图片如下：2023-09-04_123921.gif
7楼
有点蓝 发表于：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
8楼
有点蓝 发表于：2023/9/4 22:51:00回6楼，这个应该是文档有不合法的日期值，导入Foxtable后出错，检查一下表格日期值
9楼
hrsoft 发表于：2023/9/4 23:14:00还有其中一个项目的系统的菜单栏内容也有缺失，不知道是什么原因
此主题相关图片如下：1.gif
此主题相关图片如下：1.gif10楼
有点蓝 发表于：2023/9/5 8:31:00说明这个项目之前导入过系统菜单，重新导入即可
共10 条记录, 每页显示 10 条, 页签:
[1]