-> Hier kostenlos registrieren
Hallo,
Unter Windows 10 lief der Skript noch ohne Probleme.
Es sollte ein ExplorerFenster, wo sich die Trendx.ini Daten befinden, geöffnet werden.
Dann kann ein Trendx.ini gewählt werden, welches dann das WinCC OnlineTtrendControl,
mit den Einstellungen versorgt.
Jetzt kommt im Skriptdiagnosefenster ein Fehler zu folgender Zeile:
Set objDLG = CreateObject("MsComDlg.CommonDialog")
Kennt jemand eine Lösung dafür?
'Open common dialog For save config file
Set objScreen = HMIRuntime.Screens(1)
Set objDLG = CreateObject("MsComDlg.CommonDialog")
If objDLG Is Nothing Then
MsgBox("Cannot open file dialog. Microsoft Common Dialog Control is not available.")
End If
Set objStaticText1 = ScreenItems("ST_Historik_Konfiguration")
objDLG.Filename = ""
objDLG.Filter = objStaticText1.Text & " (*.ini)|*.ini"
objDLG.DialogTitle = objStaticText1.Text & " - " & Item.Text
objDLG.InitDir = strFolder
objDLG.FilterIndex = 2
objDLG.MaxFileSize = 260
objDLG.CancelError = True
objDLG.Flags = cdlOFNNoChangeDir Or cdlOFNHelpButton
objDLG.ShowOpen
strFilename = objDLG.Filename
Set objDLG = Nothing
Vielen Dank
Unter Windows 10 lief der Skript noch ohne Probleme.
Es sollte ein ExplorerFenster, wo sich die Trendx.ini Daten befinden, geöffnet werden.
Dann kann ein Trendx.ini gewählt werden, welches dann das WinCC OnlineTtrendControl,
mit den Einstellungen versorgt.
Jetzt kommt im Skriptdiagnosefenster ein Fehler zu folgender Zeile:
Set objDLG = CreateObject("MsComDlg.CommonDialog")
Kennt jemand eine Lösung dafür?
'Open common dialog For save config file
Set objScreen = HMIRuntime.Screens(1)
Set objDLG = CreateObject("MsComDlg.CommonDialog")
If objDLG Is Nothing Then
MsgBox("Cannot open file dialog. Microsoft Common Dialog Control is not available.")
End If
Set objStaticText1 = ScreenItems("ST_Historik_Konfiguration")
objDLG.Filename = ""
objDLG.Filter = objStaticText1.Text & " (*.ini)|*.ini"
objDLG.DialogTitle = objStaticText1.Text & " - " & Item.Text
objDLG.InitDir = strFolder
objDLG.FilterIndex = 2
objDLG.MaxFileSize = 260
objDLG.CancelError = True
objDLG.Flags = cdlOFNNoChangeDir Or cdlOFNHelpButton
objDLG.ShowOpen
strFilename = objDLG.Filename
Set objDLG = Nothing
Vielen Dank