VBScriptで次のようなことはできますか？

Question

VBScriptで次のようなことはできますか？例えば次のようなエクセルファイルがあるとします。

全社員.xls
Ａ部署 番号１ 名前１
Ａ部署 番号２ 名前２
Ａ部署 番号３ 名前３
Ｂ部署 番号４ 名前４
Ｂ部署 番号５ 名前５
Ｃ部署 番号６ 名前６

これを、部署ごとに複数のファイルに分割して出力したいです。
ファイル名は、部署名.xls

Ａ部署.xls
Ａ部署 番号１ 名前１
Ａ部署 番号２ 名前２
Ａ部署 番号３ 名前３

Ｂ部署.xls
Ｂ部署 番号４ 名前４
Ｂ部署 番号５ 名前５

Ｃ部署.xls
Ｃ部署 番号６ 名前６

Answer 1

オブジェクトを作成して、それを通して制御することになりますが、可能です。

Set xls=CreateObject("Excel.Application")
xls.Visible=True
Set wb=xls.Workbooks.Add

wb.Worksheets(1).Range("A1").Value="test"

こんな感じで、制御することになります。ただし、固有定数は使えないと思った方が良いでしょう。例えば、xlUpという定数はVBSでは未定義の変数にしかなりませんので、VBAのMsgboxで、値を確認してから使います。

VBAで作ってから、VBSに移植することになるでしょうから、エクセルマクロを動かした方が早いかもしれません。