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);
}
}
}
} |