Excel-Macro aus Slript

ich möchte gerne aus einem Skript in WinCCflex eine Exceltabelle laden und dort ein Macro ausführen.

Wie wird das geamcht?

Welches WinCC Flex?

Auf einem Panel oder die PC-Runtime?

Hallo mm76

ich arbeite mit WinCCflex 2008 SP2 auf einem IPC mit WinAC

Leider konnte ich nicht früher antworten, da ich auswärts war.

Hallo,

sofern auf dem IPC klarerweise Excel installiert ist, sollte der Zugriff auf Excel funktionieren.

Ich hab das vor Jahren schon mal mit WinCC Flex gemacht, finde den Code leider nicht mehr, da hab ich die Makrosicherheit runterschrauben müssen, damit die Abfrage beim Öffnen der Excel-Datei nicht kommt.

In der Mappe waren Macros, die ich aber nicht direkt aus WinCC Flex aufgerufen habe, es könnte aber funktionieren.

Anbei ein Codeauszug aus WinCC 6.2 bei dem ich Protokolldaten in einer Excel-Datei exportiere:

Sub export()
 
 Dim objApp
 
 'Excel starten und anzeigen
  Set objApp = CreateObject("Excel.Application")
  objApp.Visible = True

 'Excel-Mappe mit Vorlage öffnen und Tabelle anwählen
  objApp.Workbooks.Open HMIRuntime.Tags("Excel_Template_Pfad").Read(1) & "Export_Template.xls"
 objApp.ActiveWorkBook.Sheets(tab_nam).Select
 
 'Datei speichern (Datum + Nummer + Auswertung)
 objApp.Application.DisplayAlerts = False
 objApp.ActiveWorkbook.SaveAs "D:\Excel_Export\" & s_dat & "_S" & s_num & "_" & tab_nam
 'Nicht benötigte Tabellen löschen
 While objApp.ActiveWorkbook.Sheets.Count > 1
  If objApp.ActiveWorkBook.Sheets(1).Name <> tab_nam Then
   objApp.ActiveWorkBook.Sheets(1).Delete
  Else
   objApp.ActiveWorkBook.Sheets(2).Delete
  End If
 Wend
 objApp.Application.DisplayAlerts = True
  
 'Anzahl der Zeilen/Spalten auswerten
  cnt_row = objApp.ActiveSheet.UsedRange.Rows.Count
  cnt_col = objApp.ActiveSheet.UsedRange.Columns.Count   

 'Alle Zellen abarbeiten
    For i = 1 To cnt_row
     For j = 1 To cnt_col
   'Wert der Zelle zwischenspeichern
      cell_value = UCase(objApp.Cells(i, j).Value)
      'Handelt es sich um ein Variablen-Feld?
      If Left(cell_value, 4) = "TAB_" Then
       'Variable in Zwischenspeicher suchen
       For k = 1 To cnt_var
        If var_value(k, 1) = cell_value Then
         '.. und Variablen-Wert eintragen
         objApp.Cells(i, j).Value = var_value(k, 2)
         Exit For
        End If
       Next
      End If
     Next
    Next
   
 'Datei speichern (Datum + Nummer + Auswertung)
 objApp.Application.DisplayAlerts = False
 objApp.ActiveWorkbook.Save
 objApp.Application.DisplayAlerts = True
 
 'Excel-Mappe schließen
  objApp.Workbooks.Close
  objApp.Quit
   
  'Speicher freigeben 
 Set objApp = Nothing
 
Exit Sub

Vielleicht hilfts ja.

Mfg

mm67

Hallo mm76,

ich bedanke mich für Dein Beispiel, aber das alles verwende ich schon in ähnlicher Weise. Ich möchte ein Macro, dasim Excel-workbook programmiert ist (z.B. mit Macro aufzeichnen erstellt) aus meinem Skript aufrufen.

Hallo,

dein Ansinnen ist mir schon klar. Wie gesagt ein Script in Excel habe ich noch nie von extern aufgerufen.

Du könntest es an das Öffnen des Dokuments anhängen oder wenn es geht an Zelle hängen, die du dann als Trigger mit WinCC Flex beschreibst...

Vielleicht könnte es so ja klappen.

Mfg
mm76