WinCC Advanced V17 - Excel Report by Visual Basic Script

WinCC Advanced V17 - Excel Report by Visual Basic Script
Project:
https://drive.google.com/file/d/1Z4RfPCvRAG7osjOJNsTzxUVomgLY1QH7/view?usp=sharing
Script: =========================================
Sub ExportExcel()
'Create Folder
Dim folder_y_m, folder_day, file_name, filepath, var, header
Dim fso, fso1, fso2, fso3
Dim H, Min, S, d, Mon, Y
Dim val1,val2,val3

val1= SmartTags("x1")
val2= SmartTags("x2")
val3= SmartTags("x3")

Y = Year(Date())
Mon = Month(Date())
d = Day(Date())
H = Hour(Time())
Min = Minute(Time())
S = Second(Time())
file_name = Y & "_" & Mon & "_" & d & ".csv"
'Create Folder year_month
Set fso = CreateObject("Scripting.FileSystemObject")
folder_y_m = "E:\Report_WinCC\" & Y & "_" & Mon
If Not fso.FolderExists(folder_y_m) Then
fso.CreateFolder (folder_y_m)
End If
'Create Folder day
Set fso1 = CreateObject("Scripting.FileSystemObject")
folder_day = folder_y_m & "\" & d
If Not fso1.FolderExists(folder_day) Then
fso1.CreateFolder (folder_day)
End If
'Create File Excel
Set fso2 = CreateObject("Scripting.FileSystemObject")
filepath = folder_day & "\" & file_name
If Not fso2.FileExists(filepath) Then
fso2.CreateTextFile(filepath)
'Create Header Text
Set var=CreateObject("Scripting.FileSystemObject")
Set header=var.OpenTextFile(filepath,8)
header.WriteLine ("Time, Temperature, Humidity, Pressure")
header.Close
End If
'Write Data from Tag'
Set fso3 = fso2.OpenTextFile (filepath,8,1)
fso3.WriteLine H & ":" & Min & ":" & S & "," & val1 & "," & val2 & "," & val3
fso3.Close

End Sub