[решено] Открытие файла Excel с помощью vbs

[neo21]

Добрый день!
Как изменить скрипт чтобы файл Данные.xlsm открывался без за давания его пути D:\Doc\
Скрипт находится в той же папке

Скрипт:
Option Explicit
Dim WshShell, objXL, objWorkbook

' Открытие файла
Set objXL = CreateObject("Excel.Application")
objXL.Visible = TRUE
Set objWorkbook = objXL.Workbooks.Open("D:\Doc\Данные.xlsm")

[Petya V4sechkin]

How Can I Determine the Path to the Folder Where a Script is Running? (http://blogs.technet.com/b/heyscriptingguy/archive/2006/04/05/how-can-i-determine-the-path-to-the-folder-where-a-script-is-running.aspx)