主题：一个表拆分多表导出

其实很简单：

Dim nms As List(of String) = DataTables("订单").GetUniqueValues("","产品")
Tables("订单").StopRedraw
For Each nm As String In nms
    Tables("订单").Filter = "产品 = '" & nm & "'"
    Tables("订单").SaveExcel(ProjectPath & nm & ".xls","订单")
Next
Tables("订单").Filter = ""
Tables("订单").ResumeRedraw