导出功能不能实现

'试试下面的方法:将表导出到电子表

sub ExpExcle(tblName as string)

'功能:将表导出到电子表

'参数:tblName---.>表名称

dim strPath ,strName as string

dim strName1 as string'sheet的名称

strName1="sheet1"'双引号中名,可任意你要的名称

strPath="C:\"'导出到C盘

strName=strPath & tblName & ".xls"

strSQL = "SELECT * INTO [Excel 8.0;Database=" & strPath & tblName & ".xls].[" & strName1 & "]  FROM " & tblName

If Dir(strName) <> "" Then '判断文件是否存在,存在,则将其删除cgy2011-6-2
    Kill (strName)
End If
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True

end sub