0

コンピューターにログインしたときにスプレッドシートに時間を記録する短いスクリプトを作成しましたが、最後の行を正しく定義できません。以下に書いていればVBA問題なく実行できますが、実行するとエラーが発生しますVBScript。

VBScriptはRowsfromRows.Countを変数として取得しているため、onを使用しているため、エラーがスローOption Explicitされます。それが変数である.Rows.Countと思うように私がそれを修飾しようとすると。xlup

でExcelオブジェクトライブラリを参照する必要がありますか、VBScriptそれともまったく別の構文を使用して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.PrintxlUp」のような意味
于 2013-01-10T10:01:47.573 に答える