TXT Datei mit Excel-VBA auslesen

[AHNUNG?]

Hallo zusammen,

ich habe ein kleines Problem. Und zwar habe ich eine txt-Datei, die ich in eine Excel Datei einlesen möchte. Das Problem ist, dass es keine Trennzeichen gibt. Die Informationen stehen aber von links nach rechts immer an der gleichen Stelle.

z.B.

40. Zeichen von links fängt der Vorname an

60. Zeichen von links fängt der Nachname an.

Wie kann ich diese Daten, mit Hilfe von VBA, in Spalten von Excel schreiben????

Hat vielleicht jemand eine Site, die das beschreibt.

[-roTekuGeL-]

Dim dateinr As Integer

Dim temp As String

Dim teilstring1 As String

'...

Open App.Path & "\das.txt" For Input As dateinr

Do While Not EOF(dateinr)

Line Input #dateinr, temp

teilstring1 = Mid(temp, 0, 4)

Loop

Close

ok?

in die zellen bekommst du das ganze dann mit:

zeile = 1 'A

spalte = 1 '1

tabelle1.cells(zeile, spalte) = teilstring1 'schreib den string in zelle A1

[Warfox]

Also mit der mid funktion kannst du aus einem string also der kompletten Datenreihe wenn du sie in eine variable schreibst den gewollten wert rausholen, ich glaub das geht so:

Vorname = mid(textstring,startnummer,länge)

EDIT: Rotekugel war mal wieder schneller *grr*

[-roTekuGeL-]

EDIT: Rotekugel war mal wieder schneller *grr*

dafür aber wie immer fehler drin... app.path gibts in VBA nich

[Warfox]

macht ja nix, hast ja ne gute ausrede:

"Der Compiler hat nix gesagt" *löl* :bimei

[AHNUNG?]

Dim dateinr As Integer

Dim temp As String

Dim teilstring1 As String

'...

Open App.Path & "\das.txt" For Input As dateinr

Do While Not EOF(dateinr)

Line Input #dateinr, temp

teilstring1 = Mid(temp, 0, 4)

Loop

Close

ok?

in die zellen bekommst du das ganze dann mit:

zeile = 1 'A

spalte = 1 '1

tabelle1.cells(zeile, spalte) = teilstring1 'schreib den string in zelle A1

Hi,

ich bekomme beim Öffnen der Datei leider immer eine Fehlermeldung.

Laufzeitfehler 424

Objekt erforderlich

Mein Quelltext:

Dim dateinr As Integer

Dim temp As String

Dim teilstring1 As String

ChDir "\"

ChDrive "c:\"

Dateiname = Application.GetOpenFilename _

("Textdateien (*.txt),*.txt")

If Dateiname = False Then Exit Sub

Open App.Path & "" & Dateiname & "" For Input As dateinr

[-roTekuGeL-]

Dim dateinr As Integer

Dim temp As String

Dim teilstring1 As String

ChDir "\"

ChDrive "c:\"

Dateiname = Application.GetOpenFilename _

("Textdateien (*.txt),*.txt")

If Dateiname = False Then Exit Sub

Open Dateiname For Input As dateinr

*aua*

...aber kugel nix schuld! ich hab gesagt dass es das app.path net gibt

[AHNUNG?]

Hast Du denn eine richtige Lösung????

[-roTekuGeL-]

Hast Du denn eine richtige Lösung????

wie wärs du schaust dir den code in meinem post an