主题：[求助]关于导出EXCEL的方法问题

默认是Access格式，如果要导出为Excel，必须明确指定格式：
 
ex.Format = "Excel" '导出格式为Excel
 
 
例如：
 
Dim ex as New Exporter
ex.SourceTableName = "订单" '指定导出表
ex.FilePath = "c:\Data\订单.xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Fields = "日期,客户,数量,单价" '指定导出字段
ex.Filter = "[产品] = 'PD01'" '指定导出条件
ex.Export() '开始导出

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ex As New Exporter

    ex.Format = "Excel" '导出格式为Excel
    ex.SourceTableName = "订单" '指定导出表
    ex.filepath = dlg.FileName  '指定目标文件
    ex.Export() '开始导出
End If