Hallo,

ich versuche Daten in eine Excel Datei zu speichern. Der Bediener soll dabei den Ablage ort und Dateiname selber wählen können.

Ich habe das unter einer älteren Version und auf Win7 mit  MSComDlg.CommonDialog gelmacht und das funktioniert auch sehr gut.

Das funktioniert aber wohl auf Win10 nicht mehr (laut google).

Alternativ geht das ja auch recht einfach mit GetSaveAsFilename

Das Grundscript sieht so aus:

Set objExcel = CreateObject("Excel.Application")
With objExcel
.Visible = 0
filename = .Application.GetSaveAsFilename()
End With

Leider öffnet dabei das SaveSa -Popup im Hintergrund und die Filterfunktion bekomme ich auch nicht hin.

Hat jemand eine Idee oder Lösung wie man im Windows Style Dateinamen und Pfad in der Runtime eingeben kann?

Irgendwie stehe ich auf dem Schlauch!

Vielen Dank für die Hilfe

Hallo HM73,

hier ein Beispiel für eine csv Datei

Wie kann ich Runtime-Daten von WinCC exportieren und wieder importieren?
Link:http://support.automation.siemens.com/WW/view/de/850338

Mfg

schufri

Das Lesen und Schreiben der Variablen funktioniert ohne Probleme. Was jedoch nicht geht ist der Aufruf de SaveAs Dialog um den Dateinamen und Ordner in der Runtime eingeben zu können.

Witzig ist, das der SaveAs Dialog als Word-Application funktioniert...

Wie gesagt

Set objExcel = CreateObject("Excel.Application")
With objExcel
.Visible = 0
filename = .Application.GetSaveAsFilename()
End With

geht nicht!

Set objExcel = CreateObject("Word.Application")
With objExcel
.Visible = 0
filename = .Application.GetSaveAsFilename()
End With

geht!

Hallo HM73,

ich weiß nicht ob dir das hilft oder ob das deinen Vorstellungen entspricht, aber ich habe das mal so gemacht:

If Not fso.FileExists(HMIRuntime.SmartTags("FileName")) Then
fso.CreateTextFile HMIRuntime.SmartTags("FileName")
End If

 "FileName" ist bei mir eine WString Variable gewesen. Ich hatte in meiner Runtime dann einfach ein E/A Feld und dort diese Variable hinterlegt... Der Nutzer musste dann in dem Feld seinen Pfad und den Namen eingeben. Also z.B. so: C:\Users\mustermann\Desktop\Datei.csv