Hallo,
ich hab Messdaten die ich von einem Messgerät über http://www.vbarchiv.net/api/api_connect.html einlese.
Je nach einstellung des Messgerätes können das 6 bis 648 Messwerte sein.
Das Messgerät hat 3 verschiedene Testverfahren jedes Testverfahren hat 6 Messwerte und kann auf bis zu 36 Kanälen ausgeführt werden
also 3x6x36=648
Die Messdaten kommen Komma seperiert an und nun muss ich sie in Excel eintragen.
Meine Idee war, Excel zählen zu lassen wieviele Zellen er befühlt hat und dann jenach einstellung der Testverfahren nach 6,12 oder 18 Zellen eine Zeile runter zu gehen. Funktioniert aber leider nicht so wirklich. Die andere Methode die ich ausprobiert habe war die Messdaten schon im Array mit reDim schon auf das passende Format zu bringen und sie dann mit Range einzufügen. Da sich aber die Range auch variable zu den Kanälen ändert, hab ich dies auch nicht hinbekommen.
Habt ihr eine Idee wie ich das vernünftig gelöst bekomme?
Gruß
Tobias
Do While True
ReceivedLine = Trim(ReadLine(hSock, 50000))
If (ReceivedLine = END_OF_DATA) Then
Worksheets("Init").TextBox_MeasureMessages.Text = Worksheets("Init").TextBox_MeasureMessages.Text & "Messung erfolgreich Beendet: " & Format(Now, "HH:MM:SS:MS") & vbCrLf
Application.Cursor = xlDefault
Exit Do
Else
If (Len(ReceivedLine) > 0) Then
DataItems = Split(ReceivedLine, ",")
CountItems = UBound(DataItems())
End If
If DataItemCount = 300000 Then
MeasurementOK = False
Exit Sub
End If
If Source = "Switch" Then
For i = 0 To CountItems
ActiveCell.Offset(0, i) = Trim(DataItems(i))
If i Mod Measurement = 0 Then
ActiveCell.Offset(1, 0).Select
End If
Next i
End If
End If
Loop
|