Export alle tabellen naar een csv-file

Status
Niet open voor verdere reacties.

linkav

Gebruiker
Lid geworden
13 jun 2007
Berichten
465
Beste,

Ik zou alle gekoppelde tabellen, die in de naam van de tabel de string 'export' hebben, moeten exporteren naar een csv-bestand.

Kan iemand mij hiermee helpen?
 
Kun je met DoCmd.Transfer.text wel doen denk ik.
 
Hallo,

Ik ben aan het testen geweest met DoCmd.TransferText, maar krijg altijd een foutmelding, nl Error 3441: het veldscheidingsteken uit de specificatie voor het tekstbestand komt overeen met het decimaalteken of het tekstscheidingsteken. Het zal inderdaad zijn dat de komma als scheidingsteken staat, maar ik vind niet waar ik dat kan veranderen.

Verder gebruik ik deze code:
Code:
    Dim tmpSql As String
    Dim qd As DAO.QueryDef
    Dim tmpOutputFile As String
    
    tmpSql = "SELECT * FROM tblUrenRegistraties_Hfd"
    tmpOutputFile = "K:\CSV\Backup_UrenRegistraties_Hfd_" & (Year(Date) * 10000 + Month(Date) * 100 + Day(Date)) & "_" &  Format(Hour(Time()), "00") & Format(Minute(Time()), "00") & ".CSV"

    Set qd = db.CreateQueryDef("tmpExport", tmpSql)
    
    DoCmd.TransferText acExportDelim, , "tmpExport", tmpOutputFile
    db.QueryDefs.Delete "tmpExport"
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan