主题：请教导出导入

汗

1、

For Each t As Table In Tables
    t.SaveExcel(ProjectPath & "test.xls", t.name)
Next

2、

Dim book As new XLS.Book(ProjectPath & "test.xls")
For Each s As XLS.Sheet In book.Sheets
    Dim mg As New Merger
    mg.SourcePath = ProjectPath & "test.xls"
    mg.Format = "excel" '指定格式
    mg.SourceTableName = s.Name & "$" '指定要合并的表
    mg.DataTableName = s.name '指定接收数据的表
    mg.Merge() '开始合并
Next