FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread 名前空間 > FpSpread クラス > SaveExcel メソッド : SaveExcel(String,ExcelWarningList) メソッド |
'Declaration Public Overloads Function SaveExcel( _ ByVal fileName As String, _ ByVal warningList As ExcelWarningList _ ) As Boolean
'使用法 Dim instance As FpSpread Dim fileName As String Dim warningList As ExcelWarningList Dim value As Boolean value = instance.SaveExcel(fileName, warningList)
public bool SaveExcel( string fileName, ExcelWarningList warningList )
例外 | 説明 |
---|---|
System.IO.FileNotFoundException | 指定されたファイルが見つかりません。 |
System.ArgumentNullException | ファイル名が指定されていません(または指定されたファイル名がNull)。 |
System.ArgumentException | ファイル名が指定されていません(または指定されたファイル名が空)。 |
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, 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, wList) End If