Win8_Office2013: Zugriff auf Access per VBA Excel
28.05.2014 08:47:02
Heinrich
Unter Win7 und mit Office 2010 funktioniert der folgende Code wunderbar, um per VBA Excel auf eine Access DB (.mdb) zuzugreifen (in diesem Fall einen Datensatz einfügen).
Unter Win8 und mit Office 2013 bekomme ich jedoch eine Fehlermeldung "Provider nicht gefunden ...".
Mit Hilfe von google habe ich nun zumindest eine Ahnung, dass es evtl. an Win8 und/oder Office 2013 liegen könnte, dass kein Provider für "Microsoft.Jet.OLEDB.4.0" gefunden wird. Igendwie, so habe ich das verstanden, hängt das Ganze vielleicht (auch) mit 32Bit/64Bit zusammen, auch wenn ich hier schon aussteige und nicht mehr verstehe, worum es hier geht.
Im Folgenden stelle ich euch mal meinen Code zur Verfügung, in der Hoffnung, dass mir jemand helfen und schreiben kann, was ich umschreiben muss und welche Verweise ich setzen muss, damit das Ganze auch unter Win8 und mit Office 2013 funktioniert.
Hilfeeeee! Und vielen Dank im Voraus!
+++
Sub DatenInAccessSchreiben()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim comm As New ADODB.Command
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open ("C:\ExcelAccess\DB.mdb")
Set comm.ActiveConnection = conn
rs.Open "tbl_Daten", conn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs!Kundennummer = "22222222"
rs.Update
rs.Close
conn.Close
Set conn = Nothing
End Sub
+++