SSpread

Q1 25
Excel2007形式ファイルのインポート・エクスポート   
A1 25
Biz/Browser V ver 5.0.2.0より、Excel2007形式ファイルのインポート・エクスポート機能、また、操作するファイルがExcel2007形式のファイルかどうかを判断する機能が追加されました。

[ Excel2007形式ファイル対応機能 ]
  1. OpenExcel2007Fileメソッド
・・・ Excelファイル内の指定のシートをインポートします。
2. SaveExcel2007Fileメソッド
・・・ シート名を指定してExcel2007形式ファイルにエクスポートします。
3. IsExcel2007Fileメソッド
・・・ ファイルがExcel2007形式ブックかどうか、また保護されているか
    どうかを調べます。

上記メソッドを利用し、Excel2007形式ファイルのエクスポートを行う方法やファイル形式を
チェックしてインポートを行う方法は以下のサンプルをご覧ください。

[サンプルコード]
SSpread SSpread1 {
 X = 14;
 Y = 202;
 Width = 565;
 Height = 221;
 ・・・(略)
}

Button Button1 {
 X = 22;
 Y = 393;
 Width = 235;
 Height = 62;
 Title = "Excelファイルへエクスポート";
 
 Function OnTouch( e ) {
  try{
   var fs = new FileSystem();
   
   /* エクスポートするファイルを選択 */
   var f = fs.SaveDialog("保存", "Excel2007形式ファイル(*.xlsx)=*.xlsx",
                                                "xlsx", "Sample1.xlsx");
   
   /* 2.選択したファイルへSSpreadをエクスポート */
   ^.SSpread1.SaveExcel2007File(f, "", 
                $SS_EXCELSAVEFLAG_NOFORMULAS, "シート1");
   
   f.Close();
  }catch(e){
   //.MessageBox(e.Message);
  }
 }
}

Button Button2 {
 X = 276;
 Y = 393;
 Width = 235;
 Height = 62;
 Title = "Excelファイルをインポート";
 
 Function OnTouch( e ) {
  try{
   var fs = new FileSystem();
   /* インポートするファイルを選択 */
   var f = fs.OpenDialog("ファイルを開く",
                          "すべてのファイル(*.*)=*.*","","");
   
   /* 3.選択したファイルが、Excel2007形式のファイルか確認 */
   if(^.SSpread1.IsExcel2007File(f) > 0){
    /* ファイルの読込み位置の初期化 */
    f.seek(0);
    
    /* 選択したファイルが、Excel2007形式のファイルの場合は
      インポート */
    ^.SSpread1.OpenExcel2007File(f, "", 0, 0);
    
   }else{
    /* 選択したファイルが、Excel2007形式のファイルでない場合 */
    if(MessageBox("インポートするファイルがExcel2007形式(xlsx)では
                   ありませんが、インポートしてよろしいですか?",
                    "確認",$IconQuestion+$YESNO) == YesSelected) {
     /* ファイルの読込み位置の初期化 */
     f.seek(0);
     /* ImportExcelSheetメソッドでインポート */
     ^.SSpread1.ImportExcelSheet(f, "Sheet1");
    }
   }
   f.Close();
  }catch(e){
   if(e.code == 28){
    //.MessageBox("ファイルのインポートに失敗しました。選択した
                   ファイルがExcel形式のファイルか確認してください。",
                     "エラー",$IconExclamation);
   }else{
    //.MessageBox(e.Message,"エラー",$IconExclamation);
   }
  }
 }
}
※CRSスクリプトが途中で改行されている部分を実際に記述する場合は、1行で記述してください。

CRSファイル形式のサンプル
  「Excel2007形式ファイルのインポート・エクスポート(Sspd50_025.zip)
で実際の動作をご確認いただけます。

管理番号:Sspd50_025
  Biz-Collections Bizの宝箱 トップへ
  Biz/Browser V・Biz/Designer V TIPS集 トップへ