- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]怎么在导入excel时数据是，忽略下面的下面的错误提示？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120033)
-- 发布时间：2018/6/5 23:31:00
-- [求助]怎么在导入excel时数据是，忽略下面的下面的错误提示？
此主题相关图片如下：tim截图20180605232655.png
Dim mg As New Merger
mg.SourcePath = e.FullPath
mg.Format = "excel" \'指定格式
mg.SourceTableName = "地级市$"
mg.DataTableName = "湖南地级市临时表"
mg.Merge()
-- 发布时间：2018/6/6 9:02:00
--
把 地级市$ 改成比如 sheet1$
-- 发布时间：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
-- 发布时间：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