VB Excel SaveAs FileFormat参数问题?

2009-08-12 02:36:17 1k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

w1984721 墨衍会员 · AI 创作全网分发关注 + 加入社区

vb.net和c#.net保存EXCEL vb.net Dim sfDialog As SaveFileDialog = New SaveFileDialog() sfDialog.FileName = DateTime.Now.ToString("yyyyMMddHHmmss") + ".xls" sfDialog.Filter = "xls | *.xls" Dim ap 阅读详情

我想 VB 把Excel文件转换成CSV文件.
下面编译出错 xlCSV 变量未定义,当我使用引用Microsoft Excel 9.0 Object Library的时候就正确,不引用就错误,我的程序不想要引用的.因为要面对的Excel版本不同.xlCSV常量为6,我把它换为6的时候编译通过.问下在Excel 97/2000/XP/2003/2007下xlCSV的值都相同吗?要是不同这么解决?像我这种不使用引用的情况如何解决FileFormat参数问题?.对于xlHtml,xlTextWindows,xlDBF2这些格式这么处理?拜托大家了.

Dim XlsApp As Object
Dim XlsSheet As Object
Dim XlsBook As Object
Set XlsApp = CreateObject("Excel.Application")
Set XlsBook = XlsApp.Workbooks.Open("D:\excel\a.xls")
Set XlsSheet = XlsBook.Worksheets(1)
XlsBook.SaveAs "D:\excel\a.csv", FileFormat:=xlCSV 'xlCSV 变量未定义,换成6的时候编译通过

...全文