[原創(chuàng)技巧]Access控制Excel另存文件名的一些技巧

tmtony

Access可控制Excel來(lái)輸出豐富的報(bào)表,但在使用SaveAs另存文件時(shí),有時(shí)需要注意一些參數(shù),否則會(huì)導(dǎo)致保存錯(cuò)誤
我們一般使用后期綁定的方式來(lái)實(shí)現(xiàn),常用的代碼

DoCmd.Hourglass True            '改變鼠標(biāo)樣
    Set objExl = CreateObject("Excel.APPLICATION")     'Set objExl = New Excel.Application '初始化對(duì)象變量
    Set objWb = objExl.Workbooks.Open(CurrentProject.Path & "\Tpl.xlt") '打開(kāi)模板
    objWb.SaveAs CurrentProject.Path & "\Output\File" & 2 & ".xls", -4143


DoCmd.Hourglass False            '改變鼠標(biāo)樣

-4143 是代表正常格式,如果希望保存為其它格式,則可參看下表
在一次編程中 使用 xlExcel8 59 格式,開(kāi)始誤以為是97-2003 ,實(shí)際上是2007格式  
Excel2003 實(shí)際 上是xlExcel7 39
如果在Excel2003中運(yùn)行保存為  xlExcel8 59 格式(2007),則會(huì)提示 類(lèi)workbook的saveas 無(wú)效的錯(cuò)誤
因?yàn)榈桶姹緹o(wú)法保存為高版本.


指定保存工作表時(shí)的文件格式。

名稱	值	說(shuō)明
xlAddIn	18	Excel 2007 加載項(xiàng)
xlAddIn8	18	Microsoft Excel 97-2003 加載項(xiàng)
xlCSV	6	CSV
xlCSVMac	22	Macintosh CSV
xlCSVMSDOS	24	MSDOS CSV
xlCSVWindows	23	Windows CSV
xlCurrentPlatformText	-4158	當(dāng)前平臺(tái)文本
xlDBF2	7	DBF2
xlDBF3	8	DBF3
xlDBF4	11	DBF4
xlDIF	9	DIF
xlExcel12	50	Excel 12
xlExcel2	16	Excel 2
xlExcel2FarEast	27	Excel2 FarEast
xlExcel3	29	Excel3
xlExcel4	33	Excel4
xlExcel4Workbook	35	Excel4 工作簿
xlExcel5	39	Excel5
xlExcel7	39	Excel7
xlExcel8	56	Excel8
xlExcel9795	43	Excel9795
xlHtml	44	HTML 格式
xlIntlAddIn	26	國(guó)際加載項(xiàng)
xlIntlMacro	25	國(guó)際宏
xlOpenDocumentSpreadsheet	60	OpenDocument 電子表格
xlOpenXMLAddIn	55	打開(kāi) XML 加載項(xiàng)
xlOpenXMLStrictWorkbook	61 (H3D) &	嚴(yán)格的 Open XML 文件
xlOpenXMLTemplate	54	打開(kāi) XML 模板
xlOpenXMLTemplateMacroEnabled	53	打開(kāi)啟用的 XML 模板宏
xlOpenXMLWorkbook	51	打開(kāi) XML 工作簿
xlOpenXMLWorkbookMacroEnabled	52	打開(kāi)啟用的 XML 工作簿宏
xlSYLK	2	SYLK
xlTemplate	17	Template
xlTemplate8	17	模板 8
xlTextMac	19	Macintosh 文本
xlTextMSDOS	21	MSDOS 文本
xlTextPrinter	36	打印機(jī)文本
xlTextWindows	20	Windows 文本
xlUnicodeText	42	Unicode 文本
xlWebArchive	45	Web 檔案
xlWJ2WD1	14	WJ2WD1
xlWJ3	40	WJ3
xlWJ3FJ3	41	WJ3FJ3
xlWK1	5	WK1
xlWK1ALL	31	WK1ALL
xlWK1FMT	30	WK1FMT
xlWK3	15	WK3
xlWK3FM3	32	WK3FM3
xlWK4	38	WK4
xlWKS	4	Worksheet
xlWorkbookDefault	51	默認(rèn)工作簿
xlWorkbookNormal	-4143	常規(guī)工作簿
xlWorks2FarEast	28	Works2 FarEast
xlWQ1	34	WQ1
xlXMLSpreadsheet	46	XML 電子表格