- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]有三个问题：1、在导入数据时数据为(空)，直接录入为空值，怎么实现？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=146629)
-- 发布时间：2020/2/28 5:50:00
-- [求助]有三个问题：1、在导入数据时数据为(空)，直接录入为空值，怎么实现？
[求助]有三个问题：1、在导入数据时数据为(空)，直接录入为空值，怎么实现？
如例中导入老表时总出错？
2、导入新表弹出一个对话框，怎么解决？
3、还有一个小问题，如果人数是输入5人，我只导入5，怎么解决？
例子在下面连接中：
链接：https://pan.baidu.com/s/1nz74jhdrqoNk1-RtCazUlQ
提取码：de84
-- 发布时间：2020/2/28 10:30:00
--
1、数据问题，如果没有值，sheet(i,12).text这种取得的是空字符串，不能直接赋值给数值列，execl人口数有【3人】这种数据，不能赋值给整数列
dr("体温度数") = val(sheet(i,12).text)
dr("现在居住在文峰宝邸的人口数") = val(sheet(i,13).text)
2、弹出什么提示？
3、dr("现在居住在文峰宝邸的人口数") = val(sheet(i,13).text)
-- 发布时间：2020/2/28 16:05:00
--
如果值为(空)，怎样导进来？
因为表达式中含有(),导入时报错
-- 发布时间：2020/2/28 16:15:00
--
如果是字符列不会有问题，数值列参考2楼
-- 发布时间：2020/2/28 16:26:00
--
我在做一个判断，如果EXCEL某列为(空)，则不导入
If sheet(i,15).text = "(空)" Then
上面这个总是报错？
-- 发布时间：2020/2/28 16:28:00
--
还有一个问题，导入新表总是报下面的错
此主题相关图片如下：搜狗截图20200228162127.jpg
请有点蓝老师指导！谢谢！
抗疫需要
-- 发布时间：2020/2/28 17:15:00
--
If sheet(i,15).text = "" Then
-- 发布时间：2020/2/29 0:43:00
--
我是说EXCEL原来的值为(空)
如果这样 if sheet(i,12) ="(空)" then 写他会报错
"(空)"
-- 发布时间：2020/2/29 9:27:00
--
if sheet(i,12).text ="(空)" then
-- 发布时间：2020/2/29 9:39:00
-- 请看上面报错截图
截图看，估计是有一行是 没内容的， 而不是楼主说的 （空）。所以导入代码 要 多加上空值判断。
If sheet(i,15).text = "(空)" Then
elseIf sheet(i,15).text = "" Then
else
[此贴子已经被作者于2020/2/29 9:40:06编辑过]