1. 首頁
  2. 問答
  3. VBScript來從當前位置

VBScript來從當前位置

2016-08-03 102 views
0

打開Excel我已經調用一個.vbs讀取從Excel文件這裏蝙蝠是我VBScript來從當前位置

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％）

感謝！

來源

2016-08-03 Jeff

回答

0

你可以嘗試：

Application.ThisWorkbook.Path 
Application.ThisWorkbook.FullName

它例如返回：

C：\用戶\ d3ll_main \ Dropbox的\聯合國兒童基金會CAR 2016 \分析

C：\用戶\ d3ll_main \ Dropbox的\ UNICEF CAR 2016 \ Analysis \ UnicefRCA_Analysis_v0.2.2.xlsm

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

來源

2016-08-03 15:27:53

+0

那麼我在哪裏添加？ – Jeff

+0

那麼這返回一個路徑。所以，無論你以其他方式使用路徑 - 在上例中，這將是：「C：\ folder1 \ Folder2 \ MyExcel.xls」。 雖然我建議設置一個變量： 昏暗mypath中作爲字符串 mypath中= Application.ThisWorkbook.FullName 然後用mypath中作爲參考。 –

+0

謝謝，我會試一試。看着它看起來像在Excel中？我的.vbs是獨立的。 – Jeff

相關問題

 相關問題