vbscript从当前位置打开excel

Question

我有一个.bat调用.vbs从这里读取Excel文件就是我拥有的

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