导出的EXCEL为指定名称及表格不能修改

打字比你快

从ACCESS里导出的EXCEL表格名称为指定的文本框控件里的名称，导出后的表格不能修改即加一个指定密码，见附件，谢谢！

jonical

你可以先导出文件然后调用EXCEL程序对EXCEL进行操作任何保存即可，以下程序仅供参考
Function TEMS_ExcelToCel(DataPath As String, Path As String)
'将导出的TEMS文件EXCEL格式转换为cel文本格式文件
'DataPath 文件路径全称
'Path 文件路径，含"\"
    Dim ExcelObj As Object    'Excel.Application
    Dim 工作簿 As Object    'Excel.Workbook
    DoCmd.SetWarnings False
    'DoCmd.Hourglass True

    Set ExcelObj = CreateObject("Excel.Application")
    Set 工作簿 = ExcelObj.Workbooks.Open(DataPath)
    ExcelObj.Worksheets(1).Select
    ExcelObj.Rows("1:1").Select
    ExcelObj.Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    ExcelObj.Cells(1, 1) = "992 TEMS_-_Cell_names"
    工作簿.SaveAs Path & "TEMS" & ".cel", FileFormat:=xlText, ReadOnlyRecommended:=False, CreateBackup:=False
    ExcelObj.Workbooks("TEMS"  & ".cel").Close (True)
    Kill DataPath  '删除原EXCEL文件
    ExcelObj.Quit                                                          '退出Excel程序
   DoCmd.SetWarnings True
End Function

jonical

'DoCmd.RunSQL "select top 65535 * into [Excel 8.0;database=" & Path & ".xls].[" & TableName  & "] from " & TableName '导出2003格式   可以用这种语句导出文件