Parent page: Service Functions – Excel (QTP, VBScript)

Description

Check the file exists - Create an instance of Excel by using COM - open (load) file

Dim XLHandle, XLBook
Public Function OpenWorkbook(ByVal sFileName)
 Dim FSO, boolRC
 Set FSO = CreateObject("Scripting.FileSystemObject")
 boolRC = FSO.FileExists(sFileName)
 Set FSO = Nothing
 If Not boolRC Then
  OpenWorkbook = FALSE
  Exit Function
 End If
 Set XLHandle =  CreateObject("Excel.Application")
 XLHandle.DisplayAlerts = False
 Set XLBook = XLHandle.WorkBooks.Open(sFileName)
OpenWorkbook = TRUE
End Function