Hello. I have searched through the forum hunting a script that can generate a csv-file with columns chartname, tagname and value for all ocm-parameters.
Reason is that i want to be able to compare machine parameters to baseline.

Is it possible? Is there one? Is there a better way? Can someone point me in the right direction?

Cheers //

I have with help put together this script to export parameters. It seems the chart is not found though. What can i be missing? The name put in wrong? I will add wincc explorer export as attachment.

Log spits out:

Script has started - Version 2.2
Header written to CSV file
Running on Panel Runtime
Error initializing HMICharts object:
Error retrieving chart object: Variable is undefined

Dim fso, outputFile, logFile, chartName, chart, parameterList, parameter
chartName = "testet" ' The name of the chart

' Create log file
Set fso = CreateObject("Scripting.FileSystemObject")
Set logFile = fso.CreateTextFile("C:\temp\log.txt", True) ' Specify the path to your log file

' Write to log file
logFile.WriteLine "Script has started - Version 2.2"
MsgBox "Script has started - Version 2.2", vbInformation

Set outputFile = fso.CreateTextFile("C:\temp\output.csv", True) ' Specify the path to your CSV file

' Write the header
outputFile.WriteLine "Parameter Name,Parameter Value"
logFile.WriteLine "Header written to CSV file"

' Check for PC or Panel runtime
On Error Resume Next
Set WinCC = GetObject("WinCC.Runtime")
If Err.Number = 0 Then
logFile.WriteLine "Running on PC Runtime"
MsgBox "Running on PC Runtime", vbInformation
Else
logFile.WriteLine "Running on Panel Runtime"
MsgBox "Running on Panel Runtime", vbInformation
Set WinCC = Nothing
End If
On Error GoTo 0

' Verify HMICharts object
On Error Resume Next
Set HMICharts = GetObject("WinCC.AS01_prg.Charts") ' Adjust with the correct project name
If Err.Number <> 0 Then
logFile.WriteLine "Error initializing HMICharts object: " & Err.Description
MsgBox "Error initializing HMICharts object: " & Err.Description, vbCritical
Err.Clear
Else
logFile.WriteLine "HMICharts object initialized successfully"
MsgBox "HMICharts object initialized successfully", vbInformation
End If
On Error GoTo 0

' Attempt to get the chart object
On Error Resume Next
Set chart = HMICharts(chartName)
If Err.Number <> 0 Then
logFile.WriteLine "Error retrieving chart object: " & Err.Description
MsgBox "Error retrieving chart object: " & Err.Description, vbCritical
Err.Clear
Else
logFile.WriteLine "Chart object retrieved: " & chartName
MsgBox "Chart object retrieved: " & chartName, vbInformation
End If
On Error GoTo 0

' Check if chart is retrieved
If chart Is Nothing Then
logFile.WriteLine "Chart not found or error accessing chart: " & chartName
MsgBox "Chart not found or error accessing chart: " & chartName, vbCritical
Else
logFile.WriteLine "Chart found: " & chartName
MsgBox "Chart found: " & chartName, vbInformation

' Attempt to get the parameters
On Error Resume Next
Set parameterList = chart.Parameters
If Err.Number <> 0 Then
logFile.WriteLine "Error retrieving parameters: " & Err.Description
MsgBox "Error retrieving parameters: " & Err.Description, vbCritical
Err.Clear
Else
logFile.WriteLine "Parameters object retrieved for chart: " & chartName
MsgBox "Parameters object retrieved for chart: " & chartName, vbInformation
End If
On Error GoTo 0

' Check if parameters are retrieved
If parameterList Is Nothing Then
logFile.WriteLine "No parameters found or error accessing parameters for chart: " & chartName
MsgBox "No parameters found or error accessing parameters for chart: " & chartName, vbCritical
Else
logFile.WriteLine "Parameters found for chart: " & chartName
MsgBox "Parameters found for chart: " & chartName, vbInformation

' Loop through each parameter and write to the CSV file
For Each parameter In parameterList
logFile.WriteLine "Writing parameter: " & parameter.Name & ", " & parameter.Value
outputFile.WriteLine parameter.Name & "," & parameter.Value
Next
End If
End If

' Clean up
outputFile.Close
logFile.WriteLine "Script execution completed - Version 2.2"
logFile.Close
Set outputFile = Nothing
Set logFile = Nothing
Set fso = Nothing
Set chart = Nothing
Set parameterList = Nothing

MsgBox "Script execution completed. Check log file for details. Version 2.2", vbInformation