criando um caminho relativo no arquivo .vbs

Question

Eu tenho um arquivo pdf, gerado pelo Latex, que contém hyperlinks para abrir um arquivo excel (excel 2003). Eu postei uma pergunta nos fóruns do Latex em insira a descrição do link aqui  para que eu possa fazer cada link abre o arquivo excel em uma célula específica; mas ninguém poderia me dar a resposta. Eu encontrei uma resposta por brettdj em insira a descrição do link aqui

que usa um arquivo vbs para abrir uma célula específica no arquivo excel. O problema é que o local do arquivo (em strFileName =) é um absoluto, então quando eu levo o arquivo vbs e excel para outra pasta

ou para outro computador, o link não funciona; e uma mensagem "arquivo não encontrado" é exibida.

Existe uma maneira de fazer isso, ou fazer o caminho para o arquivo excel em relação ao local onde o arquivo vbs está localizado; de modo que quando o vbs

e arquivos excel são movidos para outro local, o arquivo ainda pode ser aberto.

Eu postei esta pergunta em insira a descrição do link aqui mas eu não tenho resposta

    

Answer 1

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

Salvei o VBS como C:\Users\Jonno\Documents\test.vbs - Dá a saída C:\Users\Jonno\Documents . Para usá-lo, coloque algo como

strFileName = CurrentDirectory & "\test.xlsx"