Datei nach Öffnen-Dialog ansprechen
21.02.2006 09:58:30
Robert
Ich habe ein - hoffentlich - sehr einfaches Problem. Ich habe eine Datei per folgenden Dialog geöffnet:
Private Sub UserForm_Activate()
D1_Quelle = Application.Dialogs(xlDialogOpen).Show("C:\")
If D1_Quelle = False Then
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End If
' Dateinamen per Variable geholt
datei1 = Application.GetOpenFilename("excelDateien (*.xls), *.xls")
End Sub
Wenn ich jetzt versuche, diese Datei anzusprechen, bekomme eine Fahlermeldung. Z.B.:
Private Sub CommandButton_Beenden_Click()
Windows(datei1).Activate
ActiveWorkbook.Close SaveChanges:=False
End Sub
Wo ist der Fehler und wie wäre es denn richtig?
Vielen Dank im voraus für eure Hilfe!!!
Grüße
Robert