Geschlossene Datei: Find Funktion
28.02.2005 09:40:25
Torsten
ich lese über unten stehende Funktion (GetValue) einige geschlossene Arbeitsmappen aus. Ich würde gern über die Find Funktion und mittels GetValue eine Zelle suchen und einen Offset Wert zurückgeben.
Geht das überhaupt?
Ansonsten arbeite ich mit GetObject weiter wo die Find Funktion funktioniert, was aber insgesamt etwas langsamer ist.
Danke!
Torsten
'Geschlossene Datei auslesen
Private Function GetValue(path, file, sheet, ref)
' Retrieves a value from a closed workbook
Dim arg As String
' Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
' Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
End Function