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

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

比如:

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

 常用的fileFormat格式:

名称NameValue说明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

 

posted @ 2018-11-14 22:44  QIYUEXIN  阅读(1404)  评论(0编辑  收藏  举报