Microsoft Excel

Herbers Excel/VBA-Archiv

Daten aus geschlossener Excel auslesen

Betrifft: Daten aus geschlossener Excel auslesen von: Jan
Geschrieben am: 06.10.2020 10:13:33

Hallo zusammen,


ich trickse grade an einer Lösung, aus einer geschlossenen Exceldatei auf einem Netzlaufwerk Daten auszulesen. Bin im Netz auf die VBA Lösung über VBA mithilfe von Excel4Macro gestossen...bekomme aber einen "Laufzeitehler '1004': Anwendungs- oder objektdefinierter Fehler"


Idee ist, die Zellen aus dem geschlossenen Dok auszulesen und in eine Tabelle in der arbeitenden Liste zu schreiben.


Der Code sieht folgendermassen aus:

Sub Bereich_auslesen()
Dim pfad As String, datei As String, blatt As String, bereich As Range, zelle As Object

pfad = "Zelle mit Pfadangabe"
datei = "Zelle mit Dateinamenangabe"
blatt = "Tabelle 1"
Set bereich = Range("A1:Z9999")

For Each zelle In bereich
    zelle = zelle.Address(False, False)
    ActiveSheet.Cells(zelle.Row, zelle.Column).Value = GetValue(pfad, datei, blatt, zelle)
Next zelle

End Sub

Private Function GetValue(pfad, datei, blatt, zelle)

Dim arg As String
 
If Right(pfad, 1) <> "\" Then pfad = pfad & "\"
If Dir(pfad & datei) = "" Then
GetValue = "datei Not Found"
Exit Function
End If
 
arg = "'" & pfad & "[" & datei & "]" & blatt & "'!" & Range(zelle).Range("A1").Address(, ,  _
xlR1C1)
 
GetValue = ExecuteExcel4Macro(arg)
 
End Function

Sieht dort jemand auf Anhieb etwas, was da nicht hingehört oder funktioniert? (rätsel)

Betrifft: AW: Daten aus geschlossener Excel auslesen
von: volti
Geschrieben am: 06.10.2020 10:54:50

Hallo Jan,

lokal läuft der code bei mir (Server kann ich leider nicht prüfen).

Allerdings musste ich "Tabelle 1" in "Tabelle1" ändern, sonst kommt "Fehler 2023".

Heißt Deine Tabelle wirklich "Tabelle 1"?

viele Grüße
Karl-Heinz

Betrifft: AW: Daten aus geschlossener Excel auslesen
von: Nepumuk
Geschrieben am: 06.10.2020 10:58:34

Hallo Jan,

259.974 Zellen einzeln auslesen bedeutet du öffnest 259.974 einen DDE-Kanal um an die Daten zu kommen. Das dürfte, wenn es funktioniert mehrere Monate dauern. Denn die Methode ist alles andere wie schnell. Öffne die Datei schreibgeschützt und kopieren den gewünschten Bereich auf einmal, das dürfte mit öffnen und schließen der Mappe nur ein paar Sekunden dauern.

Gruß
Nepumuk