MESCIUS SPREAD for Windows Forms 15.0J
SaveExcel(String,IncludeHeaders,ExcelWarningList) メソッド
使用例 

内容を保存するExcelファイルのパスとファイル名
ヘッダをデータとして保存するかどうか
警告メッセージ
Spread コンポーネントの内容をヘッダおよび警告リストと共に指定した Excel 互換ファイルに保存します。
構文
'宣言
 
Public Overloads Function SaveExcel( _
   ByVal fileName As String, _
   ByVal includeHeaders As IncludeHeaders, _
   ByVal warningList As ExcelWarningList _
) As Boolean

パラメータ

fileName
内容を保存するExcelファイルのパスとファイル名
includeHeaders
ヘッダをデータとして保存するかどうか
warningList
警告メッセージ

戻り値の型

Boolean:成功した場合は True、それ以外の場合は False
例外
例外解説
System.IO.FileNotFoundException指定されたファイルが見つかりません。
System.ArgumentNullExceptionファイル名が指定されていません(または指定されたファイル名がNull)。
System.ArgumentExceptionファイル名が指定されていません(または指定されたファイル名が空)。
使用例
次のサンプル コードは、SPREADを Excel 形式のファイルに保存し、警告リストを提供しますが、ヘッダは保存しません。
FarPoint.Win.Spread.FpSpread fpSpread1 = new FarPoint.Win.Spread.FpSpread();
FarPoint.Win.Spread.SheetView shv = new FarPoint.Win.Spread.SheetView();
FarPoint.Excel.ExcelWarningList wList = new FarPoint.Excel.ExcelWarningList();
DialogResult dlg;
fpSpread1.Location = new Point(10, 10);
fpSpread1.Height = 200;
fpSpread1.Width = 400;
Controls.Add(fpSpread1);
fpSpread1.Sheets.Add(shv);
fpSpread1.ActiveSheet.ColumnCount = 4;
fpSpread1.ActiveSheet.RowCount = 4;
string fileName;
fileName = "..\\..\\bin\\savespreadstream.xls";
dlg = MessageBox.Show("Do you want to save to an Excel-formatted file??", "SaveExcel", MessageBoxButtons.YesNo);
if (dlg == DialogResult.Yes)
{
     fpSpread1.ActiveSheet.SetValue(0, 0, 20);
     fpSpread1.ActiveSheet.SetValue(1, 0, 30);
     fpSpread1.ActiveSheet.SetFormula(2, 2, "Sum(A1,A2)");
     fpSpread1.SaveExcel(fileName, FarPoint.Win.Spread.Model.IncludeHeaders.None, wList);
}
Dim fpSpread1 As New FarPoint.Win.Spread.FpSpread()
Dim shv As New FarPoint.Win.Spread.SheetView()
Dim wList As New FarPoint.Excel.ExcelWarningList()
Dim dlg As DialogResult
fpSpread1.Location = New Point(10, 10)
fpSpread1.Height = 200
fpSpread1.Width = 400
Controls.Add(fpSpread1)
fpSpread1.Sheets.Add(shv)
fpSpread1.ActiveSheet.ColumnCount = 4
fpSpread1.ActiveSheet.RowCount = 4
Dim fileName As String
fileName = "..\bin\savespreadexcel.xls"
dlg = MessageBox.Show("Do you want to save to an Excel-formatted file??", "SaveExcel", MessageBoxButtons.YesNo)
If dlg = DialogResult.Yes Then
     fpSpread1.ActiveSheet.SetValue(0, 0, 20)
     fpSpread1.ActiveSheet.SetValue(1, 0, 30)
     fpSpread1.ActiveSheet.SetFormula(2, 2, "Sum(A1,A2)")
     fpSpread1.SaveExcel(fileName, FarPoint.Win.Spread.Model.IncludeHeaders.None, wList)
End If
参照

FpSpread クラス
FpSpread メンバ
オーバーロード一覧

 

 


© MESCIUS inc. All rights reserved.