title image


Smiley Re: DAO und Excel wie ... ACHTUNG: MEGA-POSTING!
... wenn ich schreibe "Mega-Posting", dann meine ich das auch ;-)



Also zunächst einmal hier der Visual Basic Code, den du am besten in ein Standardmodul kopierst:



Option Explicit Private vExlSheet As Variant Sub Main()    Dim i As Integer, j As Integer    Dim strArbeitsmappe As String    Dim strTabelle As String     strArbeitsmappe = App.Path & "\Mappe1.xls"    strTabelle = "Tabelle1"     CopyExcel strArbeitsmappe, strTabelle     For i = LBound(vExlSheet, 2) To UBound(vExlSheet, 2)        For j = LBound(vExlSheet, 1) To UBound(vExlSheet, 1)            Debug.Print vExlSheet(j, i),        Next        Debug.Print    NextEnd Sub'-------------------------------------------------- Private Sub CopyExcel(ByVal sWBook As String, ByVal sTabelle As String)    Dim DB As Database    Dim RS As Recordset    Dim count As Long     'Auf manchen Rechnern braucht man die folgende Zeile:    'DBEngine.IniPath = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\3.5"     Set DB = DBEngine.OpenDatabase(sWBook, False, False, "Excel 5.0;")    Set RS = DB.OpenRecordset(sTabelle & "$")    count = RS.RecordCount     ' jetzt wird mit einem Schlag in Array kopiert    vExlSheet = RS.GetRows(count)     ' Aufräumen.    RS.Close: DB.CloseEnd Sub'-------------------------------------------------- 



Soweit zum Code. Der Code funktioniert jedoch nicht auf jedem Rechner. Oft bekommt man die Fehlermeldung: "Installierbares ISAM nicht gefunden"



Das liegt daran, daß in der Registry einige Einträge fehlen, in denen das Format der Datenquelle beschrieben wird, z.B. ob eine Datei mehrere Tabellen enthalten kann (Access, Excel) oder ob jede Tabelle in einer eigenen Datei gespeichert ist (dBase, Textdateien).

Oder die Sortierreihenfolge, Standorte der einzubindenden DLLs usw. Deshalb biete ich Dir hier folgende Registry-Datei an:



