Excel上で選択されているセルの位置を取得するにはどうすればいいですか

Question

今のコードです
セル位置を取得する関数はVBAではありましたが、VBSでは使えないのでしょうか

cellAddress = ActiveCell.Address
Set cell = worksheet.Range(cellAddress)
msgbox cell.value

Answer 1

お作法の都合上ちょっと記述は変わりますが、機能は提供されているのでほぼそのまま使えますよ

Dim objExcel    'Excelオブジェクト
Dim objWB       'アクティブブック取得用
Dim objWS       'アクティブシート取得用
Dim objAdress   'アドレス格納用変数
Dim objCell     'アクティブセル取得用

Set objExcel = CreateObject("Excel.Application") 
objExcel.Workbooks.Open "c:\tera\test01.xls"

Set objWB = objExcel.ActiveWorkBook 'アクティブブックを取得（使ってないけど）
Set objWS = objExcel.ActiveSheet    'アクティブシートを取得

objAdress = objExcel.ActiveCell.Address  'アクティブセルのアドレスを取得
Set objCell = objWS.Range(objAdress) 

MsgBox objCell.value 

Answer 2

こんな感じでうまくいきました

Dim objExcel
Dim objBook 

Set objExcel = CreateObject("Excel.Application") 
ObjExcel.Workbooks.Open "c:\test.xlsx"
Set objBook = objExcel.ActiveWorkBook 

objBook.Sheets(1).Activate
objBook.Sheets(1).Cells(1,1).Value = 1 'A1
objBook.Sheets(1).Cells(1,2).Value = 2 'B1
objBook.Sheets(1).Cells(1,3).Value = 3 'C1

objBook.Sheets(1).Cells(1,2).Select ' B1 を選択

MsgBox objExcel.ActiveCell.Value ' 2 が表示される