open_excel.txt

Noona Test: System will automatically delete the directory of debug and release, so please do not pu

On Error GoTo ErrHandler
    Dim xlsApp As Object
    Dim xlsWB1 As Object
    Dim strFileName As String
    
    'Late binding to open an XLS file which is present on my local harddisk
    Set xlsApp = CreateObject("Excel.Application")
    xlsApp.Visible = True
    strFileName = "D:\take home\sc.xls"
    Set xlsWB1 = xlsApp.Workbooks.Open(strFileName)
    Exit Sub
ErrHandler:
    MsgBox "There is a problem while opening the xls document. " & _
    " Please ensure it is present!", vbCritical, "Error"