Hallo darrel,

für welches Programm benötigst Du das?

Was für eine Funktion soll den ausgeführt werden?

Was soll kopiert werden?

Bitte genauere Angaben, sonst ist Hilfe nur schwer möglich.


MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

ich möchte eine korrelationsmatrix automatisch mit den in dem ordner "quotes" runtergeladenen wp-listen (wp=wertpapier) erstellen. die listen habe ich von yahoo.finance runtergeladen und sind .csv dateien. in diesen mus ich erst den text auf die spalten aufteilen (diese funktion war gemeint). anschließend muss die "schlusskurs-spalte" in meine hauptdatei (wo die matrix enstehen und berechnet werden soll) kopiert werden. mit übergeben werden muss der dateiname (um zu wissen welche kurze zu welchem wp gehören).

Hallo darrel,

ich fasse nochmal zusammen ( bitte korrigieren, wenn was falsch ist ):

- Es geht um Excel

- Es sollen mehrere hundert csv-Dateien geladen und je in ein Tabellenblatt geschrieben werden (Es werden also mehrere hundert Tabellenblätter erzeugt)

- Aus jedem Tabellenblatt soll eine Spalte (immer die gleiche) plus dem Dateinamen einem seperaten, bereits bestehenden Tabellenblatt hinzugefügt werden.

Frage: brauchst Du die hundert+ Tabellenblätter, oder geht es nur um die eine Spalte ? Will sagen, würde es reichen, die Daten zu laden und nur die eine Spalte zu schreiben ?

also jedes wp hat eine eigene csv.datei mit der schlusskursspalte. die muss (+name des wp welcher aus dem dateinamen ersichtlich ist) in die hauptdatei.

Hallo,
also, ich verstehe das so, daß die eine Spalte reicht, richtig ? Also brauchst Du die vielen Tabellenblätter gar nicht.

Leider bin ich kein Excel-spezialist, aber ich würde mal mit OpenTextFile oder OpenAsTextStream anfangen.
Dann mit ReadLine alle Zeilen in ein Array A einlesen,
mit Split die Spalten in ein Array B schreiben,
die Spalte, die Du brauchst, in das Tabellenblatt schreiben.
A kann für die nächste Datei überschrieben werden, B kann für jede Zeile überschrieben werden.

Zu OpenTextFile und OpenAsTextStream gibt es ein Beispiel in der VBA-Hilfe von Excel.

Google mal nach zB. "Excel readline".
Ein Treffer zb: Textdateien einlesen

Zellen schreiben:

Sub Blabla()
    Dim A(100) As String
    
    A(1) = "abc;def;ghi;jkl"
    A(2) = "mno;pqr;stu;vwx"
    '...
    For i = 1 To 2
        B = Split(A(i), ";")
        Worksheets("Tabelle1").Cells(i, 2) = B(3)
    Next
End Sub