Modul - AbfrageAusACCESS

Listet Daten aus einer Abfrage aus dem ACCESS in einer EXCEL Tabelle auf. Die ACCESS Tabelle kann mit einem Passwort geschützt sein.

Attribute VB_Name = "modAbfrageAusACCESS"
Option Explicit

'von Excel auf eine bestehende Access-Abfrage die Parameter übergeben
' - und das Ergebnis in einer Exceltabelle darstellen.
'DAO 3.6 Bibliothek muß unter Extras/Verweise aktiviert sein.

Sub AbfrageAusACCESS()

Dim Datenbank As Database
Dim Datensätze As Recordset
Dim PERSNR, BM, Beginn, Ende, Datei, Passwort As String

'Datei auf Pfad ==> "N:\Data Leistungskennzahlen\mdb\VGSTD.mdb"
'Abfrage        ==> abfPERSNR_aus_tabVGSTD

ChDir "N:\Data xx\xx_VBA\Excel - Makrosammlung"
ChDrive "N:\"
Datei = "N:\Data xx\xx_VBA\Excel - Makrosammlung\Makro_Sammlung_Gerry_VGSTD.mdb"

'Auswahlmöglichkeiten
'DATEI = InputBox("Bitte den Datei mit Pfad eingeben", "Eingabemaske für Datei", "N:\Data Leistungskennzahlen\mdb\VGSTD.mdb")
'DATEI = Application.GetOpenFilename _
    ("ACCESS Datenbanken (*.mdb),*.mdb,Datenbanken (*.mdb),*.mdb,Add-In-Dateien (*.xla),*.xla")

PERSNR = InputBox("Bitte den PERSNR eingeben", "Eingabemaske für Personalnummer", "000961")

'Datenbank mit Passwort öffnen
Passwort = "TEST"
Set Datenbank = DBEngine.OpenDatabase(Datei, False, False, ";Pwd=" & Passwort)

    Range("A4:IV4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Range("A4").Select
        
    Datenbank.QueryDefs("abfPERSNR_aus_tabVGSTD").Parameters("PERSNR eingeben(000961)") = PERSNR
    
    Set Datensätze = Datenbank.QueryDefs("abfPERSNR_aus_tabVGSTD").OpenRecordset
    Sheets("AbfrageAusACCESS").[A4].CopyFromRecordset Datensätze
    Datenbank.Close
    
    Range("P4").Select
End Sub

Download des Moduls
(AbfrageAusACCESS.zip - 914 Byte)

Zurück zum Anfang

Die "schnellen" Link's

Modul - AbfrageAusACCESS