VBScriptでExcelのセルをソート

Question

前提・実現したいこと

VBScriptでExcelのセルを昇順にソートしたいと思っています。

発生している問題・エラーメッセージ

「ステートメントがありません」というエラーが出ます。
エラーコード：800A0400
おそらくSortメソッドのKeyの部分かと思っています。

該当のソースコード

filepath = WScript.Argument(0)
set xlobj = CreateObject("Excel.Application")

xlobj.Workbooks(filepath)

xlobj.ActiveWorkbook.Sheets("Sheet1").Select

xlobj.Columns("A1:A22").Sort Key1:=xlobj.Range("A:A"), order1:=xlAscending

xlobj.ActiveWorkbook.Save
xlobj.ActiveWorkbook.Close()
xlobj.Quit
xlobj = Nothing

試したこと

Key1の部分をActiveSheetなどの構文を追加したりしましたが、解決しませんでした。

Answer 1

toshi17922062さんの指摘に加え、色々不備がありましたので修正してみました。
詳細は比較してもらうこととして、いくつかポイントだけ説明します。
xlAscendingなどのVBAの定数は使えませんので、値を直接していするか下記のようにConstで定義してあげる必要があります。
VBAやVBScriptはアクティブなブック・アクティブなシートを対象とするのではなく、オブジェクトに格納して、それ経由で操作するほうが安定した動作ができます。

Option Explicit

Dim filepath
Dim xlobj
Dim bk
Dim sh

Const xlAscending = 1
Const xlDescending = 2

filepath = WScript.Arguments(0)
Set xlobj = CreateObject("Excel.Application")

Set bk = xlobj.Workbooks.Open(filepath)
Set sh = bk.WorkSheets("Sheet1")

sh.Range("A1:A22").Sort sh.Range("A1"), xlAscending

bk.Save
bk.Close

Set xlobj = Nothing

Comments

[massaa]

回答ありがとうございました。
「RangeオブジェクトのSortメソッドが失敗しました」というエラーも、VBAの定数が使用できないことが原因でしょうか？
(名前付き引数の部分を修正したところ、このエラーが出ました。)

[ttyp03]

＞VBAの定数が使用できないことが原因でしょうか？
原因のひとつと思われます。
定数を宣言せず私が書いたコードのように冒頭でOption Eplicit宣言をしない場合、おそらくデフォルト値の0が使用されることになりSortでエラーになる可能性はあります。
もう1つ原因があって、それはColumnsを使っていたことです。
こちらはRangeに置き換えてあります。

Answer 2

VBScriptやJScriptでExcelのワークシートを指定シートの後に追加する - プログラマとプロマネのあいだ

次にVBScriptでやる場合

VBScriptでは、名前付き引数の指定はできないので、
代わりに不要な引数を省略します。

だそうです。

Comments

[massaa]

回答ありがとうございました。