以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何导入一个EXCEL文件中的多个工作表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107294)
--  作者：linswcfr
--  发布时间：2017/9/25 11:49:00
--  如何导入一个EXCEL文件中的多个工作表

如题
--  作者：有点甜
--  发布时间：2017/9/25 11:53:00
--  

 参考

 

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

 

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

[此贴子已经被作者于2017/9/25 11:53:01编辑过]
--  作者：linswcfr
--  发布时间：2017/9/25 14:06:00
--  

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

[此贴子已经被作者于2017/9/25 14:06:31编辑过]
--  作者：有点甜
--  发布时间：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