vbscript從當前位置打開excel

Question

我有一個.bat，它調用從Excel文件讀取的.vbs，這就是我所擁有的

set OBJECT=WScript.CreateObject("WScript.Shell")
WScript.sleep 2000 

Set objExcel = CreateObject("Excel.Application")
 Set objWorkbook = objExcel.Workbooks.Open("C:\folder1\Folder2\MyExcel.xls")
 set objsheet = objExcel.ActiveWorkbook.Worksheets(3)

OBJECT.SendKeys "Some Data."&""&objsheet.Cells(2,1).value &" " &objsheet.Cells(2,4).value
WScript.sleep 200

這很好用，我的問題是不同的人會用它，所以我需要它能夠從當前位置運行（％cd％）

謝謝！

Answer 1

您可以嘗試：

Application.ThisWorkbook.Path 
Application.ThisWorkbook.FullName

其中返回例如：

C：\\ Users \\ d3ll_main \\ Dropbox \\ UNICEF CAR 2016 \\ Analysis

C：\\ Users \\ d3ll_main \\ Dropbox \\ UNICEF CAR 2016 \\ Analysis \\ UnicefRCA_Analysis_v0.2.2.xlsm

此工作簿是指VBA代碼所在的工作簿-與活動工作簿無關。