Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

text datei einlesen

Betrifft: text datei einlesen
von: mehmet
Geschrieben am: 15.04.2003 - 10:02:52

hallo forum
folgendes makro ist gegeben:


Sub TextListeLaden()
    Application.DisplayAlerts = False
    'Meldung wird angezeigt
    MsgBox "Bitte selektieren Sie die zu ladende Datei!"
    ZuOeffnendeDatei = Application.GetOpenFilename("Text Files (*.txt), *.txt")
    'Meldungsfenster wird angezeigt
    MsgBox "Die Datei wird nun importiert!"
    Application.ScreenUpdating = False
    'Datei-Öffnen-Menü wird angezeigt
    'Dateieigenschaften werden festgelegt
     Workbooks.OpenText Filename:=ZuOeffnendeDatei, Origin:= _
        xlWindows, StartRow:=1, DataType:=xlDelimited, Semicolon:=True _
        , FieldInfo:=Array(Array(1, 1), _
          Array(2, 1), Array(3, 1))
    'Herkunftsdatei wird Variable zugewiesen
    ZuOeffnendeDatei = ActiveWorkbook.Name
    Workbooks(ZuOeffnendeDatei).Activate
    Selection.CurrentRegion.Select
    Range("a:a").Select
    Selection.Copy
    Workbooks(ZuOeffnendeDatei).Close
    Windows("import.xls").Activate
    Sheets("Zielblatt").Select
    Range("A1").Select
    Selection.PasteSpecial
'    Selection.Columns.AutoFit
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub
Sub TextListeLoeschen()
    Application.ScreenUpdating = False
    Columns("A:C").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub

wo ist die stellen, wo ich direkt bestimmen kann
wo direkt gesucht werden soll.
wenn ich ja klicke, springt das makro immer
auf suche in eigene dateien.

dank und gruss

  

Re: text datei einlesen
von: gordon
Geschrieben am: 15.04.2003 - 10:51:57

Hallo Mehmet,

Ja ? Wo willst Du das klicken ?
Gehe mal davon aus, dass Du 'OK' in der MsgBox meinst ;-)

Vor zeile workbooks.open... evtl. den gerade aktuellen Pfad merken um nach Deinem Makro wieder dorthin zurück wechseln zu können.
mit ChDir in das gewünschte Verzeichnis wechseln, z.B.

merker = CurDir("d")
ChDir ("d:\test")
'Coderest
ChDir(merker)


Gruß
gordon

  

Re: text datei einlesen
von: mehmet
Geschrieben am: 15.04.2003 - 11:14:23

danke,
hab diese lösung gefunden:


Sub TextListeLaden()
    ChDir "C:\Dokumente und Einstellungen\Mehmet\Desktop"
    ChDrive "c:\"
    Application.DisplayAlerts = False
    'Meldung wird angezeigt
    MsgBox "Bitte selektieren Sie die zu ladende Datei!"
    ZuOeffnendeDatei = Application.GetOpenFilename _
    ("Textdateien (*.txt), *.txt,Micrsoft Excel-Dateien (*.xls),*.xls")
    'Meldungsfenster wird angezeigt
    MsgBox "Die Datei wird nun importiert!"
usw..

wie kann man denn jetzt so machen,
dass man im excel sheet direkt in die letzte reihe kommt,
ohne das man runter scrollen muss
danke

  

Re: text datei einlesen
von: gordon
Geschrieben am: 15.04.2003 - 11:46:51

Hallo Mehmet,

die Zelle aktivieren

[a1000].activate
oder etwas aufwendiger die letzte belegte Zelle einer Spalte ermitteln, z.B.
y = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Cells(y,1).activate

Gruß
gordon


  

dank dir
von: mehmet
Geschrieben am: 17.04.2003 - 21:50:23

danke

 

Beiträge aus den Excel-Beispielen zum Thema "text datei einlesen"