Foxtable(狐表)用户栏目专家坐堂 → [求助]怎么保存为CSV格式的文件


  共有4973人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
zhjun2017
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:20 积分:247 威望:0 精华:0 注册:2017/8/10 8:10:00
[求助]怎么保存为CSV格式的文件  发帖心情 Post By:2017/9/13 13:42:00 [只看该作者]

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格式的

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:451 积分:4286 威望:0 精华:0 注册:2018/2/7 14:30:00
  发帖心情 Post By:2018/12/14 15:08:00 [只看该作者]

执行了出错。
如果我想把表A导出,保存为csv格式到D盘,有参考吗?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/14 15:49:00 [只看该作者]

以下是引用zhenghangbo在2018/12/14 15:08:00的发言:
执行了出错。
如果我想把表A导出,保存为csv格式到D盘,有参考吗?

 

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

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
xietan417
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:721 积分:6385 威望:0 精华:0 注册:2011/6/26 11:45:00
  发帖心情 Post By: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))

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/2/1 12:11:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
xietan417
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:721 积分:6385 威望:0 精华:0 注册:2011/6/26 11:45:00
  发帖心情 Post By:2019/2/1 13:56:00 [只看该作者]

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

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/2/1 14:01:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
xietan417
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:721 积分:6385 威望:0 精华:0 注册:2011/6/26 11:45:00
  发帖心情 Post By:2019/2/1 14:16:00 [只看该作者]

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

 回到顶部