AutoGen_3037887

i'm try to create excel report for vb script but only create the folder dosen't create the excel 

Sub OnClick(ByVal item)

'Tip:

' 1. Use the <CTRL+SPACE> or <CTRL+I> shortcut to open a list of all objects and functions

' 2. Write the code using the HMI Runtime object.

'  Example: HmiRuntime.Screens("Screen_1").

' 3. Use the <CTRL+J> shortcut to create an object reference.

'Write the code as of this position:

Dim folderway,objectway, filename, file, fileeits, apendix, row

folderway = "C:\Users\PDE-Automation-ACER\Music\report"

Set objectway = CreateObject("scripting.filesystemobject")

If Not objectway.FolderExists(folderway) Then

objectway.CreateFolder folderway

End  If

filename = "report.xlsx"

Set file = CreateObject("scripting.filesystemoject")

fileeits = file.fileeits(folderway & "\" & filename)

If fileeits = False Then

file.createtetfile(folderway &"\"& filename)

Set file = Nothing

End  If

End Sub

request to solve this problem 

------------------------------------------------------------------------------------------
Split from WinCC RT Professional (TIA Portal v17) Historical Data export in Excel format.

What device model are you using?

Hello AutoGen_3037887

I think the filesysem and file object can only create textbased files.

An Excel File you can only create with MS Automation Interface.

- Using CSV File (Textbased):

https://support.industry.siemens.com/cs/ww/en/view/106501825

- Using MS Automation Interface (MS Excel has to be installed on the System in 32 bit):

https://support.industry.siemens.com/cs/ww/en/view/109792585/139193407371

(this example is from WinCC V7 Manual, but it works with a few changes also with WinCC Advanced RT or WinCC Professional RT)

Bye Murof