Daten aus geschlossener Excel auslesen
06.10.2020 10:13:33
Jan
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)
Anzeige