Form Sspd50_013{
・・・
TabFrame TabFrame1 {
・・・
TabForm TabForm1{
SSpread SSpread1 {
・・・
}
}
・・・(同様にTabForm2.SSpread2、TabForm3.SSpread3を作成)
}
Button Button1 {
・・・
Title = "3枚のシートをインポート";
Function OnTouch( e ) {
try{
var fs = new FileSystem;
var f = fs.OpenDialog("ファイル選択","Excelファイル(*.xls)=*.xls"
,"xls","");
/*シート名を取得*/
var name = ^.TabFrame1.TabForm1.SSpread1.GetExcelSheetList(f);
/*読み込み位置を初期化*/
f.Seek(0);
/*1番目のシートを取得*/
^.TabFrame1.TabForm1.SSpread1.ImportExcelSheet(f, 0);
^.TabFrame1.TabForm1.SSpread1.SetActiveCell(1,1);
/*シート名をタブ名に代入*/
^.TabFrame1.TabForm1.Title = name[0];
・・・(同様にTabForm2.SSpread2、TabForm3.SSpread3へインポート)
}Catch(e){
MessageBox(e.message);
}
}
}
・・・
} |