Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Text Datei in excel einlesen
Normale Version: Text Datei in excel einlesen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2

Matthias3L

13.09.2018, 11:32
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

13.09.2018, 13:44
Zitat: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

13.09.2018, 13:57
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

13.09.2018, 14:02
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

13.09.2018, 14:11
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

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

Matthias3L

13.09.2018, 14:59
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

13.09.2018, 15:05
Die Antworten bezogen sich auf Deine Anforderung:
Zitat: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

13.09.2018, 15:37
(13.09.2018, 14:46)RPP63 schrieb: [ -> ]@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

13.09.2018, 15:54
Ja ich bekomme es eingebaut, ok dankeeee
Seiten: 1 2
Clever-Excel-Forum > Office-Anwendungen > Excel > Text Datei in excel einlesen