kentaroWakamatsu
Contributor

Re: エクセルの複数シートの取り込み方について

解決済みかもしれませんが、拡張子が '.xls' のエクセルなら、以下の方法で可能です。

サンプルでは、シート名に関係なく、最大10シートまでデータを順に取り込み、シートが無くなった時に発生するエラー情報を利用して処理を停止させています。

10シート以上想定される場合は、 to の後の '10' を増やしてもらえれば大丈夫です。

 

サンプルスクリプト::::::::::::::::::

Set ErrorMode = 0;  //エラーモードを0にセットする事で、エラー発生によるスクリプトの停止を防ぎます

FOR i = 1 to 10
 LET v = '@'&$(i);
 Directory;
 Data:
 LOAD data
 FROM
 データファイル.xls
 (biff, embedded labels, table is $(v));

 IF ScriptError <> 0 then //エラーが発生したらforから抜けます
  EXIT For
 END If

NEXT

Set ErrorMode = 1; //エラーモードを1に戻します