Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
172to176
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
172to176
172to176
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textdatei in ein Array einlesen ?

Textdatei in ein Array einlesen ?
25.10.2002 11:16:52
Gerd
Guten Morgen,
wenn ich jetzt eine Textdatei (ca. 500kb) in eine Tabelle einlese, benutze ich die Funktion "Externe Daten importieren" bzw. ein Makro, was ich aufgezeichnet habe.
Das geht schneller, als wenn man die Datei öffnet und dann pro Zeile einliest.

Nun würde ich aber gerne diese Textdatei in ein Array einlesen.
Könnte mir jemand einen ganz kurzen Beispielcode geben?

Die Textdatei sieht so aus (Ausschnitt):

13;654;222;98;Demo

Und davon sind es halt relativ viele Zeilen.

Danke an alle Array-Profis für Hilfe!

Gruß Gerd

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

Betreff
Datum
Anwender
Anzeige
Re: Textdatei in ein Array einlesen ?
25.10.2002 15:16:03
Michael Scheffler
Hallo:

Option Explicit
Option Base 1
Sub lies()
Dim varTest() As Variant
Dim iZeile As Integer
varTest = Range("A1", Range("A1").Offset(Cells(Cells.Rows.Count, 1).End(xlUp).Row, Rows(1).End(xlToRight).Column - 1))
For iZeile = LBound(varTest) To UBound(varTest)
Debug.Print varTest(iZeile, 1), varTest(iZeile, 2), varTest(iZeile, 3)
Next
End Sub

Re: Textdatei in ein Array einlesen ?
25.10.2002 15:48:49
Dan
Hallo Gerd,
folgendes kod liest einen Text-file und fullt einen 2D Array. Du musst nur den Anzahl der Columns des Text-files wissen und in einen InputBox eingeben. Die Werte in der Textdatei mussen mit ";" voneinader getrennt sein. Dan

Option Explicit
Option Base 1

'Line Input #
Public Sub Txt_Array_1()
On Error GoTo errH
Dim strPath As String, data(), MaxCols As Integer, cols As Long, rows As Long
Dim myChar As String, myString As String

strPath = "C:\TEMP\Demo.txt"

Open strPath For Input As #1

MaxCols = InputBox("Enter number of columns in your text file")
cols = 1
rows = 1
ReDim data(MaxCols, rows)

Do While Not EOF(1)
myChar = Input(1, #1)
If myChar <> ";" And myChar <> vbCr And myChar <> vbLf Then
myString = myString & myChar
ElseIf myChar = ";" Then
data(cols, rows) = myString
myString = ""
cols = cols + 1
ElseIf myChar = vbCr Then
data(cols, rows) = myString
myString = ""
rows = rows + 1
cols = 1
ReDim Preserve data(MaxCols, rows)
End If
Loop

Close #1

Exit Sub
errH:
MsgBox "Error : " & Err.Number
End
End Sub

Anzeige

11 Forumthreads zu ähnlichen Themen

VBA ExcelDateinamen und Arbeitsblattnamen einlesen
MarkusL

Hallo,
gibt es per VBA eine Möglichkeit alle Excel Dateien eines Verzeichnisses inkl. der jeweils enthaltenen Arbeitsblattnamen einzulesen (der Name der Exceldatei sollte ohne .xls ausgegeben werden), so dass nachfolgendes Ergebnis erzeugt wird:
Dateiname.......Arbeitsblattname
Date...
16.11.2008 15:07:00
Thread-ID: 1024906
5 Beiträge
Anzeige
VBA: mehrere Dateien nacheinander einlesen
H.Benitz

Hallo,
da meine VBA-Kenntnisse zur Zeit noch recht bescheiden sind, habe ich mir das Script für mein Vorhaben aus verschiedenen Beiträgen zusammengebastelt.
Funktioniert soweit schon ganz gut, aber ein Problem gibt es noch!
Das Ziel ist:
Es sollen aus einem vom Anwender vorgegeb...
06.12.2012 11:06:13
Thread-ID: 1289572
3 Beiträge
Excel VBA - Datein einlesen und inhalt kopieren
Daniel

Hallo zusammen,
Ich erstelle ein Tool zur Auswertung von Exceltabellen.
Momentan stehe ich vor folgendem Problem:
Um eine Exceldatei auszuwerten muss ich zurzeit die zu auswertende Datei öffnen, STRG-A, STRG-C und dann in ein Tabellenblatt vom Tool STRG-V'en
Ich würde nun gerne...
17.02.2015 14:05:53
Thread-ID: 1409913
5 Beiträge
Anzeige
VBA, pdf Dateien in listbox einlesen und öffnen
Michael

Guten Morgen liebe VBA Gemeinde, wieder stehe ich vor einem Problem was ich auch mit Internet Recherche nicht gelöst bekomme.
Ich möchte aus folgenden Ordner pdf Dateien in eine Listbox einlesen und diese aus der Listbox heraus auch öffnen könnnen.
Diese Listbox befindet sich in einer U...
20.04.2016 08:54:28
Thread-ID: 1489073
10 Beiträge
VBA - Werte aus externen Dateien einlesen
Pfanner

Guten Abend,
Ich würde gerne ein VBA-Makro erstellen, der bestimmte feste Werten aus externen Excel-Dateien herausnimmt und in eine vordefinierte Tabelle einfügt und bitte euch aus diesem Grund um Hilfe;
Ich habe ein Ordner, der täglich mit neuen Excel-Auswertungen (Aufbau gleich, Name...
04.03.2019 22:14:28
Thread-ID: 1679297
16 Beiträge
VBA aus Tabelle in Array schreiben
Oezkan

Hallo zusammen,
kann mir jemand verraten, wie ich die Daten aus meiner Excel Tabelle in Form von Name, Vorname, Strasse, Alter in ein Array speichern kann?
Ich möchte gern diese Daten anschließend mit einem anderen Tabellenblatt vergleichen. Wenn ich z.B. zwei Datensätze habe, wie:
...
13.09.2006 17:11:34
Thread-ID: 801517
3 Beiträge
Einlesen von großen Textdateien per VBA
großen

Hallo,
per VBA lasse ich eine Textdatei in Excel importieren:
ChDir Laufwerk
Workbooks.OpenText Filename:= _
WoNat1 _
, Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth,FieldInfo:= _
Array(Array(0, 1), Array(12, 1), Array(20, 1), Array(23, 1), _
Array(29,1), Ar...
04.01.2007 22:56:56
Thread-ID: 833912
17 Beiträge
VBA Bereich aus anderer Tabelle in Array
W
Hallo Excel-Freunde.
Wie kann ich einen Bereich aus einem anderen Tabellenblatt in einen 2D-Array bringen?
So geht es jedenfalls nicht:
Groups = ActiveWorkbook.Sheets(ZBlatt).Range(Cells(3, 2), Cells(MaxRows, 3))
Wenn das entsprechende Blatt das aktive Blatt ist, dann gibt es kein Pr...
03.09.2021 16:00:31
Thread-ID: 1846084
5 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
2
4
8
9
15
2
16
4
6