>>642
Set Application = CreateObject("Excel.Application")
hoge = Application.ExecuteExcel4Macro("'パス\[ブック名.xls]Sheet1'!R1C1")

Excelのブックを開かずSheet1のA1を取得する方法.
但し、注意点として空セルではNull("")ではなく 0 が返ってくる。
コレは仕様でExecuteExcel4Macroでは0と空の区別は出来ないらしい。
なのであとは返ってきた値が0じゃなかったらテキストに書き出せばよし。

でもこの程度ならvbsからやった方が良くないか?
FSO使えばテキスト書き出しも出来るし、セルの値の取得部分は上記をそのまま使える。