WPS AND OFFICE - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

导出按钮代码。如果是本机装的是wps，导出的xls打开有数据且正确。另外一个同事装的是office，同样导出的是xls，有这个文件，但是打开数据是空的，这是怎么回事？

Dim r As Row = Tables("库存管理界面_table7").Current

DataTables("扫描配货明细").LoadFilter = "收货单号 = '" & r("收货单号") & "' and (状态 = '生产结束扫描完成' or 状态 = '生成收货单')"

DataTables("扫描配货明细").Load

Dim ex As New Exporter

ex.SourceTableName = "扫描配货明细" '指定导出表

ex.FilePath = "D:\SN\" & r("收货单号") & "_" & r("工单号行号") & ".xls"

ex.Format = "Excel" '导出格式为Excel

ex.Fields = "SN" '指定导出字段

ex.Export() '开始导出

Dim n As New MailSender

n.Host = "mail.bdcom.com.cn"

n.Account = "factory@bdcom.com.cn"

n.Password = "Encrypt228HqJ4Mg"

n.From = "factory@bdcom.com.cn"

n.AddReceiver("liujiyong@bdcom.com.cn")

n.Title = "库存管理系统SN" & "工单号-行号:" & r("工单号行号") & "对应收货单号:" & r("收货单号") & "的全部序列号如附件,请打卡通"

n.AddAttachments(ex.FilePath)

n.SendAsync()

MessageBox.show("保存路径:" & ex.FilePath,"导出成功",MessageBoxButtons.OK,MessageBoxIcon.Information)

还有一个问题，假如已经存在了这个xls。就会提示下面的信息。能不让它弹出或者提示准确的xls的名称已经存在。然后直接覆盖。

.NET Framework 版本：2.0.50727.7905

Foxtable 版本：2016.7.29.1

错误所在事件：

详细错误信息：

表 '扫描配货明细' 已存在。

saveExcel应该导出是这个表吧，我只想导出这个表的SN列，其它列不需要。能指定save列吗？

怎么导出了全部列？不是指定了SN列么。

Dim dt As Table = Tables("扫描配货明细")

Dim nms() As String = {"SN"} '要导出的列名

Dim caps() As String = {"SN"} '对应的列标题

Dim szs() As Integer = {150} '对应的列宽

Dim Book As New XLS.Book '定义一个Excel工作簿

Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表

For c As Integer = 0 To nms.length -1

Sheet(0, c).Value = caps(c) '指定列标题

Sheet.Cols(c).Width = szs(c) '指定列宽

For r1 As Integer = 0 To dt.Rows.Count - 1 '填入数据

For c As Integer = 0 To nms.length -1

Sheet(r1 +1, c).Value = dt.rows(r1)(nms(c))

Tables("扫描配货明细").SaveExcel("D:\SN\" & r("收货单号") & "_" & r("工单号行号") & ".xls","序列号明细")

主题：WPS AND OFFICE