vbs 之 解决打开Excel文件格式与扩展名指定格式不一致的问题

' Q：解决打开Excel文件格式与扩展名指定格式不一致的问题
' A: 使用工作簿saveAs时，往往忽略掉它的第二个参数FileFormat，添加即可。

比如：

set bookDiff = oExcel.workBooks.add
workbooks.saveAs diffBomPath, -
workbooks.close　　

常用的fileFormat格式：

名称Name	值Value	说明Description	扩展名
xlAddInxlAddIn	18	Microsoft Excel 97-2003 外接程序Microsoft Excel 97-2003 Add-In	*.xla*.xla
xlAddIn8xlAddIn8	18	Microsoft Excel 97-2003 外接程序Microsoft Excel 97-2003 Add-In	*.xla*.xla
xlCSVxlCSV	6	CSVCSV	*.csvCSV
xlCSVMac	22	Macintosh CSVMacintosh CSV	*.csvCSV
xlCSVMSDOS	24	MSDOS CSV	*.csvCSV
xlCSVWindows	23	Windows CSV	*.csvCSV
xlCurrentPlatformText	-4158	当前平台文本Current Platform Text	*.txt.txt
xlDBF2xlDBF2	7	Dbase 2 格式Dbase 2 format	*.dbf*.dbf
xlDBF3	8	Dbase 3 格式Dbase 3 format	*.dbf*.dbf
xlDBF4	11	Dbase 4 格式Dbase 4 format	*.dbf*.dbf
xlDIF	9	数据交换格式Data Interchange format	*.difDIF
xlExcel12	50	Excel 二进制工作簿Excel Binary Workbook	*.xlsb*.xlsb
xlExcel2	16	Excel 版本 2.0 (1987)Excel version 2.0 (1987)	*.xls
xlExcel2FarEast	27	Excel 版本 2.0 中文 (1987)Excel version 2.0 far east (1987)	*.xls*.xls
xlExcel3xlExcel3	29	Excel 版本 3.0 (1990)Excel version 3.0 (1990)	*.xls
xlExcel4xlExcel4	33	Excel 版本 4.0 (1992)	*.xls*.xls
xlExcel4WorkbookxlExcel4Workbook	35	Excel 版本 4.0工作簿格式 (1992)Workbook format (1992)	*.xlw*.xlw
xlExcel5xlExcel5	39	Excel 版本 5.0 (1994)	*.xls*.xls
xlExcel7xlExcel7	39	Excel 95（版本 7.0）Excel 95 (version 7.0)	*.xls
xlExcel8xlExcel8	56	Excel 97-2003 工作簿	*.xls*.xls
xlExcel9795xlExcel9795	43	Excel 版本 95 和 97	*.xls*.xls
xlHtmlxlHtml	44	HTML 格式	.htm；.html*.htm; *.html
xlIntlAddInxlIntlAddIn	26	国际外接程序	无文件扩展名No file extension
xlIntlMacroxlIntlMacro	25	国际宏International Macro	无文件扩展名
xlOpenDocumentSpreadsheetxlOpenDocumentSpreadsheet	60	OpenDocument 电子表格OpenDocument Spreadsheet	*.ods*.ods
xlOpenXMLAddInxlOpenXMLAddIn	55	Open XML 外接程序Open XML Add-In	*.xlam*.xlam
xlOpenXMLStrictWorkbookxlOpenXMLStrictWorkbook	61	Strict Open XML 文件	*.xlsx*.xlsx
xlOpenXMLTemplatexlOpenXMLTemplate	54	Open XML 模板Open XML Template	*.xltx*.xltx
xlOpenXMLTemplateMacroEnabledxlOpenXMLTemplateMacroEnabled	53	启用 Open XML 模板宏Open XML Template Macro Enabled	*.xltm*.xltm
xlOpenXMLWorkbookxlOpenXMLWorkbook	51	Open XML 工作簿Open XML Workbook	*.xlsx*.xlsx
xlOpenXMLWorkbookMacroEnabledxlOpenXMLWorkbookMacroEnabled	52	启用 Open XML 工作簿宏Open XML Workbook Macro Enabled	*.xlsm*.xlsm
xlSYLKxlSYLK	2	符号链接格式Symbolic Link format	*.slk*.slk
xlTemplatexlTemplate	17	Excel 模板格式Excel Template format	*.xlt*.xlt
xlTemplate8xlTemplate8	17	模板 8Template 8	*.xlt*.xlt
xlTextMacxlTextMac	19	Macintosh 文本Macintosh Text	*.txt.txt
xlTextMSDOSxlTextMSDOS	21	MSDOS 文本MSDOS Text	*.txt.txt
xlTextPrinterxlTextPrinter	36	打印机文本Printer Text	*.prn*.prn
xlTextWindowsxlTextWindows	20	Windows 文本Windows Text	*.txt.txt
xlUnicodeTextxlUnicodeText	42	Unicode 文本Unicode Text	无文件扩展名；*.txtNo file extension; *.txt
xlWebArchivexlWebArchive	45	Web 档案Web Archive	.mh；.mhtml*.mht; *.mhtml
xlWJ2WD1xlWJ2WD1	14	日语 1-2-3Japanese 1-2-3	*.wj2*.wj2
xlWJ3xlWJ3	40	日语 1-2-3Japanese 1-2-3	*.wj3WJ3
xlWJ3FJ3xlWJ3FJ3	41	日语 1-2-3 格式Japanese 1-2-3 format	*.wj3WJ3
xlWK1xlWK1	5	Lotus 1-2-3 格式Lotus 1-2-3 WK4 format	*.wk1WK1
xlWK1ALLxlWK1ALL	31	Lotus 1-2-3 格式Lotus 1-2-3 WK4 format	*.wk1WK1
xlWK1FMTxlWK1FMT	30	Lotus 1-2-3 格式Lotus 1-2-3 WK4 format	*.wk1WK1
xlWK3xlWK3	15	Lotus 1-2-3 格式Lotus 1-2-3 WK4 format	*.wk3WK3
xlWK3FM3xlWK3FM3	32	Lotus 1-2-3 格式Lotus 1-2-3 WK4 format	*.wk3WK3
xlWK4xlWK4	38	Lotus 1-2-3 格式Lotus 1-2-3 WK4 format	*.wk4WK4
xlWKSxlWKS	4	Lotus 1-2-3 格式Lotus 1-2-3 WK4 format	*.wks*.wks
xlWorkbookDefaultxlWorkbookDefault	51	默认工作簿Workbook default	*.xlsx*.xlsx
xlWorkbookNormal	-4143	常规工作簿Workbook normal	*.xls*.xls
xlWorks2FarEastxlWorks2FarEast	28	Microsoft Works 2.0 两端对齐格式Microsoft Works 2.0 far east format	*.wks*.wks
xlWQ1xlWQ1	34	Quattro Pro 格式Quattro Pro format	*.wq1WQ1
xlXMLSpreadsheetxlXMLSpreadsheet	46	XML 电子表格XML Spreadsheet	*.xml*.xml