Sub OpenFileFromLoadData()
   Dim sPath As String
   Dim fs As Object
   Dim SaveWorkBook As Workbook
  
   Set fs = CreateObject("Scripting.FileSystemObject")
   Set eWindow = CreateObject("Excel.Application")

'   sPath = Workbooks("Test.xls").Path
'   sPath = sPath + "\" + "FileOpen.xls"
    sPath = ThisWorkbook.Path + "\" + "FileOpen.xls"
   If Not fs.FileExists(sPath) Then
      eWindow.Application.Workbooks.Add
      Set SaveWorkBook = eWindow.Application.ActiveWorkbook
      SaveWorkBook.SaveAs (sPath)
   Else
      eWindow.Application.Workbooks.Open (sPath)
      Set SaveWorkBook = eWindow.Application.ActiveWorkbook
   End If
   'Делаю некие операции с файлом XLS...
   SaveWorkBook.Save
   SaveWorkBook.Close
    Set eWindow = Nothing
End Sub