以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  导出到SaveFileDialog好像有问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=142263)

--  作者：fubblyc --  发布时间：2019/10/22 14:25:00 --  导出到SaveFileDialog好像有问题 老师，这个导出好像有问题，路径用 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编辑过]

--  作者：有点蓝 --  发布时间：2019/10/22 14:37:00 --   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"  \'指定目标文件 if a.EndsWith(".xls") then     ex.Format = "Excel" \'导出格式为Excel else     ex.Format = "Excel2007" \'导出格式为Excel2007 end if     ex.Export() \'开始导出 End If

--  作者：fubblyc --  发布时间：2019/10/22 16:39:00 --   原来如此，谢谢蓝老师