Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1164to1168
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
1164to1168
1164to1168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textdatei einlesen

Textdatei einlesen
Das
Hallo Excelfreunde,
per Aufzeichnung habe ich ein Makro für das Einlesen einer Textdatei erstellt. Da es dort Felder gibt, die Ziffern enthalten können, aber Textformat sein müssen, möchte ich diese über FieldInfo als Text formatieren.
Das ergab folgenden Code: 
Sub Einlesen()
Workbooks.OpenText Filename:="G:\KPV\KPV_Export_Einzelfelder.txt", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), _
Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8,  _
1), _
Array(9, 2), Array(10, 2), Array(11, 2), Array(12, 4), Array(13, 4), Array(14, 2),  _
Array(15 _
, 2), Array(16, 2), Array(17, 2), Array(18, 2), Array(19, 2), Array(20, 2), Array(21, 2) _
, _
Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 4), Array(26, 1), Array(27, 1),  _
Array( _
28, 4), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 4), Array(33, 4), Array(34,  _
1), _
Array(35, 1), Array(36, 2), Array(37, 2), Array(38, 2), Array(39, 1), Array(40, 1),  _
Array( _
41, 2), Array(42, 1))
' Hier zur besseren Übersicht eine Auflistung der Felder:
' Felder Typ1 =  8, 22-24, 26-27, 29-31, 34-35, 39-40, 42
' Felder Typ2 =  1-7, 9-11, 14-21, 36-38, 41
' Felder Typ4 =  12-13, 25, 28, 32-33
End Sub
Ich finde diesen "Array-Teil" ziemlich unübersichtlich. Kann man das irgendwie vereinfachen?
Gruß Holger

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Vereinfachte ARRAYs für Textdatei einlesen
09.07.2010 11:13:50
NoNet
Hallo Holger,
hier eine vereinfachte bzgl. übersichtlichere Version :
Sub EinlesenTextDatei()
Dim arSpalte(), arTypen(), lngS As Long
For lngS = 1 To 42 '42=Anzahl der einzulesenden Spalten
ReDim Preserve arSpalte(lngS - 1)
arSpalte(lngS - 1) = lngS
Next
'Typen der 42 einzulesenden Spalten : 1=Standard / 2=Text / 4=Datum
arTypen = Array(2, 2, 2, 2, 2, 2, 2, 1, 2, 2, _
2, 4, 4, 2, 2, 2, 2, 2, 2, 2, _
2, 1, 1, 1, 4, 1, 1, 4, 1, 1, _
1, 4, 4, 1, 1, 2, 2, 2, 1, 1, 2, 1)
Workbooks.OpenText Filename:="G:\KPV\KPV_Export_Einzelfelder.txt", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
Comma:=False, Space:=False, Other:=False, FieldInfo:= _
Application.Transpose(Array(arSpalte, arTypen)), TrailingMinusNumbers:=True
End Sub
Ich konnte das natürlich nicht mit DEINER Datei testen, sondern nur mit einer Testdatei von mir, damit hat es sehr gut geklappt ! Bitte überprüfe auch nochmal die Typen im ARRAY arTypen - ich hoffe, ich habe die Reihenfolge korrekt übernommen ;-)
Gruß, NoNet
gegen 0:1  
Anzeige
AW: Vereinfachte ARRAYs für Textdatei einlesen
09.07.2010 11:40:08
Das
Hallo NoNet,
ich musste zwar das "TrailingMinusNumbers:=True" rausnehmen, da es bei mir einen Fehelr verursacht, aber dann funktioniert dein Code fehlerfrei. Danke!
Auch wenn dein Code wesentlich übersichtlicher und besser ist als das aufgezeichnete Makro, finde ich es trotzdem schade, dass man die Wiederholungen im Array (Formattypen) nicht irgendwie zusammenfassen kann.
Gruß Holger
Geringe Vereinfachung des ARRAYs
09.07.2010 12:30:00
NoNet
Hallo Holger,
leider ist die Angabe des Typen-ARRAYs unabdingbar für diese Methode, da das in Excel so vorgegeben ist (Man sagt "works as designed" !).
Eine Alternative zur einzelnen Angabe aller Typen wäre, die Typen zunächst in einem String zusammenzufassen und z.B. anstatt wie im ARRAY "2,2,2,2,2,2" einfach "5x2", anzugeben !
diese Zusammenfassung muss dann allerdings doch wieder per Code in ein ARRAY übertragen werden.
Hier ein Beispiel für Deine Datei :
Sub Einlesen3()
Dim arSpalte(), arTypen(), lngS As Long, lngPosX As Long, lngZ As Long
Dim strTypen As String
For lngS = 1 To 42 '42=Anzahl der einzulesenden Spalten
ReDim Preserve arSpalte(lngS - 1)
arSpalte(lngS - 1) = lngS
Next
'    'Typen der 42 einzulesenden Spalten : 1=Standard / 2=Text / 4=Datum
'    arTypen = Array(2, 2, 2, 2, 2, 2, 2, 1, 2, 2, _
'                    2, 4, 4, 2, 2, 2, 2, 2, 2, 2, _
'                    2, 1, 1, 1, 4, 1, 1, 4, 1, 1, _
'                    1, 4, 4, 1, 1, 2, 2, 2, 1, 1, 2, 1)
'Alternative : Angabe der Wiederholungen eines Typs : 3x2 bedeutet "2,2,2,"
strTypen = "7x2,1,3x2,4,4,8x2,3x1,4,1,1,4,3x1,4,4,1,1,3x2,1,1,2,1"
ReDim arTypen(0)
For lngS = 0 To UBound(Split(strTypen, ","))
lngPosX = InStr(Split(strTypen, ",")(lngS), "x")
If lngPosX Then
For lngZ = 1 To Left(Split(strTypen, ",")(lngS), lngPosX - 1)
ReDim Preserve arTypen(UBound(arTypen) + 1)
arTypen(UBound(arTypen)) = Right(Split(strTypen, ",")(lngS), 1)
Next
Else
ReDim Preserve arTypen(UBound(arTypen) + 1)
arTypen(UBound(arTypen)) = Right(Split(strTypen, ",")(lngS), 1)
End If
Next
For lngS = 0 To UBound(arTypen) - 1
arTypen(lngS) = arTypen(lngS + 1)
Next
ReDim Preserve arTypen(UBound(arTypen) - 1)
Workbooks.OpenText Filename:="G:\KPV\KPV_Export_Einzelfelder.txt", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, _
Comma:=False, Space:=False, Other:=False, FieldInfo:= _
Application.Transpose(Array(arSpalte, arTypen)) ', TrailingMinusNumbers:=True
End Sub
Gruß, NoNet
gegen 0:1  
Anzeige
AW: Geringe Vereinfachung des ARRAYs
09.07.2010 12:37:39
Das
Danke für deine Mühe! Die Alternative bläht den Code wieder auf und macht ihn nicht gerade übersichtlicher. Aber es ist immer interessant auch andere Möglichkeiten zu sehen, das hilft beim erlernen. Ich bleibe bei deinem 1. Code.
Schönes und hoffentlich auch siegreiches Wochenende!
Gruß Holger

