主题：exel多数据表写入

对客户筛选后saveexcel不就可以了？你写了什么代码？遇到什么问题？

参考代码

Dim t As Table = Tables("订单")
Dim Book1 As new XLS.Book
For Each kh As String In t.DataTable.GetValues("客户")
    t.filter = "客户='" & kh & "'"
    Dim Book As New XLS.Book(ProjectPath & "Attachments\订单.xls")
    Dim fl As String = (ProjectPath & "Attachments\123.xls")
    Book.Build() '生成细节区
    Dim Sheet = Book.Sheets(0)
    sheet.name = kh
    Book.Sheets.Remove(Sheet)
    Book1.Sheets.Add(Sheet)
Next
Book1.Save(ProjectPath & "reports\订单.xls")
Dim Proc As New Process '打开工作簿
Proc.File = ProjectPath & "reports\订单.xls"
Proc.Start()