Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1012to1016
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
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

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

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

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige