Thema Datum  Von Nutzer Rating
Antwort
Rot Daten per ADODB aus Excel File importieren
20.04.2021 11:22:01 Sven Fichtner
NotSolved
20.04.2021 12:55:35 Mase
NotSolved
21.04.2021 11:35:06 Gast43976
NotSolved
21.04.2021 11:51:41 Mase
NotSolved

Ansicht des Beitrags:
Von:
Sven Fichtner
Datum:
20.04.2021 11:22:01
Views:
82
Rating: Antwort:
  Ja
Thema:
Daten per ADODB aus Excel File importieren

Hallo,

folgende Aufgabe:

Es gibt mehrere hundert XLS Files in einem Ordner. Aus diesen sollen Daten "extrahiert" werden und in eine Access DB gelegt werden.

Hierzu gibt es 4 Functionen:

FU_1 = Durchlaufen der Ordner Struktur

FU_2 = Excel File in ein Array packen

FU_3 = Daten aus dem Array "extrahieren"

FU_4 = In die DB schreiben

 

Bei FU_2 bekomme ich sporadisch mal nach 50, mal nach 71, mal nach 91 Files die Fehlermeldung:

1

 

Das Problem scheint sich zu lösen wenn ich Excel neustarte, dann läuft er wieder sporadisch weiter...

Hier noch FU_2:

 

Function ClosedExcelFileToArray(Pfad As String, Tabelle As String) As Variant
  Dim cn As ADODB.Connection, rs As ADODB.Recordset
  Dim sql As String
  Dim Data1 As Variant, Data2 As Variant
  Dim z As Long, s As Long
  Set cn = New ADODB.Connection
  Set rs = New ADODB.Recordset
  sql = "SELECT * FROM [" & Tabelle & "$]"
  
  cn.Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)}; DBQ=" & Pfad

  rs.Open sql, cn
  Data1 = rs.GetRows
  rs.Close
  cn.Close
  ReDim Data2(UBound(Data1, 2) + 1, UBound(Data1, 1) + 1)
  For z = 0 To UBound(Data1, 2)
    For s = 0 To UBound(Data1, 1)
      Data2(z + 1, s + 1) = Data1(s, z)
    Next
  Next
  ClosedExcelFileToArray = Data2
End Function

 

Wäre echt toll wenn Ihr mir weiterhelfen könntet.

 

Vielen Dank

 

Gruß Sven


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Daten per ADODB aus Excel File importieren
20.04.2021 11:22:01 Sven Fichtner
NotSolved
20.04.2021 12:55:35 Mase
NotSolved
21.04.2021 11:35:06 Gast43976
NotSolved
21.04.2021 11:51:41 Mase
NotSolved