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

Ergebnis 1 bis 6 von 6

Thema: WinCC + Excel

  1. #1
    Registriert seit
    30.01.2009
    Beiträge
    440
    Danke
    25
    Erhielt 48 Danke für 44 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Hallo Leute,

    ich habe es in der letzen Zeit mit Hilfe des Forums schon geschafft, Werte aus einer Excel-Liste auf WinCC-Variablen zu schreiben. Klappt super.

    Jetzt benötige ich blöderweise die umgekehrte Richtung, also WinCC-Variablenwerte in Excel ablegen.

    Kann ich (wenn ja wie) mein Script hierzu entsprechend umbiegen?

    Gruß
    Move

    Script: (Werte Excel->WinCC):

    Option Explicit
    Function action
    Dim excel, wbActive, wsActive
    'Create an Excel-Application object
    Set excel = CreateObject("Excel.Application")
    excel.Visible = 0
    Set wbActive = excel.Workbooks.Open("D:\Projekt\KIS\Prognosen\KIS Wetterprognose WinCC.xls")
    Set wsActive = wbActive.Worksheets("Tabelle1")
    '----------------- WinCC Variable schreiben --------------------
    'wsActive.cells(3,2) = Zeile 3, Spalte 2
    'Temperaturwerte -> S7 schreiben
    Dim objTag
    Set objTag = HMIRuntime.Tags("Temp_00_T0_B2") ' Temperatur 0:00 Uhr
    objTag.Value = wsActive.cells(2,2).Value
    objTag.Write
    wbActive.Close True 'Exceldatei schliessen
    excel.Quit 'Excel schliessen
    Set wsActive = Nothing 'Speicher freigeben
    Set wbActive = Nothing
    Set excel = Nothing
    End Function
    Zitieren Zitieren WinCC + Excel  

  2. #2
    Registriert seit
    22.03.2007
    Ort
    Detmold (im Lipperland)
    Beiträge
    11.718
    Danke
    398
    Erhielt 2.400 Danke für 2.000 Beiträge

    Standard

    Hallo,
    ja .. das läßt sich auch umdrehen - warum auch nicht ?

    Einfach anders herum hinschreiben :
    Code:
    statt :
    objTag.Value = wsActive.cells(2,2)
    dann :
    wsActive.cells(2,2) = objTag.Value
    Gruß
    Larry

  3. Folgender Benutzer sagt Danke zu Larry Laffer für den nützlichen Beitrag:

    Move (01.06.2011)

  4. #3
    Move ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    30.01.2009
    Beiträge
    440
    Danke
    25
    Erhielt 48 Danke für 44 Beiträge

    Standard

    Hi,

    habs jetzt mal gedreht:
    aber es gibt sicher noch ein Problem mit dem Schreibbefehl?
    Meine Variable "Test_Ex_9" steht auf 45.0
    Wird das Script gestartet wird der Wert auf 0 gesetzt und in der Excel-Zelle steht nichts, auch keine Null.
    Gruß
    Move

    Dim objTag
    Set objTag = HMIRuntime.Tags("Test_Ex_9") ' Temperatur 0:00 Uhr

    wsActive.cells(2,2).Value = objTag.Value

    objTag.write ??

    wbActive.Close True 'Exceldatei schliessen
    excel.Quit 'Excel schliessen
    Set wsActive = Nothing 'Speicher freigeben
    Set wbActive = Nothing
    Set excel = Nothing

  5. #4
    Registriert seit
    22.03.2007
    Ort
    Detmold (im Lipperland)
    Beiträge
    11.718
    Danke
    398
    Erhielt 2.400 Danke für 2.000 Beiträge

    Standard

    Sorry ... ich verstehe dein Problem gerade nicht ...
    Das Ding, das im Hintergrund deinen Tag mit der SPS aktualisiert (und umgekehrt) kümmert sich da schon drum.

  6. #5
    Registriert seit
    30.03.2005
    Beiträge
    2.096
    Danke
    0
    Erhielt 673 Danke für 541 Beiträge

    Standard

    Die WinCC-Variable muss noch mit der Read-Methode gelesen werden:

    Code:
    Dim objTag 
    Set objTag = HMIRuntime.Tags("Test_Ex_9") ' Temperatur 0:00 Uhr
    objTag.Read
    wsActive.cells(2,2).Value = objTag.Value
     
    wbActive.Close True 'Exceldatei schliessen 
    excel.Quit 'Excel schliessen 
    Set wsActive = Nothing 'Speicher freigeben
    Set wbActive = Nothing
    Set excel = Nothing
    Oder:

    Code:
    Dim objTag 
    Set objTag = HMIRuntime.Tags("Test_Ex_9") ' Temperatur 0:00 Uhr
    wsActive.cells(2,2).Value = objTag.Read
     
    wbActive.Close True 'Exceldatei schliessen 
    excel.Quit 'Excel schliessen 
    Set wsActive = Nothing 'Speicher freigeben
    Set wbActive = Nothing
    Set excel = Nothing
    Gruß Kai

  7. Folgender Benutzer sagt Danke zu Kai für den nützlichen Beitrag:

    Move (01.06.2011)

  8. #6
    Move ist offline Erfahrener Benutzer
    Themenstarter
    Registriert seit
    30.01.2009
    Beiträge
    440
    Danke
    25
    Erhielt 48 Danke für 44 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Jepp,

    jetzt funzt es

    Vielen Dank für die Hilfe und schönes langes WE

    Gruß
    Move

Ähnliche Themen

  1. WINCC 7.0 Variablen in Excel?
    Von sailor im Forum HMI
    Antworten: 9
    Letzter Beitrag: 03.09.2010, 16:58
  2. WINCC 7.0 und Excel // Was ist WIZARD)
    Von sailor im Forum HMI
    Antworten: 2
    Letzter Beitrag: 12.11.2009, 12:56
  3. Diagramm in Excel aus WinCC mit VB
    Von Deyn im Forum HMI
    Antworten: 3
    Letzter Beitrag: 08.05.2009, 19:03
  4. WinCC flexible und Excel
    Von Fluffi im Forum HMI
    Antworten: 6
    Letzter Beitrag: 02.02.2008, 12:44
  5. WinCC 6.2 und Excel 2007
    Von Thorsten W. im Forum HMI
    Antworten: 0
    Letzter Beitrag: 30.01.2008, 15:22

Lesezeichen

Berechtigungen

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