主题：如何导入同一个文件夹中的多个excel表，可以实现吗？谢谢

Dim ip as New Importer
ip.SourcePath = "c:\Data\销售管理.xls" '指定数据文件
ip.SourceTableName = "订单" '指定要导入的表
ip.NewTableName ="订单" '导入后的表名
ip.Format = "Excel" '指定导入格式
ip.Import()

 

想直接导入一个文件夹，文件夹中有n个excel表，模板相同，谢谢！

Dim dlg As New OpenFileDialog
dlg.Filter = "Access文件|*.mdb"
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.SourceTableName = "订单"
        mg.DataTableName = "订单"
        mg.Merge()
    Next
End If

将多个结构相同的excel表合并到foxtable中的同一个表，只能用Merger：
 
    For Each fl As String In Filesys.GetFiles("c:\daya")
        Dim mg As New Merger
        mg.SourcePath = fl
        mg.SourceTableName = "订单"
        mg.DataTableName = "订单"
        mg.Merge()
    Next

mg.SourceTableName = "订单"
        mg.DataTableName = "订单"

第一个可以不是用订单吗？不是写在代码中的，而是可以随机引用；第二个同样可以实现随机引用吗？谢谢！！

For Each fl As String In Filesys.GetFiles("d:\")
    Dim mg As New Merger
    mg.SourcePath = fl
    Dim book As new XLS.Book(fl)
   
    mg.SourceTableName = book.Sheets(0).name & "$"
    mg.DataTableName =  book.Sheets(0).name
    mg.Merge()
Next