主题：[原创]能将CSV2XLS转为狐表代码吗？

参考代码

Dim App As New MSExcel.Application
try
    app.DisplayAlerts = False
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.open("d:\test.csv")
    wb.SaveAs(Filename:="d:\test.xls", FileFormat:=MSExcel.XlFileFormat.xlAddIn8)
catch ex As exception
    msgbox(ex.message)
finally
    app.quit
End try