Zusammenführen mehrerer Summen in einer Datei

Sebastian · 2016-04-19T08:20:15+00:00

Hallo zusammen in meiner Excel-Datei möchte ich aus verschiedenen automatisch generierten *.csv-Dateien jeweils die Summe der Spalte "U" zusammenfassen. Die Dateien, die ich auswerten möchte, haben jedoch täglich andere Namen. Über einen bereits funktionierenden Button baue ich die Liste der Dateien im Verzeichnis C:\Excel_Export\ neu auf. In diesem Zusammenhang soll zu jeder dieser Dateien die voreingestellte Spalte "U" neu summiert und in der Zusammenfassung gezeigt werden. Vielen Dank vorab! https://www.herber.de/bbs/user/105070.xlsm

Hallo,
ich habe den Code nun glaube ich mit deinen Anleitungen soweit gebracht, dass er die Felder tatsächlich ausliest.

Sub csc_lesen()
Dim wsz As Worksheet
Dim wbq As Workbook 'Quelle
sPfad = "c:\Excel_Export\" 'anpassen
Set wsz = ThisWorkbook.Worksheets("Tabelle1")
For i = 1 To 100
If Left(Cells(i, 1), 4) = "2016" Then
Set wbq = Workbooks.Open(sPfad & Cells(i, 1))
wsz.Cells(i, 2) = WorksheetFunction.Sum(wbq.Sheets(1).Columns("u:u"))
wbq.Close 0
End If
Next i
End Sub

Nun ergibt sich direkt das nächste, vermutlich *.csv-Problem.
Excel zeigt mir beim Öffnen der Datei alle Spalten säuberlich voneinander getrennt an.
Sobald die Datei durch den Code geöffnet wird, sind die Werte allerdings per Semikolon getrennt.
-- Die Folge: In Spalte U:U befindet sich für das Script... nichts!
Wie bringe ich nun dem Script bei, vor Auslesen der Spalte U:U die Werte auf die Spalten aufzuteilen?
Vielen Dank schon für Eure bisherigen Mühen, haben mir schon sehr geholfen.
Gruß,
Sebastian

Hallo,
jetzt habe ich es am PC getestet soweit das möglich ist ohne die Original-Dateien.
Diesen 'Text-to-Column'-Befehl zu programmieren war etwas unangenehm (mehr asl 3 Versuche).
Manchmal erkennt xl automatisch, wie eine csv-Datei getrennt ist, manchmal nicht. Deshalb die Abfrage "if cells(1, "U") = 0"
In meiner Demo läuft der Code, das ist aber keine Garantie, dass es auch bei dir läuft.


Sub csv_lesen()
Dim WSZ As Worksheet
Dim WBQ As Workbook 'Quelle
sPfad = "c:\Excel_Export\" 'anpassen
Set WSZ = ThisWorkbook.Worksheets("Tabelle1")
For i = 1 To 100
If Left(Cells(i, 1), 4) = "2016" Then
Set WBQ = Workbooks.Open(sPfad & Cells(i, 1))      '
If WSZ.Cells(1, "U") = 0 Then
With WBQ.Sheets(1)
.Columns(1).TextToColumns Destination:=.Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
End With
End If
WSZ.Cells(i, 2) = WorksheetFunction.Sum(WBQ.Sheets(1).Columns("u:u"))
WBQ.Close 0
End If
Next i
End Sub

mfg
(schwieriger als erwartet)

Zusammenführen mehrerer Summen in einer Datei

Forumthread: Zusammenführen mehrerer Summen in einer Datei

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Zusammenführen mehrerer Summen in einer Datei

Forumthread: Zusammenführen mehrerer Summen in einer Datei

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread