- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- excel导入报错的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157370)
-- 发布时间：2020/10/13 17:43:00
-- excel导入报错的问题
同样的 excel模板，让不同的人填写后导入，有的导入正常有的会报错，应当与导入公式无关，有遇到的吗？
此主题相关图片如下：snipaste_2020-10-13_17-37-28.png
-- 发布时间：2020/10/13 19:59:00
--
提示找不到目录。代码发上来看看
-- 发布时间：2020/10/13 21:54:00
--
我现在发现，直接从这几个人的邮件里保存的excel文件导入时会有这个报错，但我用excel打开这个文件点一下保存立即退出，再导入就正常了。在两台电脑上试过都是如此。
另外一些人从邮件里保存下来直接导入也能正常导入。
-- 发布时间：2020/10/13 22:33:00
--
excel文件和代码发上来测试一下
-- 发布时间：2020/10/14 20:59:00
--
蓝老师好，这两天做了实例试了好多轮，包括excel模板，做的简单实例报错不能重现。用原来附件的excel模板，就有很奇怪的事情发生，有的员工发上来的报表导入正常，有的就会报错。报错的这部分也很奇怪，在我的台式机及笔记本是一个样，打开导入报错的excel表直接保存一下再导入就正常。但在另外的一台机器上打开保存一下再导入仍旧会报错，可偏偏报错这台机器是负责整理报表的。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:导入测试.zip |
还有一个问题：
如果有的员工报表里没有项目信息及项目跟进这两个sheet，如何在导入前判断提交的excel工作报表里有没有这两个sheet名，然后再来进行后面一段的导入？
-- 发布时间：2020/10/15 8:51:00
--
那就重新设计这个模板使用吧。注意不要使用wps编辑模板，不要在模板添加各种execl组件，比如控件、图表等等，也不要添加vba宏。就算是添加过然后删除了也会有后遗症的。
判断是否有sheet参考：
Dim Book As New XLS.Book()
Dim h As Boolean
For Each Sheet1 As XLS.Sheet In Book.Sheets
Output.Show(Sheet1.Name)
If Sheet1.Name = "xxx名称" Then
h=True
Exit For
End If
Next
If h Then
msgbox("有")
Else
msgbox("没有")
End If
-- 发布时间：2020/10/15 11:57:00
--
好的，谢谢。
导入的电脑里安装了wps，这个不会有影响吧。
-- 发布时间：2020/10/15 13:33:00
--
不使用wps打开和编辑文件一般不会有影响
-- 发布时间：2020/10/15 15:05:00
--
好的，感谢。