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

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