Vanuit Acces een Excelbestand openen, vullen en wegschrijven

[zigby]

Hallo,

Kan iemand mij helpen met het volgende:

Ik heb een grote database, zeg maar "Klanten". Bepaalde gegevens wil ik verder in Excel analyseren, waar ik een format voor heb. Het enige wat moet gebeuren is inlezen vanuit Acces in Excel.

Dit proces wil ik automatiseren door:

a) vanuit Acces (in VBA code) het Excelbestand alleen-lezen te openen

b) voor een bepaalde klant de gegevens op de juiste plek in het excelbestand te plakken

c) het excelbestand op te slaan onder het klantnummer

d) Het bovenstaande te herhalen voor een nieuw klantnummer

Het gaat mij om a) en c) : is het uberhaupt mogelijk vanuit Acces hetzelfde excelbestand te openen en vervolgens weg te schrijven? Zo ja, heeft iemand een voorbeeldcode?

Ik wil dus graag weten of a) en c) mogelijk zijn en niet hoe ik anders zou kunnen analyseren


Alvast heel erg dank!!

 

[OctaFish]

Met zoiets bijvoorbeeld...

Sub OpenSpecific_xlFile()
'   Late Binding (Needs no reference set)
Dim oXL As Object
Dim oExcel As Object
Dim sFullPath As String
Dim sPath As String
     '   Create a new Excel instance
    Set oXL = CreateObject("Excel.Application")
    On Error Resume Next
    oXL.UserControl = True
     '   Full path of excel file to open
    On Error GoTo ErrHandle
    sFullPath = CurrentProject.Path & "\TestFile.xls"
     '   Open it
    With oXL
        .Visible = True
        .Workbooks.Open (sFullPath)
    End With
     
ErrExit:
    Set oXL = Nothing
    Exit Sub
     
ErrHandle:
    oXL.Visible = False
    MsgBox Err.Description
    GoTo ErrExit
End Sub

 

[zigby]

Bedankt OctaFish,

Het openen werkt goed. Ik moet een en ander nog uitwerken (het wegschrijven bijv.) maar heb nu een goed begin!

 

[OctaFish]

Voor het wegschrijven heb ik ook nog wel code. Kijk vooral ook eens op de site van Datapig; die hebben een leuke oplossing voor Excel connecties!

 

[zigby]

Heb volgens mij het antwoord gevonden:

Save As


Hoi OctaFish,

Ik ben nu zover dat ik mijn data kan inlezen, maar de stap om het format bestand (dat ik dus mbv je code heb geopend en vervolgens heb gevuld vanuit access ) op te slaan als, wil niet lukken.

Heb je daar suggesties voor?

Alvast dank!