[原创技巧]Access控制Excel另存文件名的一些技巧

tmtony

Access可控制Excel来输出丰富的报表,但在使用SaveAs另存文件时,有时需要注意一些参数,否则会导致保存错误
我们一般使用后期绑定的方式来实现,常用的代码

DoCmd.Hourglass True            '改变鼠标样
    Set objExl = CreateObject("Excel.APPLICATION")     'Set objExl = New Excel.Application '初始化对象变量
    Set objWb = objExl.Workbooks.Open(CurrentProject.Path & "\Tpl.xlt") '打开模板
    objWb.SaveAs CurrentProject.Path & "\Output\File" & 2 & ".xls", -4143


DoCmd.Hourglass False            '改变鼠标样

-4143 是代表正常格式,如果希望保存为其它格式,则可参看下表
在一次编程中 使用 xlExcel8 59 格式,开始误以为是97-2003 ,实际上是2007格式  
Excel2003 实际 上是xlExcel7 39
如果在Excel2003中运行保存为  xlExcel8 59 格式(2007),则会提示 类workbook的saveas 无效的错误
因为低版本无法保存为高版本.


指定保存工作表时的文件格式。

名称	值	说明
xlAddIn	18	Excel 2007 加载项
xlAddIn8	18	Microsoft Excel 97-2003 加载项
xlCSV	6	CSV
xlCSVMac	22	Macintosh CSV
xlCSVMSDOS	24	MSDOS CSV
xlCSVWindows	23	Windows CSV
xlCurrentPlatformText	-4158	当前平台文本
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	国际加载项
xlIntlMacro	25	国际宏
xlOpenDocumentSpreadsheet	60	OpenDocument 电子表格
xlOpenXMLAddIn	55	打开 XML 加载项
xlOpenXMLStrictWorkbook	61 (H3D) &	严格的 Open XML 文件
xlOpenXMLTemplate	54	打开 XML 模板
xlOpenXMLTemplateMacroEnabled	53	打开启用的 XML 模板宏
xlOpenXMLWorkbook	51	打开 XML 工作簿
xlOpenXMLWorkbookMacroEnabled	52	打开启用的 XML 工作簿宏
xlSYLK	2	SYLK
xlTemplate	17	Template
xlTemplate8	17	模板 8
xlTextMac	19	Macintosh 文本
xlTextMSDOS	21	MSDOS 文本
xlTextPrinter	36	打印机文本
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	默认工作簿
xlWorkbookNormal	-4143	常规工作簿
xlWorks2FarEast	28	Works2 FarEast
xlWQ1	34	WQ1
xlXMLSpreadsheet	46	XML 电子表格