Dieser Beitrag ist schon älter. Bitte vergewissern Sie sich, dass die Rahmenbedingungen oder der enthaltene Lösungsvorschlag noch dem aktuellen Stand der Technik entspricht.

Textdatei importieren

Mitglied: PascalS
Hallo zusammen,

ich möchte eione Textdatei in Excel einlesen, bei der zu Anfang keine Spaltentrennung vorgenommen werden soll.

Nun habe ich mir gedacht, dass das ja eigentliuch nicht so schwer sein kann und man das via Makrorekorder hinbvekommen können.
Tja da hab ich wohl falsch gedacht. Es funktioniert zwar, aber nicht so wie ich mir es vorstelle.
Der Makrorekorder importiert mir die Textdatei in eine neue Excel-Arbeitsmappe, ich möchte sie aber in der Arbeitsmappe haben, von der aus ich auch das Makro ausführe...

Hat jemand eine Idee?
Viele Grüße
Pascal

Content-Key: 66927

Url: https://administrator.de/contentid/66927

Ausgedruckt am: 22.09.2021 um 13:09 Uhr

Mitglied: SvenGuenter
SvenGuenter 23.08.2007 um 15:43:53 Uhr
Goto Top
Option Explicit

Sub dateilesen()
'Diese Sub kann dazu genutzt werden einen String der eingelesen wird zu ergänzen oder anderweitig zu
'manipulieren
'erstellt am 23.05.2007
'Autor: Sven Günter



'Konstanten die FileSystemObject Objekte besser lesbar zu machen
Const ForReading = 1, ForWriting = 2, ForAppending = 8


'Definition der benötigten internen Variablen
Dim abgleich
Dim speicher
Dim fs, a, retstring
Dim zeile As Integer
Dim spalte As Integer
'Erzeugen des FileSystemObject
Set fs = CreateObject("Scripting.FileSystemObject")

'Erzeugen der Zieldatei
'fs.CreateTextFile "c:\gesamtneu.txt"
'Zuweisung der Quelldatei
Set a = fs.opentextfile("C:\mahnungenbackup\Mahnlauf_24_Protokoll.txt", ForReading, False)


zeile = 1
spalte = 1
'2-24 ohne 12

'Schleife bis das Ende der Quelldatei erreicht ist
Do While a.AtEndOfStream <> True
'Einlesen der 1. zeile
retstring = a.readline
'Erzeugen eines Arrays welches die einzelnen Werte aufnimmt
'abgleich = Split(retstring, vbTab, -1) brauchst du nur wenn du den string teilen willst
'MsgBox (retstring)
Tabelle1.Cells(zeile, spalte) = retstring
'abgleich = Split(retstring, vbTab, -1)
'speicher = abgleich(1)brauchst du nur wenn du den string teilen willst
zeile = zeile + 1



'abgleich = Split(retstring, vbTab, -1)







Loop
a.Close

End Sub

EDIT-----------sorry hatte den zeilenzähler nicht mit drin. Aber nun müßte es klappen. Hatte vorher den import UND Export in eine Textdatei realisiert udn den code nur rauskopiert.
Mitglied: PascalS
PascalS 23.08.2007 um 16:08:19 Uhr
Goto Top
Hi Sven,

danke für die Antwort :-) face-smile
Habe bei Zeile und Spalte "1,1" eingetragen, es passiert auch etwas, das ganze beschränkt sich allerdings auf die Zelle A1. Wie kann ich denn den Sprung in die nächste Spalte einbauen?

Gruß
Pascal
Mitglied: SvenGuenter
SvenGuenter 23.08.2007 um 18:58:57 Uhr
Goto Top
indem du bei dem befehl Tabelle1.Cells(zeile,1) eingibst und dann zeile immer um 1 hochzählen lässt ;)
Mitglied: PascalS
PascalS 24.08.2007 um 10:17:34 Uhr
Goto Top
Hallo Sven,

vielen Dank, läuft!!!

Grüße
Pascal
Heiß diskutierte Beiträge
tip
Outlook 2019 Konto hinzufügen - Kein Benutzername mehr bei IMAP Einstellungen - LösungFrankVor 1 TagTippOutlook & Mail31 Kommentare

Eine weitere Kuriosität unter Office 2019 ist bei mir gerade hart aufgeschlagen. Ich wollte ein normales IMAP/SMTP Konto zu Outlook 2019 hinzufügen. Das war aber ...

question
Clonen einer SSD Platte auf eine grösserejensgebkenVor 1 TagFrageFestplatten, SSD, Raid9 Kommentare

Hallo Gemeinschaft habe in meinem Rechner eine alte SSD 128 und eine neu installierte mit Windows 10 drauf 512 GB nun möchte ich gerne die ...

question
Dienst-PCs per Image sichern?Yan2021Vor 22 StundenFrageBackup15 Kommentare

Hallo Ihr Lieben ;-) So, Urlaub vorbei und schon kommt mal wieder eine Frage von mir. Wir haben hier so rund gerechnet 10 PCs. Da ...

question
Ablösung alte M.2 SSDUrx1974Vor 1 TagFrageFestplatten, SSD, Raid7 Kommentare

Hallo, ich habe in einem (anderen) Laptop eine ITE-ON CV3-8D128-11 128GB M2 / M.2 SSD 2280 drin. Ich wollte diese jetzt durch eine 1TB SSD ...

general
VPN-Einwahl für UnternehmensnetzwerkjoergVor 1 TagAllgemeinLAN, WAN, Wireless12 Kommentare

Hallo zusammen, aktuell beschäftige ich mich mit der Frage, ob unsere aktuelle User-VPN-Lösung noch die Richtige ist oder ob es bessere Alternativen gibt. Wir setzen ...

question
Problem mit gespiegelten BackupsystemfisiyouVor 1 TagFrageCluster8 Kommentare

Hi liebe Community, Bin derzeit als Umschüler (Fisi) im Betriebspraktikum unterwegs. Mir wurde jetzt ein Problem mit unseren Backupstorage mitgeteilt, wo ich mir eine Lösung ...

question
Webseite signierenUserUWVor 23 StundenFrageInternet9 Kommentare

Gelegentlich möchte man auf einer Webseite kritische Daten veröffentlichen, zum Beispiel Checksummen von Dateien/Programmen oder den Fingerprint eines Schlüssels. Frage: Wie kann man diese Information ...

question
"Aktualisieren und Herunterfahren" nach Windows Update erzwingenFrM222Vor 22 StundenFrageWindows Update7 Kommentare

Hallo Zusammen, wir verteilen unsere Windows Updates über WSUS (2016) und haben hier inzwischen eigentlich einen ganz guten Stand. Die Updates werden sehr zügig auf ...