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