VB operation EXCEL write

' SSOService Web service object steps
login = WebService("SSOService").login(XMLWarehouse("SI_Login"))
'login= replace (login,"<?xml version="+Chr(34)+"1.0"+Chr( 34)+" encoding="+Chr(34)+"UTF-8"+Chr(34)+"?>","")

ResFileName=DataTable("ResFileName",dtGlobalSheet)
ResSheetName=DataTable("ResSheetName", dtGlobalSheet)
set xlsobj=createobject("excel.application") 'Create excel object
set xlsbook=xlsobj.Workbooks.Open("D:\liu-backup\QTPtest\TestRes\neimeng\"+ResFileName+".xlsx") 'Open The specified excel file
Set xlssheet=xlsbook.Sheets(ResSheetName) 'Set the operation sheet object, you can use index-start from 1
xlssheet.cells(1,1)="login send message" 'Assign the first row of the first column
xlssheet.cells(1,2)="login returns the message"
xlssheet.cells(2,1)=XMLWarehouse("SI_Login")
xlssheet.cells(2,2)=login
xlsbook.Save      '保存excel文件 

xlsbook.Close   '关闭
xlsobj.Quit
set xlssheet = Nothing
Set xlsbook = Nothing
Set xlsobj = Nothing


'authen = WebService("SSOService").authen("string (Autogenerated)")
'getAccount = WebService("SSOService").getAccount("string (Autogenerated)")
'pulse = WebService("SSOService").pulse("string (Autogenerated)")
'msgbox login