DoCmd.TransferSpreadsheet 문제

Question

나는이 내가 수출

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "qryDataExport", strExportPath, True 

데이터 전송이해야 등을 위해 사용하고있는 구문입니다 액세스 2013에서 Excel로 쿼리를 수출하고

만의 필드 중 하나 쿼리의 제목이 Player #이고 Excel로 내보낼 때 Player .

내 보내면 #을 그대로 유지할 수 있습니까? , CustomExcelExport "qryDataExport", strExportPath

Answer 1

귀하는 DoCmd.TransferSpreadsheet

Public Sub CustomExcelExport(QueryOrTableOrSQL As String, FileLocation As String) 
    Dim rs As DAO.Recordset 
    Dim excelApp As Object 
    Set excelApp = CreateObject("Excel.Application") 
    Set rs = CurrentDb.OpenRecordset(QueryOrTableOrSQL) 
    excelApp.Workbooks.Add 
    Dim colNo As Long: colNo = 1 
    Dim rowNo As Long: rowNo = 1 
    Dim fld As Variant 

    For Each fld In rs.Fields 
     excelApp.Cells(rowNo, colNo) = fld.Name 
     colNo = colNo + 1 
    Next fld 
    Do While Not rs.EOF 
     colNo = 1 
     rowNo = rowNo + 1 
     For Each fld In rs.Fields 
      excelApp.Cells(rowNo, colNo) = fld.Value 
      colNo = colNo + 1 
     Next fld 
     rs.MoveNext 
    Loop 
    excelApp.ActiveWorkbook.SaveAs FileLocation, 51 'xlOpenXMLWorkbook 
    excelApp.Quit 
End Sub 

전화의 한계를 처리하지 않고, .XLSX 파일로 물건을 내보내려면 다음과 같은 기능을 사용할 수 있습니다 쿼리의 형식을 유지하는 DoCmd.OutputTo을 고려하십시오. 전자의 방법은 스프레드 셋 형식에 더 중점을 둘 수 있습니다.

DoCmd.OutputTo acOutputQuery, "qryDataExport", acFormatXLSX, strExportPath 

Answer 2

문제가 DoCmd.TransferSpreadsheet으로 재현 할 수 있지만 :