Zuviel Werbung? - > Hier kostenlos beim SPS-Forum registrieren

Seite 1 von 2 12 LetzteLetzte
Ergebnis 1 bis 10 von 12

Thema: rs 232 nach Excel in VBA

  1. #1
    Registriert seit
    14.01.2004
    Ort
    Hattorf
    Beiträge
    3.201
    Danke
    297
    Erhielt 311 Danke für 266 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    hallo,
    wie bekommt man es hin, das man z.b. von einem messgerät über rs232 die daten direkt nach excel bekommt????? das messgerät sendet die daten im textformat und braucht zum anstoss ein "m", mscomm wie in normal vba haut nicht hin, da ich das plugin nicht installiert bekomme.

    und da ich gerade dabei bin, noch eine frage: mscomm sendet alles in text code, da aber manche messgeräte daten haben wollen, geht weder auslesen noch steuern.

    das alles sollte in vba doch machbar sein, betriebssystem win 2000 und xp.
    wer weiss rat????
    mfg
    dietmar




    wer sorgen hat, hat auch likör.
    Zitieren Zitieren rs 232 nach Excel in VBA  

  2. #2
    Registriert seit
    11.07.2004
    Beiträge
    1.597
    Danke
    10
    Erhielt 213 Danke für 183 Beiträge

    Standard

    Entweder eine Exe schreiben welche im CSV-Format speichert. Dies läßt sich dann im Excel aufmachen. Alternativ eine Exe schreiben welche per DDE direkt ins Excel-Sheet schreibt.

    Sollte dann ungefähr so aussehen:

    Code:
    Private Sub Form_Load()
    
    'for file read/write
    CommonDialog1.FileName = "C:\Daten\Messdaten.xls"
    
    'Start Excel and open new spreadsheet
    Set exlApp = New Excel.Application
    exlApp.Workbooks.Add
    Set exlWSheet = exlApp.Workbooks(1).Worksheets(1)
    exlApp.Visible = True
    exlRow = 1
    exlCol = 1
    
    End Sub
    
    
    
    Private Sub Form_Unload(Cancel As Integer)
    
    On Error GoTo exlerror
    
    Set exlWSheet = Nothing
    'CommonDialog1.ShowSave
    'exlApp.Workbooks(1).SaveAs filename
    exlApp.Quit
    Set exlApp = Nothing
    End
    
    exlerror:
        'do NOTHING
        End
    End Sub
    
    
    Private Sub wsTCPDevice_DataArrival(ByVal bytesTotal As Long)
    
    Dim str As String
    
    str = ""
        
    wsTCPDevice.GetData str
    putDataInExcel (str)
    
    End Sub
    
    
    Private Function putDataInExcel(data As String)
    'Called from wsTCPDevice_DataArrival
    'parses out data from In-Sight and puts it directly into excel spreadsheet
    
    On Error GoTo excelError
    
    Dim index As Integer
    'Dim dataval As String
    Dim delim As String
    Dim term As String
    term = vbCrLf
    delim = txtDelimiter
    
    'reset exlRow
    exlRow = 1
    
    'get index of first delimiter
    index = InStr(data, delim)
    While index <> 0
        'pick off data and put into excel
        exlWSheet.Cells&#40;exlCol, exlRow&#41; = Left&#40;data, index - 1&#41;
        'trim data off string
        data = Mid&#40;data, index + 1&#41;
        exlRow = exlRow + 1
        index = InStr&#40;data, delim&#41;
    Wend
    'trim off termininator and
    'get last piece of data into excel
    exlWSheet.Cells&#40;exlCol, exlRow&#41; = Mid&#40;data, index + 1, InStr&#40;data, term&#41; - 1&#41;
    
    'add dateStamp if box is checked
    If chkDateStamp.Value = 1 Then
        exlRow = exlRow + 1
        exlWSheet.Cells&#40;exlCol, exlRow&#41; = Now
    End If
    
    exlCol = exlCol + 1
    Exit Function
    
    excelError&#58;
        'Excel is probably closed
        MsgBox "Error&#58; Excel was shut down", , "Error&#58; " & Err.number & " " & Err.description
    
    End Function
    Der Code stammt der Faulheit halber aus einem Beispiel-Programm von Cognex, welches Daten per TCP/IP empfängt und in ein Excel-Sheet schreibt. Der Teil "Private Sub wsTCPDevice_DataArrival" muß in Deinem Fall durch die Mimik rund um die serielle Schnittstelle ersetzt werden.

  3. #3
    lorenz2512 ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    14.01.2004
    Ort
    Hattorf
    Beiträge
    3.201
    Danke
    297
    Erhielt 311 Danke für 266 Beiträge

    Standard

    hallo chefchen,
    das trifft die sache nicht genau, es geht um die komunikation zur rs232 zu excel.
    mfg
    dietmar






    netzausfall am morgen bringt kummer und sorgen

  4. #4
    Registriert seit
    30.08.2003
    Beiträge
    2.196
    Danke
    30
    Erhielt 258 Danke für 229 Beiträge

    Standard

    Hallo Dietmar,

    ich hab da was um aus Excel Daten seriell zu senden... geht sicher auch in die andere Richtung. Kann aber erst morgen gucken.

    MfG
    André Räppel
    Zitieren Zitieren Excel  

  5. #5
    lorenz2512 ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    14.01.2004
    Ort
    Hattorf
    Beiträge
    3.201
    Danke
    297
    Erhielt 311 Danke für 266 Beiträge

    Standard

    hallo,
    kennt das jemand ???? taucht das was ????
    MSR mit Word und Excel
    Artikelnummer 9783772340949
    ISBN [ISBN]
    Autor H.J. Berndt / B. Kainka
    Seiten 267
    Serie Franzis PC & Elektronik


    mfg
    dietmar


    Lache nie über die Dummheit der anderen. Sie ist deine Chance.

  6. #6
    Registriert seit
    07.03.2004
    Beiträge
    4.369
    Danke
    946
    Erhielt 1.158 Danke für 831 Beiträge

    Standard

    If you open your Mind too much, your Brain will fall out.

  7. #7
    lorenz2512 ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    14.01.2004
    Ort
    Hattorf
    Beiträge
    3.201
    Danke
    297
    Erhielt 311 Danke für 266 Beiträge

    Standard

    Vielen Dank Zotos,
    in der Zwischenzeit hab ich mir VB PRO zugelegt und seitdem kann ich auch auf MSCOMM zugreifen, aber werde ich mal ausprobieren denn nicht alle haben VB PRO.

    Danke


    dietmar

  8. #8
    Registriert seit
    11.06.2005
    Beiträge
    144
    Danke
    1
    Erhielt 1 Danke für 1 Beitrag

    Standard

    Servus,

    ich bin's nochmal
    Hätte vielleicht noch ne alternative für dich:

    Das Programm nennt sich Profilab-expert
    damit kann man schon sehr viele nützliche Sachen
    machen (was COM und USB betrifft)
    Die haben auf ihrer Website auch andere nützliche
    Programme
    Ich glaube es gibt von allen Progs ne
    30 Tage Testversion
    , aber da musst du selber mal schauen

    http://www.abacom-online.de

    MfG Unreal

    P.S.: kann sein, daß es für deine Anwendung nicht gerade passend ist,
    aber reinschauen lohnt sich, wenn du das Programm noch nicht kennst

  9. #9
    lorenz2512 ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    14.01.2004
    Ort
    Hattorf
    Beiträge
    3.201
    Danke
    297
    Erhielt 311 Danke für 266 Beiträge

    Standard

    Hallo,
    da ich Dasylab am laufen habe weiß ich was Du meinst, ja mit solchen Programmen läßt sich manches anstellen, alles was eine serielle Schnittstelle hat läßt sich anbinden (dauert manchmal). Ich hatte zuerst solche Programme wie WIN Wedge, Windmill... am start, aber die Doku ist Besche...den (1 zu 1 aus der Doku genommen, und geht nicht).
    Aber hier ging es darum nach Excel von Messgerät und oder Barcodescanner Daten zu importieren und für einfache ASCII Codes ist MSCOM gut. Es gibt auch sehr gute freie RS232 Treiber, bloß andere sollen ja auch mit klar kommen.
    Ich merke schon Du bist auch dauernt auf der Suche nach guter Soft, und wirst mir noch gute Tips geben können.

    mfg

    dietmar

  10. #10
    Anonymous Gast

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Ja Mscom deckt das meiste ab, aber gibt es nur bei VB pro
    Aber der RS232 Treiber von Kanika ist auch nicht schlecht.

    Gruß

    Jonko

Ähnliche Themen

  1. Dateikonvertierung von Excel nach S5 SEQ
    Von Uwe16 im Forum Simatic
    Antworten: 3
    Letzter Beitrag: 17.06.2010, 15:46
  2. Zuli nach Excel
    Von RMol im Forum Simatic
    Antworten: 4
    Letzter Beitrag: 30.07.2007, 23:57
  3. Epxort nach Excel
    Von jackie270 im Forum Simatic
    Antworten: 3
    Letzter Beitrag: 12.12.2006, 19:42
  4. S7-200 Daten nach Excel?
    Von schnappmatik im Forum Simatic
    Antworten: 4
    Letzter Beitrag: 22.03.2006, 17:26
  5. Export DB aus Step7 nach Excel
    Von Anonymous im Forum Simatic
    Antworten: 23
    Letzter Beitrag: 22.09.2005, 12:02

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •