Foxtable(狐表)用户栏目专家坐堂 → 如何导入一个EXCEL文件中的多个工作表


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

主题:如何导入一个EXCEL文件中的多个工作表

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


加好友 发短信
等级:三尾狐 帖子:601 积分:5532 威望:0 精华:0 注册:2011/9/30 8:42:00
如何导入一个EXCEL文件中的多个工作表  发帖心情 Post By:2017/9/25 11:49:00 [只看该作者]

如题


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/25 11:53:00 [只看该作者]

 参考

 

下载信息  [文件大小:312.0 KB  下载次数:4]
图片点击可在新窗口打开查看点击浏览该文件:excel作为数据源_合并.table

 

 或者你上传具体的例子说明

[此贴子已经被作者于2017/9/25 11:53:01编辑过]

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


加好友 发短信
等级:三尾狐 帖子:601 积分:5532 威望:0 精华:0 注册:2011/9/30 8:42:00
  发帖心情 Post By:2017/9/25 14:06:00 [只看该作者]

一个EXCEL文件,里面有多个工作表,例如:“订单.xls”文件,现在需要把工作表“订单”,“订单明细”分别导入到数据表订单、订单明细。可不可以只选择一次"订单.xls",就可以实现同时两个工作表导入

[此贴子已经被作者于2017/9/25 14:06:31编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/25 14:15:00 [只看该作者]

参考代码

 

Dim dlg As new OpenFileDialog
dlg.Filter = "excel|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
    Dim book As new XLS.Book(dlg.FileName)
    For Each s As XLS.Sheet In book.sheets
        Dim mg As New Merger
        mg.SourcePath = dlg.FileName
        mg.Format = "excel" '指定格式
        mg.SourceTableName = s.Name & "$"
        mg.DataTableName = s.name '指定接收数据的表
        mg.Merge() '开始合并
    Next
End If


 回到顶部