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


  共有3443人关注过本帖树形打印复制链接

主题：电子表格导入问题
帅哥哟，离线，有人找我吗？
HJG_HB950207
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：394 积分：6027 威望：0 精华：0 注册：2015/2/17 10:18:00 		电子表格导入问题  发帖心情 Post By：2023/8/15 11:07:00 [只看该作者]

表 A  列名：车牌，出口时间

用电子表格导入数据到表A

导入之前如何判断电子表格中是否存在 车牌、出口时间 这两列？如存在，导入文件，更名为原始表，否则，提醒“导入资料不符要求”

谢谢！
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110763 积分：563747 威望：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
Next
if n>=2 then 
msgbox("有")
else
msgbox("无")
endif
 回到顶部
帅哥哟，离线，有人找我吗？
hrsoft
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：98 积分：1066 威望：0 精华：0 注册：2020/10/14 23:52:00 		  发帖心情 Post By：2023/9/4 13:59:00 [只看该作者]

蓝版，你上面的代码并没能综合判断出是否存在“车牌”和“出口时间”这两列，如果“车牌”列不是放在第一列而是第3列或更后面，表中即使仅存在车牌而没有“出口时间”列，它也会提示有。

想要的真正结果是：不管理这“车牌”和“出口时间”放在哪一列位置，如果缺少其中一列都提示无。上面的代码要如何修改？？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110763 积分：563747 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/9/4 14:10:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
hrsoft
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：98 积分：1066 威望：0 精华：0 注册：2020/10/14 23:52:00 		  发帖心情 Post By：2023/9/4 22:37:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：提示.gif
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
hrsoft
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：98 积分：1066 威望：0 精华：0 注册：2020/10/14 23:52:00 		  发帖心情 Post By：2023/9/4 22:41:00 [只看该作者]

难道是我的电脑问题？因为今天启动项目时，出现这样的错误提示

图片点击可在新窗口打开查看此主题相关图片如下：2023-09-04_140130.gif
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：2023-09-04_123921.gif
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110763 积分：563747 威望：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
Next
If n >= 2 Then 
    msgbox("有")
Else
    msgbox("无")
End if
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110763 积分：563747 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/9/4 22:51:00 [只看该作者]

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

 回到顶部
帅哥哟，离线，有人找我吗？
hrsoft
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：98 积分：1066 威望：0 精华：0 注册：2020/10/14 23:52:00 		  发帖心情 Post By：2023/9/4 23:14:00 [只看该作者]

还有其中一个项目的系统的菜单栏内容也有缺失，不知道是什么原因

图片点击可在新窗口打开查看此主题相关图片如下：1.gif
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110763 积分：563747 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/9/5 8:31:00 [只看该作者]

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

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询