Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Access nach Excell exportieren
#31
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
Mit freundlichen Grüßen  :)
Michael
Antworten Top
#32
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". Angel
Grüße, Charly
Antworten Top
#33
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.
Grüße, Charly
Antworten Top
#34
Wird mW bei der Officeinstallation mitinstalliert.
Mit freundlichen Grüßen  :)
Michael
Antworten Top
#35
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. :@
Grüße, Charly
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste