以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]导出EXCEL乱码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=180159)

--  作者：cherryjing --  发布时间：2022/10/1 9:35:00 --  [求助]导出EXCEL乱码 代码如下： Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter = "Excel文件|*.xls" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮     Dim ex As New Exporter     ex.SourceTableName = "价格表" \'指定导出表     ex.filepath = dlg.FileName \'指定目标文件     ex.Format = "Excel" \'导出格式为Excel     ex.Export() \'开始导出     Dim Result As DialogResult     Result = MessageBox.Show("导出完成, 是否立即查看?", "价格表导出", MessageBoxButtons.YesNo, MessageBoxIcon.Question)     If Result = DialogResult.Yes Then         Dim Proc As New Process         Proc.File = dlg.FileName         Proc.Start()     End If     End If 导出的文件： 此主题相关图片如下：乱码.png

--  作者：cherryjing --  发布时间：2022/10/1 9:45:00 --   附导出的文件

--  作者：cherryjing --  发布时间：2022/10/1 9:45:00 --    下载信息  [文件大小：   下载次数： ] 点击浏览该文件:明细.xls

--  作者：有点蓝 --  发布时间：2022/10/4 9:41:00 --   代码我测试没有问题。可能是系统环境问题。卸载重装office试试

--  作者：cherryjing --  发布时间：2022/10/17 18:09:00 --   因为公司要求要用WPS,会不会是我同时安装了office和WPS的原因？

--  作者：有点蓝 --  发布时间：2022/10/17 20:09:00 --   卸载其中一个试试