Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
536to540
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
536to540
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Externe Daten in einer Tabelle zusammenfassen

Externe Daten in einer Tabelle zusammenfassen
29.12.2004 13:15:37
Uwe
Hallo zusammen, habe hier ein Problem welches ich nicht in den Griff bekomme.
Ich habe 2 CSV-Tabellen die ich zu einer Tabelle in Excel zusammenfügen möchte:
Das ganze habe ich per Makro aufgenommen und ablaufen lassen. Funktioniert auch. Aber jetzt zu meinem Problem: Die CSV Dateien vergrößern sich jeden Tag um x Zeilen. Also weiß ich nie in welcher Zeile ich die 2. CSV Datei anhängen muß. Hier noch der Code den ich aufgezeichnet habe.

Sub Makro1()
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;G:\FTPSERV\N3020\G017_LFM1.CSV", Destination:=range("A1"))
.Name = "G017_LFM1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 7
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 5, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;G:\FTPSERV\N3020\G017_LFM2.CSV", Destination:=range("A21"))
.Name = "G017_LFM2"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 5, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub

Hoffe jemand kann mir weiterhelfen.
Danke Uwe

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

Betreff
Datum
Anwender
Anzeige
AW: Externe Daten in einer Tabelle zusammenfassen
Martin
Hallo Uwe,
vor das zweite With folgende Zeile einfügen
z = Range("A65536").End(xlUp).Row + 1
und dann statt
Destination:=range("A21")
Destination:=range("A" & z)
Gruß
Martin Beck
AW: Externe Daten in einer Tabelle zusammenfassen
Uwe
Hallo Martin,
Danke für die schnelle Antwort. Doch leider funktioniert es nicht so wie ich es gerne möchte: Die erste Datei soll den Eintrag mit Zelle A1 beginnen. Die 2.Datei soll in der ersten freien Zelle in der Spalte A beginnen.
Bei dem jetzigen Stand wird die 2.Datei zwar in der richtigen Zelle ausgegeben, dafür wandert die Datei 1 jedoch in Spalte P12 mit dem ersten Eintrag.
Gruß Uwe
Anzeige
Poste mal bitte Deinen Code (oT)
Martin
AW: Poste mal bitte Deinen Code (oT)
30.12.2004 08:52:47
Uwe
Hallo Martin,
habe den Fehler gefunden. Die Eigenschaften des externen Datenbereiches waren nicht richtig gesetzt.
Nochmals Danke, jetzt funktioniert es.
Gruß Uwe

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige