Rudrani

hi,

can anybody give me some reference document regarding excel file generation and reading/writing data from Wincc to excel.

regards,

Rudrani

for writing data to excel just have to write a small global script which will create a Excel file and dump data into it on the need based.

THis is very simple to do and will not load the system. We use this technique to generate the excel based reports for the customer.



sample script for you......

Dim a
Dim objExcelApp,objExcelApp2
Dim DT
Dim DY,MNTH,YR,MNTHNM
Dim HR,MNT,SCND
Dim i,j
Dim fso, msg,fldr,ReportFolderStatus
Dim fso1, f,fName

DY=Day(Date())
MNTH=Month(Date())
YR=Year(Date())

HR=Hour(Time())
MNT=Minute(Time())
SCND=Second(Time())

MNTHNM=Month(Now)
MNTHNM=MonthName (MNTHNM,True)

DT=DY & "_" & MNTH & "_" & YR & "_" & HR & "_" & MNT & "_" & SCND

If (HMIRuntime.Tags("SHIFT_TRIGGER").Read >0) Then

Set fso = CreateObject("Scripting.FileSystemObject")

Set objExcelApp = CreateObject("Excel.Application")

objExcelApp.Visible = False

objExcelApp.Workbooks.Open "D:\BATCH_REPORT.xls"
objExcelApp.ActiveWorkbook.Save

If (fso.FolderExists("E:\REPORTS_EVEREST")) Then

If (fso.FolderExists("E:\REPORTS_EVEREST\" & MNTHNM)) Then
objExcelApp.ActiveWorkbook.Saveas "E:\REPORTS_EVEREST\" & MNTHNM & "\BATCH_REPORT_" & DT & ".XLS"
Else
Set fso1 = CreateObject("Scripting.FileSystemObject")
Set f = fso1.CreateFolder("E:\REPORTS_EVEREST\"& MNTHNM ) ' creates new folder
objExcelApp.ActiveWorkbook.Saveas "E:\REPORTS_EVEREST\" & MNTHNM & "\BATCH_REPORT_" & DT & ".XLS"
End If

Else
Set fso1 = CreateObject("Scripting.FileSystemObject")
Set f = fso1.CreateFolder("E:\REPORTS_EVEREST") ' creates new folder
Set f = fso1.CreateFolder("E:\REPORTS_EVEREST\"& MNTHNM ) ' creates new folder
objExcelApp.ActiveWorkbook.Saveas "E:\REPORTS_EVEREST\" & MNTHNM & "\BATCH_REPORT_" & DT & ".XLS"
End If

objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing

Set objExcelApp2 = CreateObject("Excel.Application")

objExcelApp2.Visible = False

objExcelApp2.Workbooks.Open "D:\BATCH_REPORT.xls"
objExcelApp2.Cells(110,8).Value =""
For i=7 To 107
For j=1 To 30
objExcelApp2.Cells(i,j).Value =""
Next
Next

objExcelApp2.ActiveWorkbook.Save
objExcelApp2.Workbooks.Close
objExcelApp2.Quit
Set objExcelApp2 =Nothing

HMIRuntime.Tags("SHIFT_TRIGGER").Write 0
'MsgBox "File saved successfully."
End If


hope this helps you.....

in case for more details feel free to ask.

Hello PPPD,

I use the same script in vb script. But I don't get anything. Can you please help me to know, where should I change inside? I also want to inform you that, in my laptop, I have only C and D drive. So, should I have to make change in it? Please inform me.

Thanks in advance.

Salman

 Anyone got it work??

Salman047

Hello PPPD,

I use the same script in vb script. But I don't get anything. Can you please help me to know, where should I change inside? I also want to inform you that, in my laptop, I have only C and D drive. So, should I have to make change in it? Please inform me.

Thanks in advance.

Salman