Daten von Access nach Excel und zurück
15.02.2016 18:21:11
Access
Ich möchte aus einer geöffneten Access-Datenbank heraus eine Excel Datei öffnen. Dort (in Excel) Daten ändern und die geänderten Daten wieder zurückgeben an die geöffnete Access-Datenbank.
Das öffnen der Excel mit den zur Bearbeitung erforderlichen Daten habe ich hinbekommen.
über den hier abgebildeten Code möchte ich nun, dass die Daten wieder in Access übernommen werden. Hierzu soll erst ein Import erfolgen und dann eine Anfüge-Abfrage. Grundsätzlich funktioniert dies schon. Nur leider wird über das Makro eine neue Datenbank geöffnet. Ich möchte aber, dass in der bereits geöffneten Access-Datenbank ein Makro ausgeführt wird. Was muss ich an dem Code in Excel ändern.
hier die beiden Makros in Excel:
Sub Änderungen_übernehmen()
Tabelle7.Cells(3, 3) = Now()
ActiveWorkbook.Save
Export_to_access
ActiveWorkbook.Close
End Sub
Sub Export_to_access()
Dim app As Object
Dim sql As String
Dim strPfad As String
strPfad = ActiveWorkbook.Path
Set app = CreateObject("Access.Application")
app.Visible = False
app.OpenCurrentDatabase (strPfad & "\Datenbank.accdb")
app.Run "Import"
End Sub
also noch mal zusammengefasst.
es ist eine Access-Datenbank geöffnet über eine Abfrage werden bestimmte Daten in Excel bereitgestellt. Diese sollen in Excel geändert werden können. Dann soll in Excel ebenfalls ein Makro laufen (siehe obiges) welches die Daten über einen Makro-Aufruf innerhalb der weiterhin geöffneten Access-Datenbank importiert. Nur funktioniert es nicht, da nun eine separate Access-Datenbank - mit dem gleichen Namen "Datenbank.accdb" wie die bereits geöffnete Datenbank geöffnet wird und dann dort das Makro ausgeführt wird - Aber eben nicht in der eigentlichen und die Daten gehen verloren.
Vielen Dank für eure Hilfe