REGEDIT4 [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5] [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\Engines]"SystemDB"="system.mdb""CompactByPKey"=dword:00000001"SandBoxMode"=dword:00000002 [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\Engines\Jet 3.5]"PageTimeout"=dword:00001388"LockRetry"=dword:00000014"MaxBufferSize"=dword:00000000"Threads"=dword:00000003"ExclusiveAsyncDelay"=dword:000007d0"SharedAsyncDelay"=dword:00000032"FlushTransactionTimeout"=dword:000001f4"MaxLocksPerFile"=dword:0000251c"LockDelay"=dword:00000064"RecycleLVs"=dword:00000000"UserCommitSync"="yes""ImplicitCommitSync"="no" [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\Engines\ODBC]"TraceODBCAPI"=dword:00000000"DisableAsync"=dword:00000001"TraceSQLMode"=dword:00000000"QueryTimeout"=dword:0000003c"LoginTimeout"=dword:00000014"ConnectionTimeout"=dword:00000258"TryJetAuth"=dword:00000001"FatBlastRows"=dword:ffffffff"FatBlastTimeout"=dword:00000003"AsyncRetryInterval"=dword:000001f4"AttachCaseSensitive"=dword:00000000"FastRequery"=dword:00000000"ODBCISAMAttach"=dword:00000000"PreparedInsert"=dword:00000000"PreparedUpdate"=dword:00000000"SnapshotOnly"=dword:00000000"AttachableObjects"="'TABLE','VIEW','SYSTEM TABLE','ALIAS','SYNONYM'" [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\Engines\Excel]"win32"="C:\\WINDOWS\\SYSTEM\\MSEXCL35.DLL""ImportMixedTypes"="Text""FirstRowHasNames"=hex:01"AppendBlankRows"=dword:00000001"TypeGuessRows"=dword:00000008"DisabledExtensions"="!xls" [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\Engines\Text]"win32"="C:\\WINDOWS\\SYSTEM\\MSTEXT35.DLL""CharacterSet"="OEM""Format"="Delimited(;)""Extensions"="txt,csv,tab,asc""FirstRowHasNames"=hex:01"MaxScanRows"=dword:00000019"ExportCurrencySymbols"=hex:01"DisabledExtensions"="!txt,csv,tab,asc,htm,html" [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\Engines\Xbase]"win32"="C:\\WINDOWS\\SYSTEM\\MSXBSE35.DLL""DbcsStr"=hex:00"PageTimeout"=dword:00000258"DataCodePage"="OEM""Mark"=dword:00000000"Date"="MDY""Exact"=hex:00"Deleted"=hex:01"Century"=hex:00"CollatingSequence"="Ascii""NetworkAccess"=hex:01 [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\Engines\Paradox]"win32"="C:\\WINDOWS\\SYSTEM\\MSPDOX35.DLL""PageTimeout"=dword:00000258"DataCodePage"="OEM""CollatingSequence"="Ascii""ParadoxNetStyle"="4.x" [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\Engines\Lotus]"win32"="C:\\WINDOWS\\SYSTEM\\MSLTUS35.DLL""ImportMixedTypes"="Text""FirstRowHasNames"=hex:01"AppendBlankRows"=dword:00000001"TypeGuessRows"=dword:00000008 [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\Engines\Debug]"JETSHOWPLAN"="ON" [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\Engines\Jet 2.x]"win32"="C:\\WINDOWS\\SYSTEM\\MSRD2X35.DLL""ReadAheadPages"=dword:00000008"MaxBufferSize"=dword:00000200"LockRetry"=dword:00000014"CommitLockRetry"=dword:00000014"PageTimeout"=dword:00000005"LockedPageTimeout"=dword:00000005"CursorTimeout"=dword:00000005"IdleFrequency"=dword:0000000a"ForceOSFlush"=dword:00000000 [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\ISAM Formats] [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\ISAM Formats\dBase III]"Engine"="Xbase""ExportFilter"="dBASE III (*.dbf)""ImportFilter"="dBASE III (*.dbf)""CanLink"=hex:01"OneTablePerFile"=hex:01"IsamType"=dword:00000000"IndexDialog"=hex:01"IndexFilter"="dBASE-Index (*.ndx)""CreateDBOnExport"=hex:00"ResultTextImport"="Importieren von Daten aus der externen Datei in die aktuelle Datenbank. Durch Änderungen der Daten in der aktuellen Datenbank werden die Daten in der externen Datei nicht geändert.""ResultTextLink"="Erstellen einer Tabelle in der aktuellen Datenbank, die mit der externen Datei verknüpft ist. Durch Änderungen der Daten in der aktuellen Datenbank werden die Daten in der externen Datei geändert.""ResultTextExport"="Exportieren von Daten aus der aktuellen Datenbank in eine dBase III-Datei. Durch diesen Vorgang werden die Daten überschrieben, wenn in eine existierende Datei exportiert wird.""SupportsLongNames"=hex:00 [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\ISAM Formats\dBase IV]"Engine"="Xbase""ExportFilter"="dBASE IV (*.dbf)""ImportFilter"="dBASE IV (*.dbf)""CanLink"=hex:01"OneTablePerFile"=hex:01"IsamType"=dword:00000000"IndexDialog"=hex:01"IndexFilter"="dBASE-Index (*.ndx;*.mdx)""CreateDBOnExport"=hex:00"ResultTextImport"="Importieren von Daten aus der externen Datei in die aktuelle Datenbank. Durch Änderungen der Daten in der aktuellen Datenbank werden die Daten in der externen Datei nicht geändert.""ResultTextLink"="Erstellen einer Tabelle in der aktuellen Datenbank, die mit der externen Datei verknüpft ist. Durch Änderungen der Daten in der aktuellen Datenbank werden die Daten in der externen Datei geändert.""ResultTextExport"="Exportieren von Daten aus der aktuellen Datenbank in eine dBase IV-Datei. Durch diesen Vorgang werden die Daten überschrieben, wenn in eine existierende Datei exportiert wird.""SupportsLongNames"=hex:00 [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\ISAM Formats\dBase 5.0]"Engine"="Xbase""ExportFilter"="dBASE 5 (*.dbf)""ImportFilter"="dBASE 5 (*.dbf)""CanLink"=hex:01"OneTablePerFile"=hex:01"IsamType"=dword:00000000"IndexDialog"=hex:01"IndexFilter"="dBASE-Index (*.ndx;*.mdx)""CreateDBOnExport"=hex:00"ResultTextImport"="Importieren von Daten aus der externen Datei in die aktuelle Datenbank. Durch Änderungen der Daten in der aktuellen Datenbank werden die Daten in der externen Datei nicht geändert.""ResultTextLink"="Erstellen einer Tabelle in der aktuellen Datenbank, die mit der externen Datei verknüpft ist. Durch Änderungen der Daten in der aktuellen Datenbank werden die Daten in der externen Datei geändert.""ResultTextExport"="Exportieren von Daten aus der aktuellen Datenbank in eine dBase 5-Datei. Durch diesen Vorgang werden die Daten überschrieben, wenn in eine existierende Datei exportiert wird.""SupportsLongNames"=hex:00 [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\ISAM Formats\FoxPro 2.0]"Engine"="Xbase""ExportFilter"="Microsoft FoxPro 2.0 (*.dbf)""ImportFilter"="Microsoft FoxPro (*.dbf)""CanLink"=hex:01"OneTablePerFile"=hex:01"IsamType"=dword:00000000"IndexDialog"=hex:01"IndexFilter"="FoxPro-Index (*.idx;*.cdx)""CreateDBOnExport"=hex:00"ResultTextImport"="Importieren von Daten aus der externen Datei in die aktuelle Datenbank. Durch Änderungen der Daten in der aktuellen Datenbank werden die Daten in der externen Datei nicht geändert.""ResultTextLink"="Erstellen einer Tabelle in der aktuellen Datenbank, die mit der externen Datei verknüpft ist. Durch Änderungen der Daten in der aktuellen Datenbank werden die Daten in der externen Datei geändert.""ResultTextExport"="Exportieren von Daten aus der aktuellen Datenbank in eine Microsoft FoxPro 2.0-Datei. Durch diesen Vorgang werden die Daten überschrieben, wenn in eine existierende Datei exportiert wird.""SupportsLongNames"=hex:00 [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\ISAM Formats\FoxPro 2.5]"Engine"="Xbase""ExportFilter"="Microsoft FoxPro 2.5 (*.dbf)""CanLink"=hex:01"OneTablePerFile"=hex:01"IsamType"=dword:00000000"IndexDialog"=hex:01"IndexFilter"="FoxPro-Index (*.idx;*.cdx)""CreateDBOnExport"=hex:00"ResultTextExport"="Exportieren von Daten aus der aktuellen Datenbank in eine Microsoft FoxPro 2.5-Datei. Durch diesen Vorgang werden die Daten überschrieben, wenn in eine existierende Datei exportiert wird.""SupportsLongNames"=hex:00 [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\ISAM Formats\FoxPro 2.6]"Engine"="Xbase""ExportFilter"="Microsoft FoxPro 2.6 (*.dbf)""CanLink"=hex:01"OneTablePerFile"=hex:01"IsamType"=dword:00000000"IndexDialog"=hex:01"IndexFilter"="FoxPro-Index (*.idx;*.cdx)""CreateDBOnExport"=hex:00"ResultTextExport"="Exportieren von Daten aus der aktuellen Datenbank in eine Microsoft FoxPro 2.6-Datei. Durch diesen Vorgang werden die Daten überschrieben, wenn in eine existierende Datei exportiert wird.""SupportsLongNames"=hex:00 [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\ISAM Formats\FoxPro 3.0]"Engine"="Xbase""ExportFilter"="Microsoft FoxPro 3.0 (*.dbf)""CanLink"=hex:00"OneTablePerFile"=hex:01"IsamType"=dword:00000000"IndexDialog"=hex:00"CreateDBOnExport"=hex:00"ResultTextExport"="Exportieren von Daten aus der aktuellen Datenbank in eine Microsoft FoxPro 3.0-Datei. Durch diesen Vorgang werden die Daten überschrieben, wenn in eine existierende Datei exportiert wird.""SupportsLongNames"=hex:00 [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\ISAM Formats\FoxPro DBC]"Engine"="Xbase""ImportFilter"="Microsoft FoxPro 3.0 (*.dbc)""CanLink"=hex:00"OneTablePerFile"=hex:00"IsamType"=dword:00000000"IndexDialog"=hex:00"CreateDBOnExport"=hex:00"ResultTextImport"="Importieren von Daten aus der externen Datei in die aktuelle Datenbank. Durch Änderungen der Daten in der aktuellen Datenbank werden die Daten in der externen Datei nicht geändert.""SupportsLongNames"=hex:00 [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\ISAM Formats\Paradox 3.X]"Engine"="Paradox""ExportFilter"="Paradox 3 (*.db)""ImportFilter"="Paradox (*.db)""CanLink"=hex:01"OneTablePerFile"=hex:01"IsamType"=dword:00000000"IndexDialog"=hex:00"CreateDBOnExport"=hex:00"ResultTextImport"="Importieren von Daten aus der externen Datei in die aktuelle Datenbank. Durch Änderungen der Daten in der aktuellen Datenbank werden die Daten in der externen Datei nicht geändert.""ResultTextLink"="Erstellen einer Tabelle in der aktuellen Datenbank, die mit der externen Datei verknüpft ist. Durch Änderungen der Daten in der aktuellen Datenbank werden die Daten in der externen Datei geändert.""ResultTextExport"="Exportieren von Daten aus der aktuellen Datenbank in eine Paradox 3-Datei. Durch diesen Vorgang werden die Daten überschrieben, wenn sie in eine existierende Datei exportiert werden.""SupportsLongNames"=hex:00 [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\ISAM Formats\Paradox 4.X]"Engine"="Paradox""ExportFilter"="Paradox 4 (*.db)""CanLink"=hex:01"OneTablePerFile"=hex:01"IsamType"=dword:00000000"IndexDialog"=hex:00"CreateDBOnExport"=hex:00"ResultTextExport"="Exportieren von Daten aus der aktuellen Datenbank in eine Paradox 4-Datei. Durch diesen Vorgang werden die Daten überschrieben, wenn in eine existierende Datei exportiert wird.""SupportsLongNames"=hex:00 [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\ISAM Formats\Paradox 5.X]"Engine"="Paradox""ExportFilter"="Paradox 5 (*.db)""CanLink"=hex:01"OneTablePerFile"=hex:01"IsamType"=dword:00000000"IndexDialog"=hex:00"CreateDBOnExport"=hex:00"ResultTextExport"="Exportieren von Daten aus der aktuellen Datenbank in eine Paradox 5-Datei. Durch diesen Vorgang werden die Daten überschrieben, wenn in eine existierende Datei exportiert wird.""SupportsLongNames"=hex:00 [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\ISAM Formats\Excel 5.0]"Engine"="Excel""ExportFilter"="Microsoft Excel 5-7 (*.xls)""ImportFilter"="Microsoft Excel (*.xls)""CanLink"=hex:01"OneTablePerFile"=hex:00"IsamType"=dword:00000001"IndexDialog"=hex:00"CreateDBOnExport"=hex:01"ResultTextImport"="Importieren von Daten aus der externen Datei in die aktuelle Datenbank. Durch Änderungen der Daten in der aktuellen Datenbank werden die Daten in der externen Datei nicht geändert.""ResultTextLink"="Erstellen einer Tabelle in der aktuellen Datenbank, die mit der externen Datei verknüpft ist. Durch Änderungen der Daten in der aktuellen Datenbank werden die Daten in der externen Datei geändert. Nur jeweils ein Benutzer kann Daten in der Datei ändern.""ResultTextExport"="Exportieren von Daten aus der aktuellen Datenbank in eine Excel 5-Datei.""SupportsLongNames"=hex:01"OutputFormat"="Microsoft Excel (*.xls)""ReportFormat"="Microsoft Excel""ImportWizardFunction"="mx_entry""WizardProject"="wzlib80.mde" [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\ISAM Formats\Excel 4.0]"Engine"="Excel""ExportFilter"="Microsoft Excel 4 (*.xls)""CanLink"=hex:01"OneTablePerFile"=hex:00"IsamType"=dword:00000001"IndexDialog"=hex:00"CreateDBOnExport"=hex:01"ResultTextExport"="Exportieren von Daten aus der aktuellen Datenbank in eine Excel 4-Datei. Durch diesen Vorgang werden die Daten überschrieben, wenn in eine existierende Datei exportiert wird.""SupportsLongNames"=hex:01"ImportWizardFunction"="mx_entry""WizardProject"="wzlib80.mde" [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\ISAM Formats\Excel 3.0]"Engine"="Excel""ExportFilter"="Microsoft Excel 3 (*.xls)""CanLink"=hex:01"OneTablePerFile"=hex:00"IsamType"=dword:00000001"IndexDialog"=hex:00"CreateDBOnExport"=hex:01"ResultTextExport"="Exportieren von Daten aus der aktuellen Datenbank in eine Excel 3-Datei. Durch diesen Vorgang werden die Daten überschrieben, wenn in eine existierende Datei exportiert wird.""SupportsLongNames"=hex:01"ImportWizardFunction"="mx_entry""WizardProject"="wzlib80.mde" [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\ISAM Formats\Excel 8.0]"Engine"="Excel""ExportFilter"="Microsoft Excel 97 (*.xls)""CanLink"=hex:01"OneTablePerFile"=hex:00"IsamType"=dword:00000001"IndexDialog"=hex:00"CreateDBOnExport"=hex:01"ResultTextExport"="Exportieren von Daten aus der aktuellen Datenbank in eine Excel 97-Datei.""SupportsLongNames"=hex:01"OutputFormat"="Microsoft Excel (*.xls)""ReportFormat"="Microsoft Excel""ImportWizardFunction"="mx_entry""WizardProject"="wzlib80.mde" [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\ISAM Formats\Text]"Engine"="Text""ExportFilter"="Textdateien (*.txt;*.csv;*.tab;*.asc)""ImportFilter"="Textdateien (*.txt;*.csv;*.tab;*.asc)""CanLink"=hex:01"OneTablePerFile"=hex:01"IsamType"=dword:00000002"IndexDialog"=hex:00"CreateDBOnExport"=hex:00"ResultTextImport"="Importieren von Daten aus der externen Datei in die aktuelle Datenbank. Durch Änderungen der Daten in der aktuellen Datenbank werden die Daten in der externen Datei nicht geändert.""ResultTextLink"="Erstellen einer Tabelle in der aktuellen Datenbank, die mit der externen Datei verknüpft ist. Durch Änderungen der Daten in der aktuellen Datenbank werden die Daten in der externen Datei geändert.""ResultTextExport"="Exportieren von Daten aus der aktuellen Datenbank in eine Textdatei. Durch diesen Vorgang werden die Daten überschrieben, wenn in eine existierende Datei exportiert wird.""SupportsLongNames"=hex:01"FormatFunction"="txt,SOA_RptToAscii,1,MS-DOS Text (*.txt)""OutputFormat"="MS-DOS Text (*.txt)""ReportFormat"="MS-DOS Text""ExportWizardFunction"="mx_entry""ImportWizardFunction"="mx_entry""WizardProject"="wzlib80.mde" [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\ISAM Formats\HTML Import]"Engine"="Text""ImportFilter"="HTML-Dokumente (*.html;*.htm)""CanLink"=hex:01"OneTablePerFile"=hex:00"IsamType"=dword:00000002"IndexDialog"=hex:00"CreateDBOnExport"=hex:00"ResultTextImport"="Importieren von Daten aus der externen Datei in die aktuelle Datenbank. Durch Änderungen der Daten in der aktuellen Datenbank werden die Daten in der externen Datei nicht geändert.""ResultTextLink"="Erstellen einer Tabelle in der aktuellen Datenbank, die mit der externen Datei verknüpft ist. Durch Änderungen der Daten in der aktuellen Datenbank werden die Daten in der externen Datei geändert.""SupportsLongNames"=hex:01"ImportWizardFunction"="mx_entry""WizardProject"="wzlib80.mde" [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\ISAM Formats\HTML Export]"Engine"="Text""ExportFilter"="HTML-Dokumente (*.html;*.htm)""CanLink"=hex:00"OneTablePerFile"=hex:01"IsamType"=dword:00000002"IndexDialog"=hex:00"CreateDBOnExport"=hex:00"ResultTextExport"="Exportieren von Daten aus der aktuellen Datenbank in eine Textdatei. Durch diesen Vorgang werden die Daten überschrieben, wenn in eine existierende Datei exportiert wird.""SupportsLongNames"=hex:01"OutputFormat"="HTML (*.html)""ReportFormat"="HTML" [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\ISAM Formats\Lotus WK1]"ImportWizardFunction"="mx_entry""WizardProject"="wzlib80.mde" [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\ISAM Formats\Lotus WK3]"ImportWizardFunction"="mx_entry""WizardProject"="wzlib80.mde" [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\ISAM Formats\Lotus WK4]"ImportWizardFunction"="mx_entry""WizardProject"="wzlib80.mde" [HKEY_LOCAL_MACHINE\Software\Microsoft\Jet\3.5\ISAM Formats\Jet 2.x]"Engine"="Jet 2.x""OneTablePerFile"=hex:00"IndexDialog"=hex:00"CreateDBOnExport"=hex:00"IsamType"=dword:00000000  



Kopiere den Inhalt über die Zwischenablage in einen Texteditor und erstelle damit eine Datei namens "ISAM.reg".

Doppelklicken und die Sicherheitsfrage mit "Ja" beantworten.



Bitte frag mich nicht nach weiteren Einzelheiten, denn ich hatte mich seinerzeit ca. eine lang Woche mit diesem Thema (allerdings für dBase, nicht für Excel) herumgeschlagen und diese Registry-Datei als Ergebnis meiner damaligen Suche gesichert.
Thomas Prötzsch

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: