以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]怎么保存为CSV格式的文件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106661)
--  作者：zhjun2017
--  发布时间：2017/9/13 13:42:00
--  [求助]怎么保存为CSV格式的文件
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格式的
--  作者：有点甜
--  发布时间：2017/9/13 14:10:00
--  

另存为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
 
--  作者：zhenghangbo
--  发布时间：2018/12/14 15:08:00
--  
执行了出错。
如果我想把表A导出，保存为csv格式到D盘，有参考吗？
--  作者：有点甜
--  发布时间：2018/12/14 15:49:00
--  
以下是引用zhenghangbo在2018/12/14 15:08:00的发言：
执行了出错。
如果我想把表A导出，保存为csv格式到D盘，有参考吗？

 

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

 

2、做一个例子发上来测试。
--  作者：xietan417
--  发布时间：2019/2/1 11:50:00
--  
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

执行这行代码出现：
服务器出现意外情况。 (异常来自 HRESULT:0x80010105 (RPC_E_SERVERFAULT))
--  作者：有点蓝
--  发布时间：2019/2/1 12:11:00
--  
"d:\\test.xls"改为自己已经保存的execl文件的路径
--  作者：xietan417
--  发布时间：2019/2/1 13:56:00
--  
路径确定没问题啊！D盘下是有这个EXCEL的！
--  作者：有点蓝
--  发布时间：2019/2/1 14:01:00
--  
我测试没有问题，看看是不是和pdf软件有冲突：https://www.baidu.com/baidu?word=0x80010105
--  作者：xietan417
--  发布时间：2019/2/1 14:16:00
--  
果在是PDF的问题！已经处理OK!谢谢！