Foxtable(狐表)用户栏目专家坐堂 → 写导入Excel数据时的代码出错


  共有1572人关注过本帖树形打印复制链接

主题:写导入Excel数据时的代码出错

帅哥哟,离线,有人找我吗?
danielwangp
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:5 积分:125 威望:0 精华:0 注册:2017/8/23 22:59:00
写导入Excel数据时的代码出错  发帖心情 Post By:2017/8/23 23:08:00 [只看该作者]

您好!我创建一个窗口, 并添加了一个“导入”按钮, 想从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.

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:5 积分:125 威望:0 精华:0 注册:2017/8/23 22:59:00
十分感谢!  发帖心情 Post By:2017/12/6 11:53:00 [只看该作者]

十分感谢!

 回到顶部