Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Dateiinhalt auslesen

Dateiinhalt auslesen
26.09.2008 12:37:00
Herbert
Hallo Excel-Profis,
ich möchte täglich den Inhalt einer CSV-Datei auslesen.
Die Datei wird täglich automatisch in den Ordnder D:\prognose gestellt. Der Dateiname ist: "prognose_JJJJMMTT.csv". Der Name der neuesten Datei ist immer der vom gestrigen Tag. (z.B. heute ist die aktuelle Datei, die mit dem Namen: prognose_20080920.csv - obwohl heute schon der 21.09. ist)
Der relevante (zu übernehmende) Inhalt der Datei steht in den Zellen D26 bis D49. Dieser soll in der Zieldatei (prognosewerte_aktuell.xls) in den Zellen A26 bis A49 erscheinen. Am Tag darauf kann der Inhalt überschrieben werden, so dass am morgigen Tag die Werte für prognose_20080921.csv erscheinen.
Kann man diesen Vorgang automatisieren? Ich würde gern einfach einen Button erstellen, der die neueste Datei ausliest und in die Zieldatei (prognosewerte_aktuell.xls) überträgt.
Bin für jede Hilfe sehr dankbar.
Gruß Herbert
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateiinhalt auslesen
26.09.2008 12:58:23
Rudi
Hallo,
ungetestet:

Sub tt()
Dim strTmp As String, strDate As String, iCounter As Integer
Const strSep As String = ";"
strDate = Format(Date - 1, "YYYYMMTT")
Open "d:\prognose\prognose_" & strDate & ".csv" For Input As #1
For iCounter = 1 To 25
Line Input #1, strTmp
Next
For iCounter = 26 To 49
Line Input #1, strTmp
Sheets(1).Cells(iCounter, 1) = Split(strTmp, strSep)(3)
Next
Close 1
End Sub


Gruß
Rudi

Anzeige
AW: Dateiinhalt auslesen
27.09.2008 18:55:00
Herbert
Hallo,
danke für die Mühe. Leider wird in der Zeile
Open "d:\prognose\prognose_" & strDate & ".csv" For Input As #1
Datei nicht gefunden angezeigt.
Die Datei liegt aber in d:\prognose und hat z.B. heute den Namen prognose_20080926.xls. Was könnte das noch sein?
Gruß Herbert
Anzeige
AW: Dateiinhalt auslesen
29.09.2008 15:00:57
Rudi
Hallo,
mein Fehler:
strDate = Format(Date - 1, "YYYYMMDD")
Gruß
Rudi
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige