ole_excel.WorkBooks.Open(filename) is not working 64bit ms Office 2013

Hi

Please I am looking for your help to fix the problem while working with 64bit windows 7  with office 2013  , the following command is not working

Please help  it would be very appreciate.  The following is my code

ole_excel = CREATE OLEObject li_rtn = ole_excel.ConnectToNewObject("excel.application") IF li_rtn  = 0  THEN l_str_dir = is_filename li_nextrow = l_lng_rowcnt + 1 li_lastrow = li_nextrow + 1 ole_excel.visible = true ole_excel.Application.DisplayAlerts = False ole_excel.WorkBooks.Open(l_str_dir)  //  Error is coming here ole_workbook = ole_excel.application.workbooks(1) ole_worksheet = ole_workbook.worksheets(1) End if

Please help

With Thanks Polachan