0

我写了一个简短的脚本，当我登录到我的计算机时将时间记录在电子表格中，但我无法正确定义最后一行。如果我在VBA下面写的话会执行得很好，但是在执行时我会收到一个错误VBScript。

VBScript 将RowsfromRows.Count作为一个变量，所以它会抛出一个错误，因为我有Option Explicit。如果我尝试将其限定为.Rows.Count它认为xlup的变量。

我是否需要在 中引用 Excel 对象库，VBScript或者我应该完全使用不同的语法来查找 LR 中的 LR VBScript？

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
4

1 回答 1

1

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

Const xlUp = <Use Excel interactively to get the correct magic Number>*
  • 含义类似于“Debug.Print xlUp”
于 2013-01-10T10:01:47.573 回答