301 Forumthreads zu ähnlichen Themen

datenimport aus excel in excel
caot

Hi mal wieder!
ich hab mal wieder ne frage:
es sind ca 1200 Excel Dateien aus denen jeweils aus ein paar Zeilen und Spalten die Werte in eine Exceldatei eingelesn werden sollen.
Die Ursprungsdateien sind laufend nummeriert... und dann
kommt noch ein name als nummer- name.xls <...
09.08.2008 11:22:00
Thread-ID: 1000469
3 Beiträge
Anzeige
daten aus Arbeitsmappe einlesen
Peter

Hallo,
kurze Fragestellung an die Experten. Habe mir einen Code zusammengebastelt, der in einer geöffneten Arbeitsmappe, bestimmte Daten aus einer anderen noch "unbestimmten" Arbeitsmappe importieren soll. Funktioniert auch, jedoch kommt mir der Code zu unübersichtlich und auch "unsauber" v...
19.08.2008 13:25:00
Thread-ID: 1002916
3 Beiträge
Daten aus einer Zelle auf mehrere Zellen aufteilen
Gordon

Moin,
ich habe hier einer Zelle (A10) eine bis mehrere Zeichenketten, die jewiels durch ein ";" getrennt werden.
Nun soll jeweils jede Zeichenkette auf drei Zellen aufgespilltet werden:
A1 = Die ersten 10 Zeichen der 1.Kette
B1 = Die nächsten 10 Zeichen der 1.Kette
C1 = Die...
23.08.2008 22:57:00
Thread-ID: 1004183
15 Beiträge
Anzeige
Datenvergleich und danach ausgegebene Info
Merle

Guten morgen alle zusammen!
Hab mal wieder eine Frage. Kriege ständig irgendwelche Listen, die ich zusammenfassen soll.
Hier ein Beispiel meiner Liste:
https://www.herber.de/bbs/user/55376.xls
Ich hätte es gerne, dass wenn ich in der Liste in Tabelle1, nur die Bez. D127 aus dem...
15.09.2008 08:58:00
Thread-ID: 1009662
2 Beiträge
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
Daten aus Zellbereich in eine neue Arbeitsmappe
André

Für eine "Tägliche Auswertung" suche ich ein Makro.
Meine erste Idee war es, hier im Forum zu suchen, ob es da nicht schon was gibt. Leider erfolglos. Ich hab zwar Makros gefunden, die ein neues Wks erstellen mit genau den Vorgaben, die ich brauche und ein Makro zum Zellenbereich kopieren,...
26.09.2008 10:23:00
Thread-ID: 1012532
3 Beiträge
Daten aus Tabelle in eine andere Tabelle
Cornelia

Ich habe 2 Tabellen mit dem gleichen Aufbau.
Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
01.10.2008 08:11:00
Thread-ID: 1013510
6 Beiträge
Daten aus Inputbox in Zellen untereinander lesen
Peter

Hallo
Bin neu hier, und auch ein Anfänger in VBA, habe folgendes Problem.
Ich möchte, das Datum über eine InputBox in die Zellen untereinander schreiben lassen, also wenn ich am Freitag was Schreibe soll das Datum in A1 stehen, beim nächsten Aufruf der InputBox, soll das Datum in A2 ges...
09.10.2008 20:00:59
Thread-ID: 1015445
3 Beiträge
Anzeige

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
2
1
2
14
3
1
4
2
5
2
5
6
4
4
2
1
1
6
1
4
4
1
1
8
2