主题：窗口查询表导出excel遇到的问题.

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog

dlg.Filter= "Excel文件|*.xls" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮   

    'Dim ex As New Exporter

    'ex.SourceTableName = "窗口4_Table1" '指定导出表

    'ex.Format = "Excel"

    'ex.Filter = Tables("窗口4_Table1").Filter

    'ex.filepath = dlg.FileName  '指定目标文件

    'ex.Export() '开始导出

    Tables("窗口4_Table1").SaveExcel(dlg.FileName,"订单")

End If