Sehr geehrte Damen und Herren,
Mich beschäftigt seit einiger Zeit das Problem, wie man beim Lesen von Daten in anderen, geschlossenen und mit Passwort versehenen Excel-Dateien via ODBC und VBA das Passwort der zu lesenden Datei mitgiebt. Ich bekomme bei diesem Versuch immer wieder die Meldung, das die betreffende Datei nicht entschlüsselt werden kann. Ich verwende folgenden Code:
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=Excel-Dateien;DBQ=Laufwerk:\Pfad\Test_einlesen.xls;DefaultDir" _
), Array( _
"=Laufwerk.\Pfad;DriverId=790;MaxBufferSize=2048;PageTimeout=5;" _
)), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT `Tabelle1$`.Abteilung, `Tabelle1$`.Anzahl_ID, `Tabelle1$`.Ausweisnummer, `Tabelle1$`.Erstelldatum_Ausweis, `Tabelle1$`.Erstelldatum_ID, `Tabelle1$`.Nachname, `Tabelle1$`.Vorname" & Chr(13) & "" & Chr(10) & "FROM `Tabelle1" _
, "$` `Tabelle1$`" & Chr(13) & "" & Chr(10) & "ORDER BY `Tabelle1$`.Nachname")
.Name = "Abfrage von Excel-Dateien"
.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