VBS Excelファイルの操作

'変数の宣言を強制
Option Explicit

'Excelアプリケーションのオブジェクトをセット
Dim objxls
set objxls = Wscript.CreateObject("Excel.Application")

'開いたブックのオブジェクトをセット
Dim objBook
set objBook = objxls.Workbooks.Open("C:\Users\デスクトップ\WHSプロジェクト\テスト.xlsx")

'Sheet1のオブジェクトをセット
Dim objSheet
set objSheet = objBook.Sheets("Sheet1")

'セルA1の値を取得
Dim temp
temp = objSheet.Range("A1").Value

'bookを閉じてアプリケーションを終了
objBook.Close
objxls.Quit

'取得した値を表示
MsgBox temp