以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  vba excel 另存 csv  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=20182)
--  作者：ttitt147
--  发布时间：2012/5/31 16:03:00
--  vba excel 另存 csv

如何将excel另存为csv?

 

 

Dim App As New MSExcel.Application
App.Visible = False
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open(dlg.FileName)
ims = dlg.filename.SubString(0,dlg.filename.Length-4)
e.Form.Controls("Label3").text = ims
filesys.
Wb.SaveAs(ims & ".csv")
App.Quit

 

我知道vba有个fileformat,在foxtable里如何设置格式
--  作者：狐狸爸爸
--  发布时间：2012/5/31 16:40:00
--  
很长，很长:
 
Wb.SaveAs(ims & ".csv",Microsoft.Office.Interop.Excel.XlFileFormat.xlCSV)
--  作者：ttitt147
--  发布时间：2012/5/31 17:09:00
--  
多谢