создание относительного пути в файле .vbs

Question

У меня есть PDF-файл, созданный Latex, который содержит гиперссылки для открытия файла Excel (Excel 2003). Я разместил вопрос на форумах Latex в поле ввода описания ссылки, чтобы я мог сделать так, чтобы каждая ссылка открывала файл Excel в определенной ячейке; но никто не мог дать мне ответ. Я нашел ответ от brettdj в описании ссылки здесь

который использует файл VBS, чтобы открыть указанную ячейку в файле Excel. Проблема в том, что местоположение файла (в strFileName =) является абсолютным, поэтому, когда я беру файл VBS и Excel в другую папку

или на другой компьютер, ссылка не работает; и отображается сообщение "файл не найден".

Есть ли способ сделать это, или сделать путь к файлу Excel относительно того, где находится файл VBS; так что когда VBS

и файлы Excel перемещаются в другое место, где файл еще можно открыть.

Я разместил этот вопрос в описании ссылки здесь, но я не получил ответа

Answer 1

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim CurrentDirectory
CurrentDirectory = objFSO.GetAbsolutePathName(".")

Я сохранил VBS как C:\Users\Jonno\Documents\test.vbs - он выдает выходные данные C:\Users\Jonno\Documents . Чтобы использовать это положить что-то вроде

strFileName = CurrentDirectory & "\test.xlsx"