Здесь приведен пример открытия файла из той же папки, в которой расположен файл формата .xls с VBA-кодом (ThisWorkbook.Path)
Sub OpenAndCloseFile()
Dim filePath As String 'путь к файлу
Dim FileName As String 'имя файла
Dim wb As Workbook
Dim ws As Worksheet
FileName = "MyFileName.xls" 'присвоено имя файлу
filePath = ThisWorkbook.Path & Application.PathSeparator & FileName 'присвоен путь к файлу
Set wb = Application.Workbooks.Open(filePath, False, True) 'открыть
Set ws = wb.Sheets(1)
'здесь может быть код для работы с файлом
wb.Close (False) 'закрыть
MsgBox FileName & " is closed", vbOKOnly
End Sub
См. принимаемые значения переменных, включая ThisWorkbook.Path, с помощью Окна Immediate,
например:
