Access nach Excell exportieren

[Zwergel]

Moin,

nachstehend der Code, der aufgezeichnet wurde:

Code:

Option Explicit

Sub Makro1()
'
' Makro1 Makro
'

'
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _
        "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Password="""";User ID=Admin;Data Source=G:\Daten\Access\Northwind 20071.accdb;Mode=Share Deny Wr" _
        , _
        "ite;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engi" _
        , _
        "ne Type=6;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:N" _
        , _
        "ew Database Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on C" _
        , _
        "ompact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=False" _
        ), Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdTable
        .CommandText = Array("Kunden")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceDataFile = "G:\Daten\Access\Northwind 20071.accdb"
        .ListObject.DisplayName = "Tabelle_Northwind_20071.accdb"
        .Refresh BackgroundQuery:=False
    End With
End Sub

Infos:

Es wurde die komplette Tabelle Kunden aus der Datenbank Northwind 20071.accdb vom Speicherpfad G:\Daten\Access importiert. Der Code erklärt sich selbst.

Also per Aufzeichnung funktioniert das einwandfrei. Bei anderen Access Versionen (hier für Office 2007) ergeben sich sicher teilweise Unterschiede im Code

[karomue]

Hallo Michael,

Excel-Import läuft, danke. Nun muss ich mal schauen, wie ich das Makro so umbaue, dass es mindestens für 2016 (HAUSakt) und 2015 (HAUSsteu) läuft, das sollte aber eine der lechteren Übungen sein.

Fein, wieder um einiges im Verständniss von Access und Excel reicher, ein "Riesenschritt zum Experten".

[karomue]

Gibt es eigentlich irgendeinen netten Ort wo man sich Northwind als Datenbank ausführbar - nicht dieses *.msi Dingens, damit komme ich nicht klar - runterladen kann?? Danke schon mal.

[Zwergel]

Wird mW bei der Officeinstallation mitinstalliert.

[karomue]

Leider nein (Office365 bzw 2016). Macht nix, habe jetzt nach 1 halben Tag Such - mit "Northwind.accdb" - einen Server gefunden der das hat. Danke.

Hätte ich auch früher drauf kommen können. :@