Laufzeitfehler 1004 bei application.filesearch
24.04.2006 08:27:18
Norman
nachdem ich durch Euch bei mir zuhause zum Durchbruch gekommen war und mein Excel-Programm fehlerfrei lief, habe ich es mit auf Arbeit genommen und dort installiert.
Nun wollte ich meine Makro's starten und bekomme bei einem Makro folgende Fehlermeldung:
Laufzeitfehler 1004
Die Methode 'filesearch' für das Objekt '_application' ist fehlgeschlagen.
Mein Code:
Sub Daten_Einlesen()
Dim p As String
Dim f As String
Dim s As String
Dim l As Integer
With Application.FileSearch
.NewSearch
.LookIn = "O:\"
.SearchSubFolders = True
.Filename = "Tabelle1.xls"
If .Execute > 0 Then
p = Left(.FoundFiles(1), Len(.FoundFiles(1)) - Len(.Filename) - 1)
f = "Tabelle1.xls"
s = "RefDat"
For l = 15 To 75
Sheets("RefDat").Cells(l, 128).Value = GetValue(p, f, s, "DX" & l)
Sheets("RefDat").Cells(l, 129).Value = GetValue(p, f, s, "DY" & l)
Next l
End If
End With
End Sub
________________________________________________________________
Private Function GetValue(path, file, sheet, ref) As String
Dim arg As String
arg = "'" & path & "\[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
GetValue = ExecuteExcel4Macro(arg)
End Function
________________________________________________________________
Vielleicht hat ja noch jemand eine Idee für das Problem. Vielen Dank im Voraus.
Norman