writing to html file.

myLocation="C:\Users\Toshiba\ankit\sample.html"

'mylog="testddhbf"
'mystatus="pass"
sFile="C:\Users\Toshiba\ankit\log.txt"

Call ToTextFile(myLocation)
Call ToTextFile1(sFile)
Call addHeader(myLocation)

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Users\Toshiba\ankit\Book1.xlsx")

intRow = 1

Do Until objExcel.Cells(intRow,1).Value = ""

a = objExcel.Cells(intRow, 1).Value
b = objExcel.Cells(intRow, 2).Value
c = objExcel.Cells(intRow, 3).Value
d= objExcel.Cells(intRow, 4).Value
e = objExcel.Cells(intRow, 5).Value
'value of second and third parameter in updagelog need to be set post processing of tescase
Call updateLog(myLocation,"Page:Last login container is present","pass", "" & a & "" , "" & b & "","" & c & "","" & d & "","" & e & "")

intRow = intRow 1

Loop

objExcel.Quit
Call appendToTextFile(sFile, sText)

Function ToTextFile(myLocation)

Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFile = FSO.CreateTextFile(myLocation, True)
set FSO=nothing
set oFile=nothing
End Function

Function ToTextFile1(sFile)

Set FSO = CreateObject("Scripting.FileSystemObject")
Set oFile = FSO.CreateTextFile(sFile, True)
Set FSO=nothing
set oFile=nothing
End Function

Function appendToTextFile(sFile, sText)

Set FSO1 = CreateObject("Scripting.FileSystemObject")
Set oFile1 = FSO1.OpenTextFile(sFile, 8, true)
oFile1.WriteLine (sText)
oFile1.Close
Set FSO = nothing
Set FSO1 = nothing
Set oFile = nothing
Set oFile1 = nothing
Set FSO2 = nothing
Set oFile2 = nothing
End Function

Function addHeader(myLocation)
appendToTextFile myLocation, "

myCaseId

testcase name

stepstobe performed

expectedresult

actual result header

Log

Status

"
End Function

Function updateLog (myLocation, myLog, myStatus,myCaseId,myCaseName,myStep,myExpRes,myActRes)
Dim myPass
Dim myFail
myPass = " PASSED "
myFail = " FAILED "

myVerify = " PASSED "