2014年5月25日 星期日

VBA: 目前工作資料取得

' 取得目前活頁簿的工作目錄及名稱
ActiveWorkbook.Path
ActiveWorkbook.Name
' 取得目前執行VBS的活頁簿其工作目錄及名稱
ThisWorkbook.Path
ThisWorkbook.Name

' 取得活頁簿的工作目錄(檔案路徑)
strNowPath = Excel.ActiveWorkbook.Path
' 取得目前資料格的 row 值
endRow = ActiveCell.Row
' 取得 VBA 程式所在工作表內特定工作表的資料格內容
A = ThisWorkbook.Worksheets(strNameSheet).Cells(1, 1)

沒有留言:

張貼留言