Office: VBA Code Dateien Einlesen

Hallo zusammen,
ich habe eine kleine Frage bzw. brauche kurz Hilfe.
Ich habe euch das Makro und die dazugehörige txt Datei hochgeladen.

Ich habe folgendes Problem:
Die Textdatei wird nicht richtig in excel importiert, d.h. es landen alle Zahlen in der ersten Spalte beim Einlesen.
Könnt ihr mir dazu evtl. einen Tipp geben?
Ich würde mich sehr darüber freuen.

Grüße

:)

 

reicht nicht Daten, Text in Spalten?

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.





Meine Homepage Homeseite - Hajo's Excelseiten

 

Hallo,

die Textdatei hat diverse Trennzeichen (Tab und Leerzeichen).

Hier eine Idee zum Einlesen der Datei und Einfügen z.B. ins aktive Blatt, Zelle B3.

Das kannst Du Dir dann ja in Dein Makro entsprechend um/einbauen.

Die Aktionen in Deinem Makro sind mir jetzt nicht so durchsichtig....


Code:


[+][-]

____________
viele Grüße
Karl-Heinz

 

Vielen Dank Karl Heinz!
Das einlesen funktioniert.
Ich wünsche euch ein schönes Wochenende bzw. Restsonntag.

Grüße

 

Ich bekomme noch einen Fehler in einer Zeile:

"Sub TextDatei_Einlesen2()
Dim sPfad As String, sData As String
Dim iff As Integer, i As Long, oZiel As Range
Dim sArrZL() As String, sArrSP() As String

Set oZiel = ActiveSheet.Range("B3")
i = 2
sPfad = ThisWorkbook.Worksheets("Einlesen").Range("C" & i).Value
If InStr(sPfad, "") = 0 Then sPfad = ThisWorkbook.Path & "" & sPfad
If Dir(sPfad) "" Then 'Ist Datei vorhanden?
Application.ScreenUpdating = False
iff = FreeFile
Open sPfad For Input As iff 'Datei öffnen
sData = Replace(Input(LOF(iff), iff), vbTab, " ") 'Daten in Array einlesen
For i = 1 To 6
sData = Replace(sData, " ", " ") 'Leerzeichen reduzieren
Next
Close iff
sArrZL = Split(sData, vbCrLf)
For i = 0 To UBound(sArrZL)
sArrSP = Split(Trim$(sArrZL(i)))
oZiel.Offset(i, 0).Resize(1, UBound(sArrSP) + 1) = sArrSP
Next i"
Application.ScreenUpdating = True
End If
End Sub

Dabei kommt folgender Fehler:
Laufzeitfehler 1004 - Anwendungs- oder objektdefinierter Fehler?

Vielleicht liegt es daran, dass es anstatt der kleinen Textdatei eine größere Datei mit mehreren Zeilen (8760 Zeilen) hat ( besitzt den gleichen Aufbau wie die hochgeladene Datei). Mir ist gerade aufgefallen, dass die Laufvariabel i bis 548 begrenzt ist ?

Eigentlich wollte ich nur ein VBA Code wieder aufbauen: es befindet sich in der Zeile 1 Spalte A der Pfad der txt. Datei, dieser Pfad wird eingelesen und die Werte der txt.Datei werden an einer bestimmten Spalte und Zeile im Tabellenblatt eingefügt wird.

Grüße

 

Hallo,

wenn ich Deine Txt-Datei auf 10.000 Zeilen erweitere (allerdings immer mit dem gleichen Inhalt), läuft das Makro sauber durch und legt die Daten korrekt ab.
Die Variable i ist auch nicht begrenzt.
Wenn der Code bei Dir bei Zeile 548 abbricht liegt es wahrscheinlich am Inhalt dieser Zeile in der Textdatei.
Da kann ich jetzt so erstmal nichts zu sagen.

Ansonsten fiel mir auf, dass bei diesem Code hier nur ein Leerzeichen durch ein Leerzeichen ersetzt wird.
sData = Replace(sData, " ", " ") 'Leerzeichen reduzieren
Es sollten aber zwei Leerzeichen durch ein Leerzeichen ersetzt werden.
sData = Replace(sData, " ", " ") 'Leerzeichen reduzieren

Hast Du das verändert?
Falls ja, macht die ganze Schleife ja keinen Sinn mehr und das ist ja auch der Teil im Code, der für die lückenlose Ablegung der Daten verantwortlich ist.

viele Grüße
Karl-Heinz

 

Hallo Karl-Heinz,
erstmal Danke für deine Hilfe.
Also die Dateien werden trotz des angezeigten Fehlers eingelesen und werden richtig dargestellt. Aber der Fehler wird jedesmal beim Einlesen angezeigt.

Ich habe nun die vollständige in einer Zip - Datei hochgeladen.

Die letzte Hürde wäre die Zahlen anstatt mit einem Punkt mit einem Kommata zu versehen. Welche Befehle gibt es denn dafür?

Viele Grüße

 

Gerade für Transformationsaufgaben dieser Art wurde das ETL-Tool Power Query geschaffen, dass seit Excel 2016 immer on Board (Daten > Abfragen und Verbindungen) ist. Wobei Power Query noch viel mehr kann und sich das meiste einfach zusammenklicken lässt.

Solltest also mal überlegen ob du es nicht mit Power Query versuchen willst, das dir auch wieder über den Weg läuft, wenn du mit Power BI zu tun hast.

 

Hallo,

wie vermutet war am Ende eine Leerzeile drin.
Mit dem Update-Code wird das nun berücksichtigt und auch die Punkte in Kommata umgewandelt.
Allerdings bleibt es bei dieser Methode dabei, dass alles als Text eingelesen wird.
Falls Du mit den Zahlen auch rechnen möchtest, sollte man die als Zahlen einlesen, das geht z.B. über Einfügen aus der Zwischenablage.

Code:


[+][-]

____________
viele Grüße
Karl-Heinz

 

Hallo Karl-Heinz,
das funktioniert wunderbar. Vielen Dank dafür.
Also wenn das schwierig ist, die Werte als Zahlen einzulesen dann belasse ich das am besten so und mache das innerhalb Excel.


Wie bestimme ich die Range meiner txt.datei damit ich bspw. die erste Spalte nicht mit einlese?

Viele Grüße

 

Hallo Manuel,

mit der zweiten Sub werden die Daten als Zahlen eingelesen, allerdings über die Zwischenablage. Das ist ja nicht schwierig, lediglich bei der ersten Variante ist es schwieriger, weil jeder einzelne Werte umgewandelt werden müsste und das dauert dann halt

Falls Du die erste Sub nutzen willst:
Das Array fängt bei 0 an, das wäre die erste Zeile...
Wenn Du die ersten beiden Zeilen nicht haben möchtest, kannst Du ja einfach später mit dem Ausgeben anfangen.

Code:
For i = 2 To UBound(vArrZL)

viele Grüße
Karl-Heinz