主题：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里如何设置格式

很长，很长:
 
Wb.SaveAs(ims & ".csv",Microsoft.Office.Interop.Excel.XlFileFormat.xlCSV)

多谢