ismrwykf

Function Import_Access_to_Excel_Soll()
Dim oRS As Object, oConn As Object
Dim sSql As String, strCon As String
Dim iCount As Integer, strAccessFile As String
strAccessFile = "d:\_finanzen\Privat_2023.accdb"
sSql = "SELECT * FROM abfr_3001_Excel_Export_ab_3000_SOLL"
Set oConn = CreateObject("ADODB.Connection")
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strAccessFile & ";"
oConn.Open strCon
Set oRS = oConn.Execute(sSql)
Sheets("Daten").Cells.Clear ' Tabellen CLEAREN
iCount = Sheets("Daten").Range("A2").CopyFromRecordset(oRS)
oRS.Close
oConn.Close
Set oRS = Nothing
Set oConn = Nothing
End Function