River's Footmar And Note: VBS GetObject 2個簡單例子、儲存格寫資料、call 副程式

2022年4月26日星期二

GETOBJECT：

簡單例子：

VBS檔，可以直接用記事本編輯歐，記得副檔名要用.VBS而已

先設置ExcelObj 為"Excel.Application"物件，小編透過活頁簿1做DEMO所以檔案名稱跟工作表名稱與儲存格都要設定，跑完程式記得要釋放歐。

，Set ExcelObj = GetObject(, "Excel.Application")

ExcelObj.Workbooks("活頁簿1.xlsm").Sheets("工作表1").Range("b1") = 1

Set ExcelObj = Nothing

延伸：

增加一個

Set ExcelObj = GetObject(, "Excel.Application")

ExcelObj.Workbooks("DEMO").Sheets("s").Range("b2:l2")=1

ExcelObj.Workbooks("DEMO").Sheets("s").Range("o2") =10

'驅動目標工作簿TEST副程式，並傳送數字資料2

ExcelObj.Application.Run "TEST",2 '目標工作簿的mobule做副程式驅動

Set ExcelObj = Nothing

怪的是office365 ok,但office 2010 faile，有空再測試2013

下一篇 Creatobject

River's Footmar And Note