Daten von Datei in Excel Darstellen.

[Dolphon]

Moin.
Dieses Makro da unten liest ein Datei ein und Suckt die Daten in einem Direktfenster aus. Statt in einem Direktfesnter die Daten auszugeben soll er sie in eine Excle Tabelel ausgeben, aber in bestimtmen Spalten, die ich festlege

Sub Einlesen()

Dim WKN As String
Dim Kurs As String
Dim Uhrzeit As String
Dim Trennfeld As String
Dim Kurs2 As String
Dim Kurs3 As String
Dim Kurs4 As String
Dim Trennfeld2 As String
Dim Mittelwert As Double
Dim num As Double
Dim num2 As Double
Dim num3 As Double
Dim num4 As Double
Dim b As Range




Open "c:\kurs_ein.txt" For Input As 1
Open "c:\avgkurs.txt" For Output As 2
Do While Not EOF(1)

    Input #1, WKN, Kurs, Uhrzeit, Trennfeld, Kurs2, Kurs3, Kurs4, Trennfeld2

    num = Val(Kurs)
    num2 = Val(Kurs2)
    num3 = Val(Kurs3)
    num4 = Val(Kurs4)

    Mittelwert = (num + num2 + num3 + num4) / 4

    Debug.Print WKN
    Debug.Print Kurs
    Debug.Print Uhrzeit
    Debug.Print Kurs2
    Debug.Print Kurs3
    Debug.Print Kurs4
    Debug.Print Mittelwert

    

    Print #2, "WKN=  AVG=   "
    Print #2, WKN, Mittelwert

   
    
Loop
Close 1
Close 2
End Sub

 

[DrSoong]

Unter
http://www.activevb.de/tipps/vb6tipps/tipp0050.html
findest du ein Beispiel, wie man bei VB mit Ecel-Tabellen umgeht. Einfach deine Daten dann reinschreiben (für dich ist die Prozedur Command3_Click() relevant).


Der Doc!

 

[Dolphon]

für die antwort.
hab da auch soweit druchgeblickt. nur leider hab ich ein kleiens Problem.
die Ausgabe ist in eienr Schleife, und die Ausgabe in eienr Excel Tabelel erfolgt in eienr festen Zelle. Wie bekomm ich es hin, das die Zeile hochgezählt wird, und somit alle werte ausgegeben wrden, udn nicht nur der letzte.

 

[Retlaw]

Das geht indem du Variablen verwendest.

Von A1 bis A10 schreiben:

Dim Zähler as Integer
For Zähler = 1 to 10
    Excel.Range("A" & Zähler).Value = Text1.Text
next

Wenn du auch noch den Buchstaben hochzählen willst könntest du das über den ASCII-Wert machen.

Von A1 bis C1:

Dim Zähler as Integer
For Zähler = Asc("A") to Asc("C")
    Excel.Range(Chr(Zähler) & "1").Value = Text1.Text
next

Du kannst auch beide kombinieren.

Für Buchstaben gibts aber eine einfachere Möglichkeit, du nimmst nicht Range sondern Cells.

...
Cells(Zeile, Spalte) 'in Zahlen
Range(Zelle) 'als String, z.B. "A1", "B5", ...
...