Hilfe bei Code
06.07.2003 17:06:11
Jens
wer kann mir helfen?
ich will in einer UF per Button_Click die Textdatei importieren die in Textbox1 ausgewählt wurde. Ich habe schon "Const Datei = "C:\Eigene Dateien\Kunden.txt"" durch
"Const Datei = Textbox1.text" ersetzt. Dabei bekomme ich aber Fehlermeldung das eine Constante erwartet wird. Was muß ich ändern?
Private Sub CommandButton4_Click() 'Datei import
Dim Blatt As Worksheet
Const Datei = "C:\Eigene Dateien\Kunden.txt"
Application.ScreenUpdating = False
Set Blatt = Worksheets("Kundendaten")
On Error GoTo Errorhandler
Blatt.Range("A:L").ClearContents
Workbooks.OpenText Datei, Semicolon:=True
Cells.Copy Blatt.Range("A1")
ActiveWorkbook.Close SaveChanges:=False
'Blatt.Columns("A:B").AutoFit
Application.ScreenUpdating = True
Exit Sub
Errorhandler:
MsgBox "Die Datei wurde nicht gefunden", vbCritical, "Fehler:"
End Sub
Danke im voraus Jens