HTML ApplicationからExcelを操作したいのですがどうにもうまく出来ないところがあります。

Excelを開きxlUPにて最終行を取得したいのですが何故か結果が返ってきません。
定数の宣言はちゃんと行っていますし、アクティブシートにしないと出来ないということもわかっているのですがどうにもこうにも動いてくれません・・・どうしたらよいのでしょうか？

       objExcelPath = "D:\レコード書き込みテスト.xls" 

           Set g_objExcelApp = GetObject(,"Excel.Application") 
               If Err Then 
                   Set objExcelApp = CreateObject("Excel.Application") 
                       objExcelApp.Visible = True 
                       objExcelApp.WorkBooks.Open objExcelPath 
               ElseIf g_objExcelApp.Workbooks.Count Then 
                   For Each i In g_objExcelApp.Workbooks 
                       If i.FullName = objExcelPath Then 
                           MsgBox objExcelPath & "が開いているので書き込めません。" & vbCrLf & vbCrLf & _ 
                                               "保存して終了してください。", vbCritical, "警告" 
                           Exit Sub 
                       End If 
                   Next 
               Else 
                   MsgBox "Excelは起動していますが" & objExcelPath & "を開いてないので開きます。" 
                   Set objExcelApp = CreateObject("Excel.Application") 
                       objExcelApp.Visible = True 
                       objExcelApp.WorkBooks.Open objExcelPath 
               End If 

           objExcelApp.WorkSheets("1nosheet").Activate 
           Set objExcelSheet = objExcelApp.WorkSheets("1nosheet") 

           RowNo = objExcelSheet.ActiveSheet.Range("J65536").End(xlUP).Row 

WScript.echo RowNo
'RowNoが出ないのは何故でしょうか？？

とりあえず、エラーが発生した時の処理は、このようには書けません。


存在するファイルのＪ列の最後の行番号を得る例：

Const xlUP=-4162
ExcelFilePath = "D:\レコード書き込みテスト.xls" 

Set Excel = GetObject(ExcelFilePath) 
Set book  = Excel.Application.Workbooks(1)
Set Sheet = book.WorkSheets("1nosheet")

RowNo = Sheet.Range("J65536").End(xlUP).Row
WScript.Echo(RowNo)

Set Sheet = Nothing
Set book  = Nothing
Set Excel = Nothing

Workbooks を使う時には、Application を省略しないで下さい。
このようなスクリプトからシート名を指定して実行する場合は特にアクティブシートにする必要はありません。