以文本方式查看主题

-  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=105675)

--  作者:danielwangp
--  发布时间:2017/8/23 23:08:00
--  写导入Excel数据时的代码出错
您好!我创建一个窗口, 并添加了一个“导入”按钮, 想从Excel中导入数据进窗口上的表。 导入的代码如下:

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    MessageBox.Show("你选择的是:" & dlg.FileName,"提示") \'提示用户选择的文件
End If
Dim mg As New Merger
mg.SourcePath = dlg.filename
mg.Format = "excel" \'指定格式
mg.SourceTableName = "ABC" \'指定要合并的表
mg.DataTableName = "商品主数据" \'指定接收数据的表
mg.Merge() \'开始合并

建成后能执行到“End if”那一步,然后出现如下错误信息, 是怎么回事?麻烦帮助一下,谢谢了!

The Microsoft Jet database engine could not find the object \'ABC\'.  Make sure the object exists and that you spell its name and the path name correctly.

--  作者:有点甜
--  发布时间:2017/8/23 23:49:00
--  

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim book As new XLS.Book(dlg.FileName)

    Dim mg As New Merger
    mg.SourcePath = dlg.filename
    mg.Format = "excel" \'指定格式
    mg.SourceTableName = book.Sheets(0).name & "$" \'指定要合并的表
    mg.DataTableName = "商品主数据" \'指定接收数据的表
    mg.Merge() \'开始合并
End If


--  作者:danielwangp
--  发布时间:2017/12/6 11:53:00
--  十分感谢!
十分感谢!