excel导入报错的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

同样的 excel模板，让不同的人填写后导入，有的导入正常有的会报错，应当与导入公式无关，有遇到的吗？

此主题相关图片如下：snipaste_2020-10-13_17-37-28.png

提示找不到目录。代码发上来看看

我现在发现，直接从这几个人的邮件里保存的excel文件导入时会有这个报错，但我用excel打开这个文件点一下保存立即退出，再导入就正常了。在两台电脑上试过都是如此。

另外一些人从邮件里保存下来直接导入也能正常导入。

excel文件和代码发上来测试一下

蓝老师好，这两天做了实例试了好多轮，包括excel模板，做的简单实例报错不能重现。用原来附件的excel模板，就有很奇怪的事情发生，有的员工发上来的报表导入正常，有的就会报错。报错的这部分也很奇怪，在我的台式机及笔记本是一个样，打开导入报错的excel表直接保存一下再导入就正常。但在另外的一台机器上打开保存一下再导入仍旧会报错，可偏偏报错这台机器是负责整理报表的。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:导入测试.zip

还有一个问题：

如果有的员工报表里没有项目信息及项目跟进这两个sheet，如何在导入前判断提交的excel工作报表里有没有这两个sheet名，然后再来进行后面一段的导入？

那就重新设计这个模板使用吧。注意不要使用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

If h Then

msgbox("有")

Else

msgbox("没有")

End If

好的，谢谢。

导入的电脑里安装了wps，这个不会有影响吧。

不使用wps打开和编辑文件一般不会有影响

主题：excel导入报错的问题