老师,这个导出好像有问题,路径用 dlg.FileName 就导不出,用直接给的路径就可以。
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx;*.xls" '设置筛选器'
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim ex As New Exporter
output.show(dlg.FileName)
ex.SourceTableName = "库存明细" '指定导出表
Dim a As String = dlg.FileName
ex.FilePath = a ' "c:\Data\库存明细5.xls" '指定目标文件
ex.Format = "Excel" '导出格式为Excel
ex.Export() '开始导出
End If
用xlsx有问题,用xls没问题
[此贴子已经被作者于2019/10/22 14:27:51编辑过]