access datei schließen in vba
29.03.2005 23:41:33
Tom
wie folgt mein makro
Sub Makro xxx
Dim accapplication As Access.Application
On Error Resume Next
Set accapplication = createObject("access.application")
accapplication.OpenCurrentDatabase _
"C:\Dokumente..........\test.mdb"
accapplication.UserControl = True
Set accapplication = Nothing
Dim ADOConnection As ADODB.Connection
Dim ADORecordset As ADODB.Recordset
On Error Resume Next
Set ADOConnection = New ADODB.Recordset
On Error Resume Next
Set ADOConnection = New ADODB.Connection
ADOConnection.Open "Provider=Microsoft.jet.oledb.4.0;" &_
"Data Source=c:\Dokumente................... test.mdb;"
Set ADORecordset.open "daten",ADOConnection, _
adopenstatic, adlockoptimistic, adcmdtable
Sheets("Tabelle3").Range("B3").Offset(1, 0).CopyFromRecordset ADORecordset
ADORecordset.close
ADOConnection.close
Set ADORecordset = Nothing
Set ADOConnection = Nothing
Application.Run "'YYY.xls'!Makro10"
End Sub
Ich hoffe ich hab das fehlerfrei abgetippselt, da ich es auf einem anderen Rechner laufen habe, der nicht mit dem Internet verbunden ist.
Die Access-Datei die abgerufen wird, ist durch ein Passworteingabe geschützt, die durch diese Art zumindest mal nicht abgefragt wird, was auch beabsichtigt ist.
Nun habe ich eben nur folgendes Problem,das mein Access nach dem auslesen der Daten geöffnet bleibt, kann ich das abändern oder erweitern, damit das was ich öffne auch wieder geschlossen wird?
Bitte um Hilfe
Danke schon einmal Gruß Tom