Datei öffnen duch Eingabebox In VBA
16.01.2004 17:38:03
eugen
Es soll durch die Eingabebox eine ".xls" oder andere Datei geöffnet werden.Der Wert soll mit der Eingabebox in der Variable "X_Workbook" zwischenspeichert werden.
In die Eingabebox wird zBsp."Test.xls" eingegeben
Jetzt soll die Datei indirekt durch die Variable im Befehl Workbooks.Open Filename:="F:\Dateien_Eugen\Spezial\(X_Workbook)"
geöffnet werden.
Der Pfad soll fest in VBA eingegeben werden.
anbei mein Makkro dazu:
Sub Makro1()
Dim X_Workbook As String
X_Workbook = InputBox(prompt:="Bitte Datei-Namen eingeben")
If X_Workbook = "" Then Exit Sub
On Error GoTo ErrorHandler
Workbooks.Open Filename:="F:\Dateien_Eugen\Spezial\(X_Workbook)"
End
ErrorHandler:
MsgBox "Datei " & X_Workbook & " nicht vorhanden"
End Sub
Leider funktioniert bei mir etwas nicht richtig,wer kann mir helfen?
gruß eugen
Anzeige