[求助]怎么在导入excel时数据是，忽略下面的下面的错误提示？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]怎么在导入excel时数据是，忽略下面的下面的错误提示？

共有2284人关注过本帖树形打印复制链接主题：[求助]怎么在导入excel时数据是，忽略下面的下面的错误提示？

yjm789000

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：136 积分：1723 威望：0 精华：0 注册：2016/7/18 20:17:00

[求助]怎么在导入excel时数据是，忽略下面的下面的错误提示？ 发帖心情

Post By：2018/6/5 23:31:00 [只看该作者]

此主题相关图片如下：tim截图20180605232655.png

Dim mg As New Merger

mg.SourcePath = e.FullPath

mg.Format = "excel" '指定格式

mg.SourceTableName = "地级市$"

mg.DataTableName = "湖南地级市临时表"

mg.Merge()

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/6 9:02:00 [只看该作者]

把地级市$ 改成比如 sheet1$

yjm789000

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：136 积分：1723 威望：0 精华：0 注册：2016/7/18 20:17:00

Post By：2018/6/6 9:39:00 [只看该作者]

是这样的，就是并不是说改下面的sheet之类的，就是想客户导入数据的时候，表格下面的必须是地级市$,如果不是地级市$,就会弹出错误框。我的意思是想加个判断，如果客户导入的表格下面不是地级市$,那么就不执行导入，也不要弹出错误框。我试了在下面加了判断，但是没有。所以想看怎么解决。

Dim mg As New Merger

mg.SourcePath = e.FullPath

mg.Format = "excel" '指定格式

if mg.SourceTableName = "地级市$"

mg.DataTableName = "湖南地级市临时表"

mg.Merge()

end if

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/6 9:58:00 [只看该作者]

要用xls.book处理，参考

Dim book As new XLS.Book("d:\test.xls")
Dim contain As Boolean = False
For i As Integer = 0 To book.Sheets.count-1
    If book.sheets(i).name = "sheet1" Then
        contain = True
        Exit For
    End If
Next
If contain Then
    msgbox(1)
Else
    msgbox(2)
End If

下一主题 >> << 上一主题

主题：[求助]怎么在导入excel时数据是，忽略下面的下面的错误提示？