Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Sicherheitshinweis ---> für registrierte Mitglieder <-
Import einer txt datei ab einer Zeile
zurück: Kontrollkästchen in einer Spalte nur bedingt anzeigen weiter: Import einer txt datei ab einer Zeile Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Golochim_test
Gast


Verfasst am:
28. Feb 2013, 22:29
Rufname:


Import einer txt datei ab einer Zeile - Import einer txt datei ab einer Zeile

Nach oben
       Version: Office 2010

Hallo,

ich benutze folgendes Makro zum importieren von mehreren TXT Dateien in eine Exceltabelle:

Sub test()
Dim strPfad As String
Dim FSO As Object
Dim file
Dim lngLR As Long
'********************************
'Anpassen
strPfad = "C:\Users\Joachim.Glomb\Documents\Firma\Excel\Daten\"
'********************************
Set FSO = CreateObject("scripting.filesystemobject")
For Each file In FSO.GetFolder(strPfad).Files
strFileName = file.Name
'*************************************
'Anpassen (Die 1 in cells(...,1) steht für die Spalte A
'Wenn angepasst werden muss dann den Buchstabe (z.B. A zu B) verändern und Zahl verändern (dann 1 zu 2)
strDestination = "A" & Cells(Rows.Count, 1).End(xlUp).Row + 1
'*************************************
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & strPfad & strFileName, Destination:=Range( _
strDestination))
.Name = "Uebersicht" 'Name des Tabellenblattes nach Import
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
'****************************************************
'Hier kannst du das Trennzeichen einstellen (Leerzeichen ist eingestellt)
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
'****************************************************
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Next
End Sub

Der Import funktioniert auch super. Jetzt habe ich aber das Problem, dass in der TXT-Datei die ersten 4 Zeilen nur allgemeine Infos enthalten. Ich müsste erst ab der Zeile 5 imprtieren. Wie könnte ich das in mein Makro einbauen?

Gibt es auch die Möglichkeit, dass ich die erste Zeile der TXT Datei (es ist nur das Datum) in die erste Spalte importiere und den rest dann ab der zweiten Spalte?

Könnte mir jemand helfen???

Gruß

Jojo
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Zahlen in einer Zeile auswerten nach den Größtwerten 11 Nicole-Fun 908 26. Okt 2005, 09:44
ransi Zahlen in einer Zeile auswerten nach den Größtwerten
Keine neuen Beiträge Excel Formeln: Wenn Wert = 0,00 dann Zeile davor und die eigene Grün 9 Speedy@Web 1993 22. Okt 2005, 20:19
Maxel3113 Wenn Wert = 0,00 dann Zeile davor und die eigene Grün
Keine neuen Beiträge Excel Formeln: SUMMEWENN mit Suchkriterium Datum;Datum nach jeder Zeile +1? 4 homer_134 3721 20. Sep 2005, 23:48
homer_134 SUMMEWENN mit Suchkriterium Datum;Datum nach jeder Zeile +1?
Keine neuen Beiträge Excel Formeln: Autofilter funktioniert nur bis Zeile 143?? 2 landau666 889 07. Sep 2005, 21:10
landau666 Autofilter funktioniert nur bis Zeile 143??
Keine neuen Beiträge Excel Formeln: bedingte Formatierung ganze Zeile enfärben 2 skyblue 2516 06. Sep 2005, 12:41
skyblue bedingte Formatierung ganze Zeile enfärben
Keine neuen Beiträge Excel Formeln: Vergleich Zeile mit einem Bereich (in einer WENN Funktion)? 2 GelbesAuge 2395 22. Aug 2005, 21:24
Gast Vergleich Zeile mit einem Bereich (in einer WENN Funktion)?
Keine neuen Beiträge Excel Formeln: SVERWEIS auf externe Datei mit variablen Blattnamen 6 Bia74 1517 04. Jul 2005, 19:28
fl618 SVERWEIS auf externe Datei mit variablen Blattnamen
Keine neuen Beiträge Excel Formeln: Selbständiges Suchen einer Zelle und kopieren i andere Datei 2 Gerson 2322 19. Mai 2005, 04:48
Gerson Selbständiges Suchen einer Zelle und kopieren i andere Datei
Keine neuen Beiträge Excel Formeln: Zeile automatisch einfügen (ab Excel 97) 1 frechmops6 1799 16. Apr 2005, 22:22
Kuwe Zeile automatisch einfügen (ab Excel 97)
Keine neuen Beiträge Excel Formeln: gezielte Bewegung in einer Datei 2 ja_jack 582 07. März 2005, 23:00
ja_jack gezielte Bewegung in einer Datei
Keine neuen Beiträge Excel Formeln: Werte aus 2. Datei/Tabellenblatt übertragen //Zusatzfrage 6 original-m 1708 25. Feb 2005, 11:25
Sigrid Werte aus 2. Datei/Tabellenblatt übertragen //Zusatzfrage
Keine neuen Beiträge Excel Formeln: Eine Zeile am Ende mit einem CommandButton einfügen 0 chico24 884 11. Jan 2005, 10:29
chico24 Eine Zeile am Ende mit einem CommandButton einfügen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA