以文本方式查看主题

-  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=95520)
--  作者：穆紫1212
--  发布时间：2017/1/22 15:53:00
--  [求助]从Excel中提取数据
假定有5个Excel表，表名分别是 1.xls　　2.xls　　3.xls　　　4.xls　　　5.xls
订单表中的的订单编号列是1、2、3、4、5
现在想从Exce表提取数据，条件是订单编号列＝Exce表名
订单编号1＝1.xls
订单编号2＝2.xls
订单编号3＝3.xls

实际就是订单编号和Exce表名相同，才能提取数据


请问代码要怎么写
[此贴子已经被作者于2017/1/22 16:02:49编辑过]
--  作者：rjh4078
--  发布时间：2017/1/22 16:03:00
--  

Dim dlg As New OpenFileDialog
dlg.Filter = "Excel文件|*.xls"
dlg.MultiSelect = True \'允许选择多个文件
If dlg.ShowDialog =DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        Dim mg As New Merger
        mg.SourcePath = fl

        mg.format="excel"
        mg.SourceTableName = "订单$"
        mg.DataTableName = "订单"
        mg.Merge()
    Next
End If
--  作者：穆紫1212
--  发布时间：2017/1/22 16:58:00
--  
谢谢！谢谢！