Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: daten von kenwort geschützter accessdb importieren

daten von kenwort geschützter accessdb importieren
05.04.2005 16:46:30
kenwort
hallo
geht das, dass ich die daten einer access datenbank, welche mit dem kennwort test geschützt ist importieren kann, ohne das ich das kennwort eingeben muss?
momentan muss ich immernoch das passwort eingeben und
momentan sieht mein sub so aus:
Private Sub Workbook_Open()
'stopp uhr start
Dim s As Long, e As Long
Dim i As Long
s = GetTickCount
'-----------
Application.ScreenUpdating = False
Cells.Select
Selection.ClearContents
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=Microsoft Access-Datenbank;DBQ=H:\Personal\Job\Kursdatenbank\ACHTUNG!Datenbank Backend\DB_V1.1_be.mdb;DefaultDir=H:\Persona" _
), Array( _
"l\Job\Kursdatenbank\ACHTUNG!Datenbank Backend;DriverId=25;Exclusive=1;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;;ReadOnly=" _
), Array("0;UID=admin;")), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT *" & Chr(13) & "" & Chr(10) & "FROM Kursbesuche_Kreuztabelle Kursbesuche_Kreuztabelle" & Chr(13) & "" & Chr(10) & "ORDER BY Kursbesuche_Kreuztabelle.Kostenstelle" _
)
.Name = "Abfrage von Microsoft Access-Datenbank_75"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
Columns("E:E").Select
Selection.Delete Shift:=xlToLeft

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: daten von kenwort geschützter accessdb importieren
07.04.2005 00:02:07
kenwort
Hallo,
versuch es mal so (musst Du noch ein bischen anpassen. DB_Name, SELECT... ).

Private Sub Workbook_Open()
Dim appAccess   As Object
Dim accDB       As Object
Dim accRst      As Object
Dim strConnect  As String
Const DB_NAME As String = "C:\TEST.mdb" 'Datenbank
Const PASSWORT As String = "test"       'Passwort
'Connect String
strConnect = "ms access;pwd=" & PASSWORT & ";database=" & DB_NAME
'neues Access Object
Set appAccess = CreateObject("Access.Application")
'Datenbank öffnen
Set accDB = appAccess.DBEngine(0).OpenDatabase( _
DB_NAME, _
Options:=False, _
ReadOnly:=True, _
Connect:=strConnect)
'neues Recordset
Set accRst = accDB.Openrecordset("SELECT * FROM Kursbesuche_Kreuztabelle ORDER BY Kursbesuche_Kreuztabelle.Kostenstelle;")
'Daten ausgeben
Range("A1").CopyFromRecordset accRst
accRst.Close
accDB.Close
Set accDB = Nothing
Set accRst = Nothing
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Daten aus einer kennwortgeschützten Access-Datenbank importieren


Schritt-für-Schritt-Anleitung

Um Daten aus einer kennwortgeschützten Access-Datenbank in Excel zu importieren, kannst du die folgende VBA-Anleitung verwenden. Diese Methode ermöglicht es dir, das Kennwort nicht manuell eingeben zu müssen.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu, indem du im Menü "Einfügen" auf "Modul" klickst.

  3. Kopiere den folgenden Code in das Modul:

    Private Sub Workbook_Open()
       Dim appAccess   As Object
       Dim accDB       As Object
       Dim accRst      As Object
       Dim strConnect  As String
       Const DB_NAME As String = "C:\DEIN_PFAD\DEINE_DATENBANK.mdb" 'Pfad zur Datenbank
       Const PASSWORT As String = "dein_passwort"       'Passwort der Datenbank
    
       'Connect String
       strConnect = "ms access;pwd=" & PASSWORT & ";database=" & DB_NAME
    
       'neues Access Object
       Set appAccess = CreateObject("Access.Application")
    
       'Datenbank öffnen
       Set accDB = appAccess.DBEngine(0).OpenDatabase( _
           DB_NAME, _
           Options:=False, _
           ReadOnly:=True, _
           Connect:=strConnect)
    
       'neues Recordset
       Set accRst = accDB.Openrecordset("SELECT * FROM DeineTabelle ORDER BY DeineSpalte;")
    
       'Daten ausgeben
       Range("A1").CopyFromRecordset accRst
       accRst.Close
       accDB.Close
       Set accDB = Nothing
       Set accRst = Nothing
    End Sub
  4. Ersetze C:\DEIN_PFAD\DEINE_DATENBANK.mdb mit dem tatsächlichen Pfad zu deiner Access-Datenbank und passe dein_passwort an.

  5. Schließe den VBA-Editor und speichere die Datei als Excel-Arbeitsmappe mit Makros (Dateiendung .xlsm).

  6. Öffne die Arbeitsmappe erneut, um den Import auszuführen.


Häufige Fehler und Lösungen

  • Fehler: "Datenbank nicht gefunden": Überprüfe den Pfad zur Datenbank und stelle sicher, dass er korrekt ist.
  • Fehler: "Kennwort falsch": Vergewissere dich, dass das Passwort korrekt eingegeben ist und keine zusätzlichen Leerzeichen enthält.
  • Fehler: "Datenbank ist beschädigt": Versuche, die Datenbank in Access zu reparieren.

Alternative Methoden

Wenn du die VBA-Methode nicht verwenden möchtest, kannst du auch die Funktion "Daten abrufen" in Excel nutzen:

  1. Gehe zu Daten > Abrufen & Transformieren > Aus Datenbank > Aus Microsoft Access-Datenbank.
  2. Wähle die Datei aus und gib das Kennwort ein, wenn du dazu aufgefordert wirst.
  3. Wähle die benötigte Tabelle aus und klicke auf Laden.

Diese Methode ist benutzerfreundlicher, erfordert jedoch die Eingabe des Kennworts.


Praktische Beispiele

Hier sind zwei Szenarien, wie du Daten aus einer kennwortgeschützten Access-Datenbank importieren kannst:

  1. Import von Kursdaten: Wenn du eine Datenbank mit Kursbesuchen hast, kannst du die oben gezeigte VBA-Methode verwenden, um die Daten in eine Excel-Tabelle zu importieren.
  2. Analyse von Verkaufsdaten: Nutze die Daten abrufen-Funktion, um Verkaufsdaten aus einer Access-Datenbank zu importieren und sie mit Excel-Analysetools auszuwerten.

Tipps für Profis

  • Automatisiere den Prozess: Erstelle eine Schaltfläche in Excel, um das Makro auszuführen und den Import zu vereinfachen.
  • Sichere deine Daten: Stelle sicher, dass du regelmäßig Backups deiner Access-Datenbank machst, um Datenverlust zu vermeiden.
  • Verwende Parameterabfragen: Wenn du nur bestimmte Daten importieren möchtest, kannst du Parameterabfragen in deinem SQL-Befehl verwenden.

FAQ: Häufige Fragen

1. Was kann ich tun, wenn ich das Kennwort für meine Access-Datenbank vergessen habe?
Leider gibt es keine einfache Möglichkeit, ein vergessenes Passwort wiederherzustellen. Du kannst versuchen, über eine Sicherungskopie der Datenbank oder durch einen IT-Support Hilfe zu erhalten.

2. Kann ich eine Access-Datenbank ohne Passwortschutz erstellen?
Ja, beim Erstellen einer neuen Datenbank in Access kannst du die Passwortoption weglassen, um sie ungeschützt zu lassen.

3. Wie kann ich eine Excel-Tabelle in Access importieren?
Du kannst dies in Access unter Externe Daten > Excel tun und den Anweisungen folgen, um die Daten zu importieren.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige