Problem mit .Execute
23.10.2007 16:32:00
Hein
mittels untenstehendem Skrypt versuche ich vor dem Öffnen des Files zu prüfen ob dieses überhaupt existiert. Nun ist mir aufgefallen dass das Skrypt trotz eines vorangestellten "_" (underscore-Zeichen) davon ausgeht dass das File vorhanden ist.
Die Prüfung sollte jedoch nur bei einer EXAKTEN Übereinstimmung weiterfahren, ansonsten sollte er auf 'else' springen.
Hat da jemand eine Erklärung?
Gruss aus Zürich
Hein
Public Sub file_exist()
Dim company_name As String
Dim isin_name As String
Dim path_name As String
Dim file_name_e As String
Dim file_name_d As String
i = 2
Do Until IsEmpty(Cells(i, 1).Value)
company_name = Cells(i, 1).Value
isin_name = Cells(i, 2).Value
path_name = Cells(i, 3).Value
file_name_e = Cells(i, 4).Value
file_name_d = Cells(i, 5).Value
With Application.FileSearch
.NewSearch
.LookIn = path_name
.SearchSubFolders = False
.FileType = msoFileTypeWordDocuments
.Filename = file_name_e
If .Execute > 0 Then
Dim objWd As Object
Set objWd = CreateObject("Word.Application")
With objWd
.Visible = True
.Documents.Open path_name & file_name_e
End With
Else
Cells(i, 1).EntireRow.Interior.ColorIndex = 3
End If
End With
i = i + 1
Loop
End Sub