vb保存excel文件格式问题

[lashengcrh]

电脑安装的是vb6中文版+office2007 ，
用vb6调用excel 12.0 Object Library对象，保存文件时，将文件扩展名指定为*.xls

当用office2007 打开这个生成的xls文件时，提示“格式与文件扩展民指定的格式不一致......”

请问，这是怎么回事？

[lashengcrh]

我发现，在office2007环境下，保存的文件虽然是abc.xls，但是文件大小和abc.xlsx的文件大小一样。这明显是文件格式还是excel2007的格式。 怎么办？如何在office2007的环境下，用vb保存成Excel97-2003的格式呢？

[东方之珠]

看看SaveAs的有没有格式选项。

[橘子皮...]

ver = iXls.Version If Val(ver) < 12 Then FilePath = FilePath & ".xls" Else FilePath = FilePath & ".xlsx"

[lashengcrh]

没办法，我先建立一个空的2003的模板，每次都拷贝一份出来，进行操作，最后再保存，这样保证是2003的EXcel格式。

[sosoben]

你录个宏不就知道了？？

 ActiveWorkbook.SaveAs Filename:= _
        "C:\Book1.xls", FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False

你save 的时候也可以选这个参数

[东方之珠]

用参数39：xlBook.SaveAs "C:\Book1.xls",39 Excel FileFormat 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

[神马被哪个妞占用了呢]

引用 6 楼 chenjl1031 的回复:

用参数39：xlBook.SaveAs "C:\Book1.xls",39 Excel FileFormat……

学习了……