[求助]怎么保存为CSV格式的文件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim tb1 As winform.TextBox=e.Form.controls("TextBox1")

Dim g As New CrossTableBuilder("统计表1", DataTables("仓库"))

g.Filter = "[出库审核] = 1 and 出库单号 = '" & tb1.value & "' And [出库日期] ='" & Vars("StartDate") & "'"

g.HGroups.AddDef("供应商编码","SupplierNO")

g.HGroups.AddDef("送货单号","DeliveryNO")

g.HGroups.AddDef("出库单号","FormNO")

g.HGroups.AddDef("出库日期", DateGroupEnum.None,"DeliveryData")

g.HGroups.AddDef("采购订单号","MLSOrderNO")

g.HGroups.AddDef("物料编码","ItemNO")

g.HGroups.AddDef("规格型号","Model")

Dim tb As Table = Tables("报表查询_Table1")

tb.DataSource = g.BuildDataSource()

tb.AutoSizeCols()

Vars("报表") = "MLS"

Dim val1 As String = "001"

If FileSys.DirectoryExists("C:\MyFolde") Then '如果目录C:\MyFolder存在

If FileSys.FileExists("C:\MyFolde\" & Vars("报表") & Format(Date.Today(),"yyyyMMdd") & val1 & ".xls") Then

tb.SaveExcel("C:\MyFolde\" & Vars("报表") & Format(Date.Today(),"yyyyMMdd") & "002" & ".xls",Vars("报表"))

Else

tb.SaveExcel("C:\MyFolde\" & Vars("报表") & Format(Date.Today(),"yyyyMMdd") & "001" & ".xls",Vars("报表"))

End If

MessageBox.Show("已生成C:\MyFolde\" & Vars("报表") & Format(Date.Today(),"yyyyMMdd") & ".xls!", "提示")

Else

FileSys.CreateDirectory("C:\MyFolde")

tb.SaveExcel("C:\MyFolde\" & Vars("报表") & Date.Today() & ".xls",Vars("报表"))

MessageBox.Show("已生成C:\MyFolde\" & Vars("报表") & Format(Date.Today(),"yyyyMMdd") & "001" & ".xls!", "提示")

End If

这里保存的是EXCEL格式的，我要csv格式的

另存为csv

Dim App As New MSExcel.Application
app.DisplayAlerts = False
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("d:\test.xls")
Wb.SaveAs(Filename:="d:\test.csv", FileFormat:=MSExcel.XlFileFormat.xlCSV)
wb.close
app.quit

https://msdn.microsoft.com/zh-cn/library/microsoft.office.interop.excel.xlfileformat.aspx

执行了出错。

如果我想把表A导出，保存为csv格式到D盘，有参考吗？

以下是引用zhenghangbo在2018/12/14 15:08:00的发言：
执行了出错。

如果我想把表A导出，保存为csv格式到D盘，有参考吗？

1、报什么错？你执行的代码怎么写的？

2、做一个例子发上来测试。

执行这行代码出现：

服务器出现意外情况。 (异常来自 HRESULT:0x80010105 (RPC_E_SERVERFAULT))

"d:\test.xls"改为自己已经保存的execl文件的路径

路径确定没问题啊！D盘下是有这个EXCEL的！

我测试没有问题，看看是不是和pdf软件有冲突：https://www.baidu.com/baidu?word=0x80010105

果在是PDF的问题！已经处理OK!谢谢！

主题：[求助]怎么保存为CSV格式的文件