[access] gegevens naar excel exporteren met punt in veldnaam

[TromboneFreakus]

In vervolg op dit topic ben ik alvast gaan experimenteren met het maken van een incassobestand volgens de definitie die ABN-AMRO hiervoor biedt. Groot probleem daarbij is dat een van de velden die hiervoor in Excel moet worden aangemaakt "Geïnc. Rekening" heet. Terwijl in Access geen punten in een veldnaam mogen staan.

Heeft iemand een idee hoe ik dat nu praktisch verhelp?

code:

Public Function incasso_exporteren(collegejaar As String, omschrijving1 As String, omschrijving2 As String, omschrijving3 As String, bedrag As String)

CurrentDb.QueryDefs("Incassobestand aanmaken per collegejaar").SQL = _
    "SELECT '' AS Status, '47.84.31.287' AS Rekening, " & bedrag & " AS Bedrag, 'EUR' AS Munt, " & _
    "'' AS [Geïncasseerde code], Ledenlijst.rekeningnummer AS [Geïncasseerde Rekening], " & _
    "0 AS Zuiver, Ledenlijst.achternaam AS Naam, Ledenlijst.Woonplaats, " & _
    "'" & omschrijving1 & "' AS [Omschrijving 1], '" & omschrijving2 & "' AS [Omschrijving 2], '" & omschrijving3 & "' AS [Omschrijving 3] " & _
    "FROM Ledenlijst WHERE (((Ledenlijst.Betaalwijze)=1) AND ((Ledenlijst.LidID) Not In " & _
    "(SELECT LidID FROM [Betaalde collegejaren] WHERE CollegejaarID=" & collegejaar & ")));"

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Incassobestand aanmaken per collegejaar", CurrentProject.Path & "\test.xls"

MsgBox "Het bestand is geexporteerd naar test.xls"

End Function

[TromboneFreakus]

Deze is opgelost

code:

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
xlApp.DisplayAlerts = False
xlApp.ScreenUpdating = False

With xlApp
    .workbooks.Open pad & "\test.xls"
    .activesheet.Range("F1").Value = "Geïnc.Rekening"
    .activesheet.Name = "Sheet01"
    .Save
    .Quit
End With
Set objExcel = Nothing

In plaats van de oplossing in Access te zoeken, wordt dus gewoon achteraf het bestand in Excel aangepast (wel vanuit Access).