HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2017
1011
DoubleQuoteComオブジェクトを使ってエクセルシートが何枚あるか調べたい1解決


DoubleQuote

リンク

2017/10/11(Wed) 22:10:35|NO.81594

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

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

以下が考えたスクリプトになります。
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



この記事に返信する


DoubleQuote

リンク

2017/10/12(Thu) 12:45:41|NO.81595

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



*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



ONION software Copyright 1997-2018(c) All rights reserved.