Excel Makro zum Auslesen der seriellen Schnittstelle

  • Excel

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von japhwil.

    Excel Makro zum Auslesen der seriellen Schnittstelle

    Hallo,

    ich habe vor, ein Excel-Makro zu schreiben, um einen von einem Photometer gesendeten Datenstring in eine Tabelle einzutragen. Dabei soll eine Spalte die Messzeit enthalten, die andere die zugehörigen Messwerte. Leider scheitere ich immer am "Laufzeitfehler 1004". Kann mir da vielleicht jemand weiterhelfen?

    Ich benutze zum Auslesen der seriellen Schnittstelle die Software "StrokeReader" bzw. das zugehörige ActiveX Steuerelement. Im Anhang findet sich beispielhaft eine mit einem Terminalprogramm aufgezeichnete Datenreihe sowie das Projekt.

    Parameter der Verbindung:
    - Baud Rate: 19200
    - Parität: keine
    - Data Bits: 8
    - Stop Bits: 1

    Hier nochmal der Code:

    Visual Basic-Quellcode

    1. Dim zeile_idx As Integer
    2. Dim spalte_idx As Integer
    3. Dim buf As String
    5. Private Sub StrokeReader1_CommEvent(ByVal Evt As StrokeReaderLib.Event, ByVal data As Variant)
    7. Select Case Evt
    9. Case EVT_DISCONNECT '
    10. MsgBox "Keine Verbindung :(" '
    11. '
    12. Case EVT_CONNECT '
    13. MsgBox "Verbunden" '
    14. '
    15. Case EVT_DATA 'Verschiedene Events werden unterschieden
    16. buf = buf + data
    18. Umbruch = InStr(buf, Chr(10)) '
    19. buf = Right(buf, Umbruch) '"Probe n" wird vom String abgeschnitten
    20. Umbruch = InStr(buf, Chr(10)) '
    21. buf = Right(buf, Umbruch) '"Abs. Start..." wird vom String abgeschnitten
    22. Umbruch = InStr(buf, Chr(10)) '
    23. buf = Right(buf, Umbruch) '"Abs. Ende..." wird vom String abgeschnitten
    24. Umbruch = InStr(buf, Chr(10)) '
    25. buf = Right(buf, Umbruch) '"Steigung A/min..." wird vom String abgeschnitten
    26. Umbruch = InStr(buf, Chr(10)) '
    27. buf = Right(buf, Umbruch) '"Linearität (r²)..." wird vom String abgeschnitten
    28. Umbruch = InStr(buf, Chr(10)) '
    29. buf = Right(buf, Umbruch) '"Ergebnis..." wird vom String abgeschnitten
    30. Umbruch = InStr(buf, Chr(10)) '
    31. buf = Right(buf, Umbruch) 'Leerzeile wird vom String abgeschnitten
    33. Do
    34. Tabulator = InStr(buf, vbTab) 'der Tabulator zwischen Zeitpunkt und Absorption wird gesucht
    36. Zeit = Left(buf, Tabulator) 'Der Bereich links vom ersten Tabulator ist die erste Messzeit
    37. Cells(zeile_idx, spalte_idx) = Zeit 'Zeit wird in Zelle B2 geschrieben
    39. spalte_idx = spalte_idx + 1 'spalte_idx wird um 1 erhöht
    41. buf = Right(buf, Tabulator) 'buf ist nun nur noch alles rechts vom ersten Punkt
    43. Umbruch = InStr(buf, Chr(10)) 'restlicher Datenstring wird nach dem nächsten Zeilenumbruch durchsucht
    45. Absorption = Left(buf, Umbruch - 1) 'alles links vom Zeilenumbruch ist die Absorption
    46. Cells(zeile_idx, spalte_idx) = Absorption 'Absorption wird in Zelle C2 geschrieben
    48. buf = Right(buf, Absorption)
    50. zeile_idx = zeile_idx + 1 '
    51. spalte_idx = spalte_idx - 1 'zeile_idx und spalte_idx werden angepasst
    52. Loop
    54. End Select
    56. End Sub


    *Topic verschoben*
    Dateien

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Das scheint schonmal ein Stück weitergeholfen zu haben! Jetzt habe ich allerdings den "Laufzeitfehler 5" und Zeile 45 (48 in der aktuellen Version) wird markiert...

    Also hier nochmal der jetzt aktuelle Code:

    Visual Basic-Quellcode

    1. Dim zeile_idx As Integer
    2. Dim spalte_idx As Integer
    3. Dim buf As String
    5. Private Sub StrokeReader1_CommEvent(ByVal Evt As StrokeReaderLib.Event, ByVal data As Variant)
    7. zeile_idx = 1
    8. spalte_idx = 1
    10. Select Case Evt
    12. Case EVT_DISCONNECT '
    13. MsgBox "Keine Verbindung :(" '
    14. '
    15. Case EVT_CONNECT '
    16. MsgBox "Verbunden" '
    17. '
    18. Case EVT_DATA 'Verschiedene Events werden unterschieden
    19. buf = buf + data
    21. Umbruch = InStr(buf, Chr(10)) '
    22. buf = Right(buf, Umbruch) '"Probe n" wird vom String abgeschnitten
    23. Umbruch = InStr(buf, Chr(10)) '
    24. buf = Right(buf, Umbruch) '"Abs. Start..." wird vom String abgeschnitten
    25. Umbruch = InStr(buf, Chr(10)) '
    26. buf = Right(buf, Umbruch) '"Abs. Ende..." wird vom String abgeschnitten
    27. Umbruch = InStr(buf, Chr(10)) '
    28. buf = Right(buf, Umbruch) '"Steigung A/min..." wird vom String abgeschnitten
    29. Umbruch = InStr(buf, Chr(10)) '
    30. buf = Right(buf, Umbruch) '"Linearität (r²)..." wird vom String abgeschnitten
    31. Umbruch = InStr(buf, Chr(10)) '
    32. buf = Right(buf, Umbruch) '"Ergebnis..." wird vom String abgeschnitten
    33. Umbruch = InStr(buf, Chr(10)) '
    34. buf = Right(buf, Umbruch) 'Leerzeile wird vom String abgeschnitten
    36. Do
    37. Tabulator = InStr(buf, vbTab) 'der Tabulator zwischen Zeitpunkt und Absorption wird gesucht
    39. Zeit = Left(buf, Tabulator) 'Der Bereich links vom ersten Tabulator ist die erste Messzeit
    40. Sheets("Tabelle1").Cells(zeile_idx, spalte_idx).Value = Zeit 'Zeit wird in Zelle B2 geschrieben
    42. spalte_idx = spalte_idx + 1 'spalte_idx wird um 1 erhöht
    44. buf = Right(buf, Tabulator) 'buf ist nun nur noch alles rechts vom ersten Punkt
    46. Umbruch = InStr(buf, Chr(10)) 'restlicher Datenstring wird nach dem nächsten Zeilenumbruch durchsucht
    48. Absorption = Left(buf, Umbruch - 1) 'alles links vom Zeilenumbruch ist die Absorption
    49. Sheets("Tabelle1").Cells(zeile_idx, spalte_idx).Value = Absorption 'Absorption wird in Zelle C2 geschrieben
    51. buf = Right(buf, Absorption)
    53. zeile_idx = zeile_idx + 1 '
    54. spalte_idx = spalte_idx - 1 'zeile_idx und spalte_idx werden angepasst
    55. Loop
    57. End Select
    59. End Sub

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „japhwil“ ()

    japhwil schrieb:

    Von daher muss auch ein Zeilenumbruch auftauchen
    Offensichtlich tut er das wohl nicht. Oder etwas anderes kommt nicht wie erwartet.
    Wenn der Debugger doch schon an der richtigen Stelle stoppt, dann schau doch einfach deine Variablen an.
    Es wird wohl schon einen Grund geben.

    japhwil schrieb:

    Die Datenstrings sind immer identisch nach dem Schema in der Textdatei aufgebaut.
    Und da vertraust du blind drauf?
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Und da vertraust du blind drauf?

    Ich sehe nicht, was mir anderes übrig bleibt. Für mein Makro brauche ich schließlich einen "Muster-String".
    Ich habe allerdings auch schon diverse Strings mit dem Terminalprogramm aufgezeichnet und bisher immer den gleichen Aufbau erhalten.

    Tatsächlich lag es wohl an dem "-1", das habe ich jetzt einfach rausgenommen, da es ohnehin unnötig war.

    Damit ist es aber immer noch nicht geschafft... Jetzt bekomme ich einen "Laufzeitfehler 13" in Zeile 51. :thumbdown:

    Außerdem wundere ich mich, dass in meinem Excel-Sheet noch überhaupt nichts ankommt, obwohl ja eigentlich zumindest die erste Zeile schon fertig sein müsste. Oder irre ich mich da? Habe leider bis jetzt noch überhaupt keine Erfahrung mit VBA und Makros im Allgemeinen.

    Ja, musst halt die Werte prüfen, bevor du sie auf Funktionen loslässt.

    Schau Dir die Werte an und Du wirst den Fehler schon finden.

    Oben bei Ansich das Direktfenster öffnen und dann im Code

    Quellcode

    1. debug.print "Variable:" & Variable


    lässt deren Namen und Inhalt im Direktfenster ausgeben.
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    Ich habe mich jetzt nochmal ausführlich mit dem Makro auseinandergesetzt und es jetzt endlich zum Laufen gebracht.
    Im Wesentlichen lag es daran, dass ich die Right()-Funktion verwendet habe, wo ich eigentlich Mid() gebraucht hätte. So habe ich mir schon ganz am Anfang den String zerschossen...
    Dazu kamen dann noch ein paar Detailverbesserungen.

    Für alle Interessierten hier das fertige Projekt:

    Visual Basic-Quellcode

    1. Dim zeile_idx As Integer
    2. Dim spalte_idx As Integer
    3. Dim Absorption As Single
    4. Dim Zeit, s, Tabulator, Umbruch As Integer
    5. Dim buf As String
    7. Private Sub StrokeReader1_CommEvent(ByVal Evt As StrokeReaderLib.Event, ByVal data As Variant)
    9. zeile_idx = 2
    10. spalte_idx = 1
    12. Select Case Evt
    14. Case EVT_DISCONNECT '
    15. MsgBox "Keine Verbindung :(" '
    16. '
    17. Case EVT_CONNECT '
    18. MsgBox "Verbunden" '
    19. '
    20. Case EVT_DATA 'Verschiedene Events werden unterschieden
    21. buf = buf + data 'Daten vom Photometer werden als "buf" zusammengefasst
    23. s = "Ergebnis" '
    24. Ergebnis = InStr(buf, s) '
    25. buf = Mid(buf, Ergebnis + 21) '"Einleitungstext" wird abgeschnitten
    27. Do
    28. Sheets("Tabelle1").Cells(1, 1).Value = "Zeit" '
    29. Sheets("Tabelle1").Cells(1, 2).Value = "Absorption" 'Tabellenbeschriftung
    31. Tabulator = InStr(buf, vbTab) 'der Tabulator zwischen Zeitpunkt und Absorption wird gesucht
    33. Zeit = Left(buf, Tabulator - 1) 'Der Bereich links vom ersten Tabulator ist die erste Messzeit
    34. Sheets("Tabelle1").Cells(zeile_idx, spalte_idx).Value = Zeit 'Zeit wird eingetragen
    36. spalte_idx = spalte_idx + 1 'spalte_idx wird um 1 erhöht
    38. buf = Mid(buf, Tabulator + 1) 'buf ist nun nur noch alles rechts vom ersten Punkt
    40. Umbruch = InStr(buf, Chr(10)) 'restlicher Datenstring wird nach dem nächsten Zeilenumbruch durchsucht
    42. Absorption = Left(buf, Umbruch - 2) 'alles links vom Zeilenumbruch ist die Absorption
    43. Sheets("Tabelle1").Cells(zeile_idx, spalte_idx).Value = Absorption 'Absorption wird eingetragen
    45. buf = Mid(buf, Umbruch + 1)
    47. zeile_idx = zeile_idx + 1 '
    48. spalte_idx = spalte_idx - 1 'zeile_idx und spalte_idx werden angepasst
    50. If Len(buf) = 0 Then
    51. Exit Do
    52. End If
    53. Loop
    55. End Select
    57. End Sub

Facebook
Telefonspende