- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 为什么导入的时候一直出错 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=109946)
-- 发布时间：2017/11/23 14:03:00
-- 为什么导入的时候一直出错
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "excel文件|*.xls;*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim mg As New Merger
mg.Format = "excel" \'指定格式
mg.SourcePath = dlg.FileName
mg.SourceTableName = "行政区域"
mg.DataTableName = "行政区域"
mg.Merge()
End If
此主题相关图片如下：qq图片20171123140133.png
此主题相关图片如下：qq图片20171123140133.png-- 发布时间：2017/11/23 14:18:00
--
你excel文件里面，sheet1、sheet2的名字叫什么？试试改成
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "excel文件|*.xls;*.xlsx" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim mg As New Merger
mg.Format = "excel" \'指定格式
mg.SourcePath = dlg.FileName
mg.SourceTableName = "sheet1$"
mg.DataTableName = "行政区域"
mg.Merge()
End If
-- 发布时间：2017/11/23 14:21:00
-- 可以了，，，我一直以为那个是导入表的名字
可以了