Question

VB Excel SaveAs FileFormat参数问题?

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

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的时候编译通过

Answer 1

这是XLFileFormat的参数定义，在Excel 97/2000/XP/2003/2007下xlCSV值都是相同的。所以你就用6去编译吧，不会有问题的

XlFileFormat

Constant Value
xlAddIn 18
xlCSV 6
xlCSVMac 22
xlCSVMSDOS 24
xlCSVWindows 23
xlCurrentPlatformText -4158
xlDBF2 7
xlDBF3 8
xlDBF4 11
xlDIF 9
xlExcel2 16
xlExcel2FarEast 27
xlExcel3 29
xlExcel4 33
xlExcel4Workbook 35
xlExcel5 39
xlExcel7 39
xlExcel9795 43
xlHtml 44
xlIntlAddIn 26
xlIntlMacro 25
xlSYLK 2
xlTemplate 17
xlTextMac 19
xlTextMSDOS 21
xlTextPrinter 36
xlTextWindows 20
xlUnicodeText 42
xlWebArchive 45
xlWJ2WD1 14
xlWJ3 40
xlWJ3FJ3 41
xlWK1 5
xlWK1ALL 31
xlWK1FMT 30
xlWK3 15
xlWK3FM3 32
xlWK4 38
xlWKS 4
xlWorkbookNormal -4143
xlWorks2FarEast 28
xlWQ1 34
xlXMLData 47
xlXMLSpreadsheet 46

Answer 2

两种思路：
1、把你的vb或vba编译成dll
2、查不同版本的xlcsv赋值是否不同，如相同直接赋相同值，如不同判断excle版本后对该变量按照不同版本赋不同值。