主题：如何代码控制excel另存为

foxtable 需要操作一个excel文件，但客户给的是一个csv格式，foxtable如何控制csv文件处理成xls标准excel格式呢

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

所以现在问题是如何自动化控制csv变成xls，围绕这个问题展开研究。

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

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