在VBScript中查找最后一行-引用Excel对象库

我写了一个简短的脚本，在电子表格中记录我登录计算机时的时间，但我无法正确定义最后一行。如果我是在

VBA

中编写的，下面的代码将正常执行，但在执行

VBScript

时，我收到一个错误

VBScript正在从

行中获取
行
。将

计数为变量，因此它会引发错误，因为我启用了

选项Explicit

。如果我尝试将其限定为

.Rows.Count

它认为

xlup

是一个变量

我是否需要引用

VBScript

中的Excel对象库，还是应该使用不同的语法来查找

VBScript

中的LR

Option Explicit

Dim xlapp
Dim oWB
Dim oWS
Dim LR

Set xlapp = CreateObject("excel.application")
Set oWB = xlapp.Workbooks.Open("H:\HR Stuff\time_management.xls")
Set oWS = oWB.Sheets("Sheet1")

With oWS
    LR = .Range("A" & Rows.Count).End(xlUp).Row
         .Cells(LR, 1).Value = Now
End With

oWB.Close True

xlapp.Quit
Set xlapp = Nothing

---

xlUp是VBA已知的常数，但VBScript不知道。你必须自己定义它：

Const xlUp = <Use Excel interactively to get the correct magic Number>*

Const xlUp=*

• 意思是“Debug.Print xlUp”