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代码所在的工作簿-与活动工作簿无关。