VBScript で Excel のシート,セルの指定

Excelのデータを変更するVBScriptの修正の依頼。所謂、Excel職人問題か。

久し振りに見るので、セルの指定等で、添え字の開始番号等再確認した。

Dim strPath
strPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"")

Dim strBook

strBook = strPath & "\a.xlsx"

Dim objExcel
Set objExcel = CreateObject("Excel.Application")

'警告を抑制
objExcel.DisplayAlerts = False

'エクセル画面を表示
objExcel.Visible = True

Dim book
Dim sheet
Dim s , y , x

Set book  = objExcel.Workbooks.Open(strBook)
Set sheet = bookFrom.worksheets("SheetName")
Set sheet = bookTo.worksheets(s)  'シート番号(インデックスの場合) 1から

sheet.cells(y,x).value  'y:行 x:列 1から

VBScript 何の開発環境を整えることなく動き、簡単なことならシンプルに片付くことを思い出した。
今でも、選択肢としてはアリ。
Editor は、VbsEdit が簡便で見やすく良い。