Text Datei in excel einlesen

[Matthias3L]

Hallo,

Ich möchte eine tect datei in Excel einlesen. Die Spalten in der Text Datei sollen automatisch erkannt werden, als Trennzeichen wird ; verwendet. Jede Spalte hat eine Überschrift und ich benötige nicht alle. Nur: Artikelbez. / Preis/ Lieferant

Über den Menüpunkt Daten txt/csv importieren kann man das bequem machen ich möchte aber eine Lösung mit vba. Den Code den ich mit dem Makrorekorder aufgezeichnet habe ist schonmal gut, aber:

Der Name der Textdatei ist festgelegt und auch der Pfad. Es soll sich ein Windows Explorer Fenster öffnen in dem ich die .txt Datei auswählen kann. Ich habe versucht das zu ändern, leider ist es mir nicht gelungen. Kann mir jemand weiterhelfen?

Gruß
Matthias

[MisterBurns]

Kann mir jemand weiterhelfen?

Na klar. Aber warum postest du nicht deinen aufgezeichneten Code? Sollen wir uns den aus den Fingern saugen? Mit mittlerweile 21 Beiträgen solltest du wissen, dass das so nichts wird mit der Hilfe.

[RPP63]

Moin!
Schau mal hier, incl. auf Dein Beispiel passendem Code:
https://docs.microsoft.com/de-de/office/...enFilename

Vor den Codezeilen wechselst Du noch per ChDir "DeinPfad" ins entsprechende Startverzeichnis.

Gruß Ralf

[snb]

Code:

Sub M_snb()
   With Application.FileDialog(1)
      .FilterIndex = 6
      If .Show Then .Execute
    End With
End Sub

PS. Verzichte im VBA immer auf 'ChDir'

[Matthias3L]

Erstmal vielen Dank.

Ja ich hätte den Beitrag wieder löschen müssen, weil

Ich den Code im Moment nicht hochladen kann, erst heute abend ist es möglich. Ich dachte es ginge, tut mir leid deswegen.

[RPP63]

Du hast doch bereits 2 Lösungen!
Nutze die erst mal.
@snb:
Was ist Deiner Meinung nach "böse" an ChDir?

[Matthias3L]

Mit dem Code wird die gesamte Text Datei eingelesen, soweit war ich schon. Der Inhalt soll auf die Spalten aufgeteilt werden. Ok ich lade meinen Code später hoch.

[RPP63]

Die Antworten bezogen sich auf Deine Anforderung:

Der Name der Textdatei ist festgelegt und auch der Pfad. Es soll sich [aber] ein Windows Explorer Fenster öffnen in dem ich die .txt Datei auswählen kann.

Das wirst Du doch in Deinen Rekordercode eingebaut bekommen?
Klar, Du brauchst zusätzlich den Textimport-Assi.
Anyway kannst Du Dich bei Problemen gerne noch mal melden.

[snb]

@snb:
Was ist Deiner Meinung nach "böse" an ChDir?

Ich bin nich 'böse' ..... ;)

In Application.filedialog verwendet man .initialfilename ohne dass das CurDir geändert wird.
Ich bewerte ChDir wie 'Select' und 'Activate': in VBA kann man jeden Folder ansprechen n'importe welche Folder das CurDir ist.
Also: eher überflüssig als 'böse'.

[Matthias3L]

Ja ich bekomme es eingebaut, ok dankeeee