主题：[求助]怎么让excel导出有多层表头，统计，序号

用saveExcel导出

http://www.foxtable.com/help/topics/0559.htm

谁说没办法另存路径

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
     Tables("订单").SaveExcel(dlg.FileName, "订单")  '保存文件
End If

导出以后，打开excel用代码设置

http://www.foxtable.com/help/topics/1163.htm

或者，你可以用excel报表来导出数据

http://www.foxtable.com/help/topics/2877.htm

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Tables("表A").SaveExcel(dlg.FileName, "Table1")  '保存文件
   
    Dim Book As New XLS.Book(dlg.filename) '定义一个Excel工作簿
    Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
    Dim Style As XLS.Style = Book.NewStyle() '定义新样式
    Style.BorderTop = XLS.LineStyleEnum.Thin
    Style.BorderBottom = XLS.LineStyleEnum.Thin
    Style.BorderLeft = XLS.LineStyleEnum.Thin
    Style.BorderRight = XLS.LineStyleEnum.Thin
    Style.BorderColorTop = Color.Red
    Style.BorderColorBottom = Color.Red
    Style.BorderColorLeft = Color.Red
    Style.BorderColorRight = Color.Red
    For r As Integer = 0 To sheet.Rows.count-1
        For c As Integer = 0 To sheet.cols.count-1
            Sheet(r,c).Style = Style
        Next
    Next
    book.save(dlg.FileName)
    Dim Proc As New Process
    Proc.File = dlg.FileName
    Proc.Start()
End If