Abbruch beim Öffnen-Dialog
13.11.2008 14:02:02
Joachim
ich habe in meinem Sheet folgenden Code, um eine Textdatei zu laden. Wo muss ich was ändern, dass wenn der Öffnendialog geöffnet ist und ich keine datei auswähle, (OK) sondern ABBRECHEN drücke, dass ich dann sowas wie ein EXIT SUB bekomme und der Öffnendialog einfach wieder geschlossen wird ?
Dim strTxt As String, myArr, lngL As Long, wks As Worksheet
Dim strFile As String
With Application.FileDialog(1)
.AllowMultiSelect = False
.InitialFileName = "d:\Daten\*.txt*"
.InitialView = 2
If .Show = -1 Then
strFile = .SelectedItems(1)
End If
End With
If strFile "" Then
lngL = 1
Open strFile For Input As #1
Set wks = ThisWorkbook.Sheets("Temp")
Do Until EOF(1)
Line Input #1, strTxt
myArr = Split(strTxt, vbTab)
With wks
.Range(.Cells(lngL, 1), .Cells(lngL, UBound(myArr) + 1)) = myArr
End With
lngL = lngL + 1
Loop
Close #1
End If
Gruss
Joachim