UFT Code#5: XLS File Handling

To create and save a workbook irrespective of whether it exists already, or not -

Set objXLs = CreateObject("Excel.Application")    'Creates an Excel Object
objXLs.Visible = true                  
objXLs.DisplayAlerts = false                    'There are no display alerts.
Set myXLs = objXLs.Workbooks.Add
Set sheet1 = myXLs.Sheets.Add
sheet1.Name = "Test1"
sheet1.cells(2,3).Value = "city"
filePath = "C:\Pharmacy\snap3.png"
linkName = "Click Here"
sheet1.cells(1,1).Value = "=hyperLink(" &chr(34) & filePath &chr(34) & "," &chr(34)& linkName &chr(34)& ")"
myXLs.SaveAs "C:\Pharmacy\App.xlsx"
'To delete the created sheet
sheet1.Delete
======================******************************======================