Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
524to528
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

txt-Import zellenweise: wie Zellenseparation ?

txt-Import zellenweise: wie Zellenseparation ?
01.12.2004 15:07:12
Horst
Hallo,
habe eine große ASCII-Liste in Excel zu importieren.
+ workbooks.opentext scheitert (Speichermangel in Office97)
+ also....I. zeilenweiser import (mittels "Line Input #1, File")
...............II. Finde die TABS als Spaltentrenner "InStr(File, Chr(9))"
+ und da verließen Sie Ihn:
...............1.Ich weiß noch, daß man die einzelnen Zellwerte irgendwie
..................mittels "mid" und "len" einfängt, aber wie ?
..................Außerdem gibts "leere" Zellen, also mehrere Tabs hinter-
..................einander mit nix dazwischen. Brauche aber auch die leeren Zellen
...............2.Die eingefangenen Werte müssen dann noch einzeln in
..................ihre jeweilige Zelle...wie ich jedoch die For...Next
..................Schleife für jede Zelle (und die einrahmende Schleife
..................für jede Zeile aus dem Line Input) programmieren soll,
..................da fehlt mir der entscheidende Gedanke.
Ganz bescheiden bitte ich um zwei Schleifen, in denen per mid und len, die einzelnen Zellen geschrieben werden.
Danke im Voraus
Horst

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: txt-Import zellenweise: wie Zellenseparation ?
Karl-Otto
Hallo Horst
Das hier von Tabelle1 starten und schauen, ob alle Daten ankommen,
(Suchbergriff ist die Leerstelle, die gibt es fast immer, Pfad bitte anpassen):

Sub ImportTest()
Dim sWord1 As String, sPath As String, sSearchPath As String, FileName As String, InputData
Dim anzfound As Integer
Dim sWord2 As String
Dim intRow As Integer
anzfound = 0
sSearchPath = "c:\Doku\DeineDat\*.txt"
sPath = "c:\Doku\DeineDat\"
FileName = Dir(sSearchPath)
If FileName <> "" Then
Do While FileName <> ""
Open sPath & FileName For Input As #1
Do While Not EOF(1)
Line Input #1, InputData
If InStr(1, InputData, " ") > 0 Then
anzfound = anzfound + 1
Sheets("Tabelle1").Cells(anzfound + 3, 1) = FileName
Sheets("Tabelle1").Cells(anzfound + 3, 2) = InputData
End If
Loop
Close #1
FileName = Dir
Application.StatusBar = "Status: " & anzfound
Loop
End If
End Sub

Gruß
KO
Anzeige
AW: txt-Import zellenweise: wie Zellenseparation ?
02.12.2004 12:27:38
Horst
negativ:
Das Script erzeugt zwei Zellen je Zeile:
links eine mit dem Dateinamen und dann eine, in der alle ~40 Spaltenwerte drin stehen
Ich brauch aber eine Datei mit den ~40 Spalten!!!!!! Jeder Wert in eine eigene Zelle
(wie es workbooks.opentxt könnte wäre die Datei nicht so groß)
Deshalb ja auch der "Wunsch" nach zwei Schleifen:
# Erst Schleife je Zeile
# Zweite Schleife innerhalb der Ersten je Spalte in der Zeile
(oder mittels Array?)
Habe einen Auszug unter
https://www.herber.de/bbs/user/14239.txt
hochgeladen. Im Notepad od. Hexviewer ist zu sehen, daß der Tabulator
Chr(9) Trennzeichen ist und nicht Leerzeichen als Feldinhalte stehen.
HIILFEE
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige