Datei wird nicht gefunden obwohl sie da ist
30.04.2009 14:54:40
franc
Das eigenartige ist, das es am Anfang funktionierte.
Sub skill()
Dim varZeile As Variant, strDatei As String
If Dir("C:\Dokumente und Einstellungen\Administrator\Desktop\Lord LX.xml") = "" Then
MsgBox "Datei nicht vorhanden"
Exit Sub
Else
strDatei = Dir("C:\Dokumente und Einstellungen\Administrator\Desktop\Lord LX.xml")
Application.Run "Skills_level.xls!skill"
End If
Open strDatei For Input Access Read As #1
'weitere Befehle
End Sub