VBScript Excelのフィルターの抽出条件

Question

VBScriptでのExcelのフィルターの抽出条件の設定が分かりません。
' 前日以前の日付または日付が空白のデータのみ表示
book.WorkSheets("Sheet1").Range("A1").AutoFilter 2, Date
※日付列は２列目
の部分をどう表示すれば良いか困っています。
よろしくお願いします。

' Excel起動
Set oXlsApp = CreateObject("Excel.Application")
If oXlsApp Is Nothing Then
 ' Excel起動失敗
 MsgBox "Excel起動失敗"
 WScript.Quit
End if
' Excel表示
oXlsApp.Application.Visible = true
' ブックを開く
Set book=oXlsApp.Application.Workbooks.Open("C:\DATA\Test.xlsx")
' フィルタが設定されていなければ設定
If (book.Worksheets("Sheet1").AutoFilterMode = false) Then book.Worksheets("Sheet1").Range("A1").AutoFilter
' 前日以前の日付または日付が空白のデータのみ表示
book.WorkSheets("Sheet1").Range("A1").AutoFilter 2, Date
' ファイルを保存
book.save
' ファイルを閉じる
book.close
' --Excel終了
oXlsApp.Quit
' --Excelオブジェクトクリア
Set oXlsApp = Nothing

Excelデータ

ID	日付
AA	2022/6/1
BB	2022/6/6
CC
DD	2022/6/10
EE	2022/6/18
FF	2022/6/30

Answer 1

オートフィルターの仕様は下記を参照ください。

オートフィルタｰ（AutoFilter）｜VBA入門

Range.AutoFilter(Field, Criteria1, Operator, Criteria2, VisibleDropDown)
という書式になります。

Criteria は抽出条件となる文字列を指定します。不等号も使えます。
日付の場合は表示されている書式に合わせる必要があります。

Operator は、AND条件の場合は1、OR条件なら２を指定します。

ということで、下記のようなコードでどうでしょう。

book.WorkSheets("Sheet1").Range("A1").AutoFilter 2, "<" & Format(Date,"yyyy/m/d"), 2, ""

Comments

[nkym771]

ありがとうございます。
VBSはVBAと一部書式が異なり、情報も少ないので困っていました。
>OR条件なら２
の通り、教えていただいたコードで動作しました。
ありがとうございました。

[hatena19]

Excel.Application を開いて、それのメソッドを使うときは、VBAと書式は同じになります。ただし、定義済み定数はVBSで使えないので実際の数値で指定する必要があります。
OR条件を指定するとき、VBAでは xlOr とします。これは中身は2という数値です。
これを確認する簡単な方法は、イミディエイトウィンドウで、
?xlOr
と入力してEnterキーを押すと次行に2が表示されます。

[nkym771]

定義済み定数の値を確認する方法もご教示いただきありがとうございます。
>イミディエイトウィンドウで、
>?xlOr
>と入力
これから活用していきます。