Добрый день,

Использую VBA для экселя для считывания файлов

Dim Read

Set Read = CreateObject ("Scripting.FileSystemObject")
Set Data = FileSystem.OpenTextFile("C:\1\2\data.txt", 1, True)

проблема в том, что мне каждый раз приходиться писать полный путь к файлу.
у меня сам файл экселя находиться в c:\1, можно ли как нибудь сделать наподобии FileSystem.OpenTextFile("2\data.txt", 1, True) ?

Спасибо большое