Относительные пути для файла VBScript

Question

У меня есть файл VBScript, чтобы открыть файл Excel и запустить макрос. Этот файл Excel находится в той же папке, что и файл VBScript. Я хотел бы использовать относительные пути для его вызова, чтобы я мог перемещать эту папку, не переписывая пути в скрипте. Сейчас моя VBScript выглядит следующим образом:

Option Explicit 

    On Error Resume Next 

    ExcelMacroExample 

    Sub ExcelMacroExample() 

     Dim xlApp 
     Dim xlBook 

     Set xlApp = CreateObject("Excel.Application") 
     Set xlBook = xlApp.Workbooks.Open("C:\Users\Ben\Desktop\GeocodingBatchFile\Files\GeocodingStart.xlsm") 
     xlApp.Run "Export" 
     xlApp.Quit 

     Set xlBook = Nothing 
     Set xlApp = Nothing 

    End Sub 

Вместо того чтобы использовать полный путь к файлу, это было бы здорово, если бы я мог сделать что-то вроде этого:

Set xlBook = xlApp.Workbooks.Open(".\GeocodingStart.xlsm") 

Answer 1

Вы можете использовать FileSystemObject, чтобы получить путь к файлу сценария, как этот

Sub ExcelMacroExample() 

    Dim xlApp 
    Dim xlBook 
    Dim fso 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    Dim fullpath 
    fullpath = fso.GetAbsolutePathName(".") 
    Set fso = Nothing 
    Set xlApp = CreateObject("Excel.Application") 
    Set xlBook = xlApp.Workbooks.Open(fullpath & "\GeocodingStart.xlsm") 
    xlApp.Run "Export" 
    xlApp.Quit 

    Set xlBook = Nothing 
    Set xlApp = Nothing 

End Sub 

Answer 2

Попробуйте это ...

Dim oFSO 
    Set oFSO = CreateObject("Scripting.FileSystemObject") 
    sScriptDir =  oFSO.GetParentFolderName(WScript.ScriptFullName)    
    Set xlBook = xlApp.Workbooks.Open(sScriptDir & "\GeocodingStart.xlsm")