Infos aus xlm-Dateien ziehen
18.01.2007 18:26:42
Stefan
kürzlich habe ich ein Makro gepostet bekommen zum extrahieren von Informationen einer Reihe vom Excel Dateien. Die Info steht in jeder Datei im gleichen Feld (B22) und alle Dateien sind im gleichen Ordner (D:\Stefan\Bilder). Das hatte auch wunderbar funktioniert.
Das Problem ist, dass dieses Makro nun nicht mehr korrekt funktioniert und ich weis nicht genau was ich falsch mache.
Hier ist das Makro:
Option Explicit
Sub HoleWerte()
Dim fn As String, z As Long
Const pfad As String = "D:\Stefan\Bilder"
Range("A:B").ClearContents
fn = Dir(pfad & "\*.xls")
Do While fn <> ""
z = z + 1
Cells(z, 1) = fn
Cells(z, 2) = GetValue(pfad, fn, "Tabelle1", "B22")
fn = Dir()
Loop
End Sub
Function GetValue(path, file, sheet, ref)
Dim arg As String
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
GetValue = ExecuteExcel4Macro(arg)
End Function
Folgende Fehler passieren:
Ich bekomme zwar in einer Excel Tabelle korrekt den Dateiname angezeigt, aber anstatt der erhoffte Wert aus B22 steht "#BEZUG!" in dh alle em Feld. Auch bearbeitet das Makro nicht automatisch alle Dateien, sondern es geht jedes Mal wieder ein Auswahlfeld auf. Gehe ich auf Abbrechen oder wähle ich irgendeine Datei an, so bearbeitet das Makro die nächste Datei - leider falsch.
Über eine Hilfe würde ich mich freunen.
Danke und Grüße
Stefan