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