Dear damayanti,

for that just define some object assign them your required text & then write them in your excel sheet.

Try It should always write text “Batch No” in each created file in cell(4,5). Presently I don’t have wincc flex so can’t try.

Dim wsh, XLSrunning, TargetBookrunning, objExcel, objWorkbook, TheTargetBook, TheTargetBookName
Dim TheCount, fso
Dim d, m, y, dte, tme
Dim h, mn, s, hifield1

Const xlExcel8 = 56

d=Day(Now)
m=Month(Now)
y=Year(Now)
h=Hour(Now)
mn=Minute(Now)
s=Second(Now)

dte=d & "." & m & "." & y
tme=h & "." & mn & "." & s

hifield1=Batch No

Set wsh = CreateObject("WScript.Shell")
TheTargetBookName = "report "& dte &"_"& tme &".xls"
TheTargetBook = "c:\test\" & TheTargetBookName

'Error Routine
On Error Resume Next

'Create Object
Set fso = CreateObject("Scripting.FileSystemObject")

If Err.Number <> 0 Then
ShowSystemAlarm "Error #" & CStr(Err.Number) & " " & Err.Description
Err.Clear
Exit Sub
End If

TheCount = GetObject("winmgmts:root\CIMV2").ExecQuery("SELECT * FROM Win32_Process WHERE Name='EXCEL.EXE'").Count

If TheCount > 0 Then
Set objExcel = GetObject(,"Excel.Application")
' Using GetObject(,"Excel.Application") to point to the running Excel Application.
Else
Set objExcel = CreateObject("Excel.Application")
End If

' Create a new workbook.
objExcel.Workbooks.Add
objExcel.Visible = True
objExcel.ScreenUpdating = True
objExcel.DisplayAlerts = True

' Bind To worksheet.
Set objWorkbook = objExcel.ActiveWorkbook.Worksheets(1)

objWorkbook.cells(4,2).value = SmartTags("iTemperature")
objWorkbook.cells(4,3).value = SmartTags("iPressure")
objWorkbook.cells(4,4).value = SmartTags("szMaterial")

objWorkbook.cells(4,5).value = hifield1

objExcel.ActiveWorkbook.SaveAs TheTargetBook, xlExcel8
objExcel.ActiveWorkbook.Close

Set objWorkbook = Nothing
'objExcel.Quit
Set objExcel = Nothing
Set wsh = Nothing
'******************************************************************************

ShowSystemAlarm"Data Write Successful"