- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 导入数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107793)
-- 发布时间：2017/10/10 11:18:00
-- 导入数据
如何在已经有的表 中 导入文件中的数据
我设置了一个Button按钮
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.SourceTableName = "履历信息"
mg.DataTableName = "履历信息"
mg.Merge()
End If
使用以上代码之后会出现这种错误
.NET Framework 版本：2.0.50727.8794
Foxtable 版本：2017.8.19.1
错误所在事件：
详细错误信息：
Unrecognized database format \'C:\\Users\\LTHero\\Desktop\\111.xls\'.
求大神解决 谢谢
-- 发布时间：2017/10/10 11:28:00
--
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.Format = "Excel"
mg.SourceTableName = "履历信息$"
mg.DataTableName = "履历信息"
mg.Merge()
End If
-- 发布时间：2017/10/10 11:34:00
--
不加$出这个错误
.NET Framework 版本：2.0.50727.8794
Foxtable 版本：2017.8.19.1
错误所在事件：
详细错误信息：
The Microsoft Jet database engine could not find the object \'履历信息\'. Make sure the object exists and that you spell its name and the path name correctly.
加了之后是这个错误
.NET Framework 版本：2.0.50727.8794
Foxtable 版本：2017.8.19.1
错误所在事件：
详细错误信息：
\'履历信息$\' is not a valid name. Make sure that it does not include invalid characters or punctuation and that it is not too long.
帮忙解决以下 谢谢大神
-- 发布时间：2017/10/10 11:46:00
--
试试改成下面，红色的改成你excel里面表格的名字。
如果还有问题，excel文件发上来看看。
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.Format = "Excel"
mg.SourceTableName = "sheet$"
mg.DataTableName = "履历信息"
mg.Merge()
End If
-- 发布时间：2017/10/10 11:59:00
--
文件是这个
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:111.xls |
-- 发布时间：2017/10/10 12:09:00
--
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim mg As New Merger
mg.SourcePath = dlg.FileName
mg.Format = "Excel"
mg.SourceTableName = "履历信息_table1$"
mg.DataTableName = "履历信息"
mg.Merge()
End If
-- 发布时间：2017/10/10 12:16:00
--
好了 解决了 谢谢大神