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

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

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

    Dim ex As New Exporter

    ex.SourceTableName = "蒸镀工票信息"

    ex.Filter = Tables("查看派工单_蒸镀工票信息").Filter 

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

    ex.Format = "Excel"

    ex.Fields = "允许提前分切,位置号,交货日期,客户代号,生产单号,流水号,型号,规格" \'

    ex.Export() \'开始导出

End If