以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何代码控制excel另存为  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=60924)
--  作者：fotable
--  发布时间：2014/12/4 9:21:00
--  如何代码控制excel另存为
foxtable 需要操作一个excel文件，但客户给的是一个csv格式，foxtable如何控制csv文件处理成xls标准excel格式呢
--  作者：有点甜
--  发布时间：2014/12/4 9:23:00
--  

 csv不是跟excel没有任何关系啊。

 

 csv就是固定格式的txt文件。

 

 参考 http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=58804&skin=0

 
--  作者：Fotable
--  发布时间：2014/12/4 9:45:00
--  

我们的程序前期已经写好，就是处理xls文件的，后来客户产生了新的格式csv，我们当然知道csv就是一个逗号分隔的txt文件，但我们不会再编辑一套代码来处理csv，我只需要将csv转化为xls，整个程序就不用修改了

[此贴子已经被作者于2014-12-4 9:46:31编辑过]
--  作者：Fotable
--  发布时间：2014/12/4 9:46:00
--  
所以现在问题是如何自动化控制csv变成xls，围绕这个问题展开研究。
--  作者：有点甜
--  发布时间：2014/12/4 9:48:00
--  

 用vba打开，然后另存为

 

http://www.foxtable.com/help/topics/2121.htm

 
--  作者：Fotable
--  发布时间：2014/12/4 11:21:00
--  

Dim App As New MSExcel.Application
App.Visible =True
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("D:\\2.csv")
Wb.SaveAs("D:\\123.xls")
wb.close
app.quit

 

写了这样一段vba  发现没有用，一个是会问是否保存对话框，二是格式没有变过来，只是改了 一个名字，内容还是csv格式的
--  作者：有点甜
--  发布时间：2014/12/4 11:23:00
--  

 要什么格式，就用什么格式

 

Document.SaveAs("E:\\temp.txt", MsWord.WdSaveFormat.wdFormatText)

 

http://msdn.microsoft.com/zh-cn/library/office/ff839952.aspx
--  作者：Fotable
--  发布时间：2014/12/4 11:42:00
--  

Dim App As New MSExcel.Application
App.Visible =True
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("D:\\2.csv")
Wb.SaveAs  (Filename:="D:\\2.xls", FileFormat :=xlExcel9795 )
wb.close
app.quit

 

参考： http://excel.walk-nie.com/vba-basic-op/vba-basic-op-workbook/235

 

foxtable报错 不能识别常量 xlExcel9795

[此贴子已经被作者于2014-12-4 11:42:26编辑过]
--  作者：有点甜
--  发布时间：2014/12/4 11:45:00
--  
MsWord.WdSaveFormat.xlExcel9795
--  作者：有点甜
--  发布时间：2014/12/4 11:45:00
--  

 7楼

 

http://msdn.microsoft.com/zh-cn/library/office/ff839952.aspx