HSPTV!掲示板

エクセルファイルを開き、そのファイル内に何枚のシートが構成されているかを取得したいのですがうまくいきません。

どのようにすれば取得できるでしょうか？
ご教授願います。よろしくお願い致します。

以下が考えたスクリプトになります。
Dドライブ直下に"testxls"というファイルがあるという前提に作ってあります。

*init_excel
	// Excelコンポーネントの初期化
	newcom xlApp,"Excel.Application"
	xlApp("visible")       = 0
	xlApp("displayalerts") = 0
	xlBooks	= xlApp("workbooks")


	fname = "D:\\test.xls"		// 実験用ファイル

	exist fname
	if ( strsize == -1 ) : dialog ""+fname+"を開けません。もう一度ファイルを確認してください。",1,"Error" : end


	xlBooks->"Open" fname
	xlBook = xlBooks("Item",getpath(fname,8))	; book取得

	sheetmax = xlBook("WorkSheets","Count")

	dialog sheetmax
end

自己解決しました。
失礼しました。

*init_excel
	// Excelコンポーネントの初期化
	newcom xlApp,"Excel.Application"
	xlApp("visible")       = 0
	xlApp("displayalerts") = 0
	xlBooks	= xlApp("workbooks")


	fname = "D:\\test.xls"		// 実験用ファイル

	exist fname
	if ( strsize == -1 ) : dialog ""+fname+"を開けません。もう一度ファイルを確認してください。",1,"Error" : end


	xlBooks->"Open" fname
	xlBook = xlBooks("Item",getpath(fname,8))	; book取得

	xlSheet = xlBook("WorkSheets")
	xlSheetMax = xlSheet("Count")

	dialog xlSheetMax
end