link van excel naar access sluiten

[Kristinho1978]

Ik heb een macro opgenomen die een query uitt access in excel binnenhaalt.
Echter: terwijl de data al lang en breed binnen is er je geen activiteit meer tussen excel en access zou verwachten, lijkt het erop dat de accessfile door mijn excel 'bezet' blijft. Andere gebruikers kunnen de accessfile alleen in read only openen tot ik mijn excel afsluit.

Is er een mogelijkheid om via VBA de connectie met access te verbreken zodra de data binnen is?

 

[OctaFish]

Dan moet je daarna de koppeling verbreken. Dan heb je het dus wél over een eenmalige import, want dan heb je geen koppeling meer.

 

[Kristinho1978]

is het niet mogelijk om de koppeling te maken zodra ik de macro aanroep en 'm te verbreken zodra de data binnen is? Er hoeft wat mij betreft geen continue koppeling te zijn, alleen als ik de macro draai.
Wat zou ik aan de macro moeten aanpassen//toevoegen?

 

[OctaFish]

Waarom zou je dan nog een koppeling maken? Dan kun je veel beter een recorset maken op de database, en de query inlezen in je werkblad met CopyFromRecordset.

For iCols = 0 to rs.Fields.Count - 1
    ws.Cells(1, iCols + 1).Value = rs.Fields(iCols).Name
Next
ws.Range(ws.Cells(1, 1),  _
    ws.Cells(1, rs.Fields.Count)).Font.Bold = True
ws.Range("A2").CopyFromRecordset rs

 

[Kristinho1978]

klikt goed, hoe doe ik dat met die Recordset?

het gaat om EEN bepaalde query ("Query1") in een accesfile ("File1")

 

[Kristinho1978]

waar moet ik mijn accessfilenaam invullen en waar de querynaam waarom het gaat?
ik denk dat ik nog een stukje code mis, toch?

 

[pixcel]

Je haalt de query binnen via een macro. Maak je dan een querytable? Als je de connectie op Read zet dan zal Excel de database niet "bezetten".
Zie ook http://www.helpmij.nl/forum/showthread.php/880771-Data-ophalen-uit-ander-excel-bestand-in-netwerk

 

[Kristinho1978]

ik denk dat het gelukt is thanks