Administrator

Saturday, 03 July 2010 00:10

EXCEL Read Images in C#, VB.NET

Demo
C# source
VB.Net source

The sample demonstrates how to read images from spreadsheet.

		private void btnRun_Click(object sender, System.EventArgs e)
		{
			Workbook workbook = new Workbook();
			workbook.LoadFromFile(@"..\..\..\..\..\..\Data\ImageSample.xls");
			Worksheet sheet = workbook.Worksheets[0];

			ExcelPicture pic = sheet.Pictures[0];
			
			using( Form frm1 = new Form())
			{
				PictureBox pic1 = new PictureBox();
				pic1.Image = pic.Picture;
				frm1.Width = pic.Picture.Width;
				frm1.Height = pic.Picture.Height;
				frm1.StartPosition = FormStartPosition.CenterParent;
				pic1.Dock = DockStyle.Fill;
				frm1.Controls.Add(pic1);
				frm1.ShowDialog();
			}
		}

		private void ExcelDocViewer( string fileName )
		{
			try
			{
				System.Diagnostics.Process.Start(fileName);
			}
			catch{}
		}

		Private Sub btnRun_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRun.Click
			Dim workbook As Workbook = New Workbook()
			workbook.LoadFromFile("..\..\..\..\..\..\Data\ImageSample.xls")
			Dim sheet As Worksheet = workbook.Worksheets(0)

			Dim pic As ExcelPicture = sheet.Pictures(0)

			Dim frm1 As Form = New Form()
			Try
				Dim pic1 As PictureBox = New PictureBox()
				pic1.Image = pic.Picture
				frm1.Width = pic.Picture.Width
				frm1.Height = pic.Picture.Height
				frm1.StartPosition = FormStartPosition.CenterParent
				pic1.Dock = DockStyle.Fill
				frm1.Controls.Add(pic1)
				frm1.ShowDialog()
			Finally
				CType(frm1, IDisposable).Dispose()
			End Try
		End Sub

		Private Sub ExcelDocViewer(ByVal fileName As String)
			Try
				System.Diagnostics.Process.Start(fileName)
			Catch
			End Try
		End Sub

Published in Images

Tagged under

Saturday, 03 July 2010 00:00

Excel TextAlign in C#, VB.NET

Demo
C# source
VB.Net source

The sample demonstrates how to set text alignment in an excel workbook.

		private void ExcelDocViewer( string fileName )
		{
			try
			{
				System.Diagnostics.Process.Start(fileName);
			}
			catch{}
		}

		private void btnRun_Click(object sender, System.EventArgs e)
		{
			Workbook workbook = new Workbook();
			Worksheet sheet = workbook.Worksheets[0];

			sheet.Range["B1"].Text = "Text Align";
                        sheet.Range["B1"].Style.Font.IsBold = true;

			sheet.Range["B3"].Text = "Top";
			sheet.Range["B3"].Style.VerticalAlignment = VerticalAlignType.Top;

			sheet.Range["B4"].Text = "Center";
			sheet.Range["B4"].Style.VerticalAlignment = VerticalAlignType.Center;

			sheet.Range["B5"].Text = "Bottom";
			sheet.Range["B5"].Style.VerticalAlignment = VerticalAlignType.Bottom;

			sheet.Range["B6"].Text = "General";
			sheet.Range["B6"].Style.HorizontalAlignment = HorizontalAlignType.General;

			sheet.Range["B7"].Text = "Left";
			sheet.Range["B7"].Style.HorizontalAlignment = HorizontalAlignType.Left;

			sheet.Range["B8"].Text = "Center";
			sheet.Range["B8"].Style.HorizontalAlignment = HorizontalAlignType.Center;

			sheet.Range["B9"].Text = "Right";
			sheet.Range["B9"].Style.HorizontalAlignment = HorizontalAlignType.Right;

			sheet.Range["B10"].Text = "Rotation 90 degree";
			sheet.Range["B10"].Style.Rotation = 90;

			sheet.Range["B11"].Text = "Rotation 45 degree";
			sheet.Range["B11"].Style.Rotation = 45;


			sheet.AllocatedRange.AutoFitColumns();
			sheet.Range["B3:B5"].RowHeight = 20;
		
			workbook.SaveToFile("Sample.xls");
			ExcelDocViewer(workbook.FileName);
		}

		Private Sub ExcelDocViewer(ByVal fileName As String)
			Try
				System.Diagnostics.Process.Start(fileName)
			Catch
			End Try
		End Sub

		Private Sub btnRun_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRun.Click
			Dim workbook As Workbook = New Workbook()
			Dim sheet As Worksheet = workbook.Worksheets(0)

			sheet.Range("B1").Text = "Text Align"
			sheet.Range("B1").Style.Font.IsBold = True

			sheet.Range("B3").Text = "Top"
			sheet.Range("B3").Style.VerticalAlignment = VerticalAlignType.Top

			sheet.Range("B4").Text = "Center"
			sheet.Range("B4").Style.VerticalAlignment = VerticalAlignType.Center

			sheet.Range("B5").Text = "Bottom"
			sheet.Range("B5").Style.VerticalAlignment = VerticalAlignType.Bottom

			sheet.Range("B6").Text = "General"
			sheet.Range("B6").Style.HorizontalAlignment = HorizontalAlignType.General

			sheet.Range("B7").Text = "Left"
			sheet.Range("B7").Style.HorizontalAlignment = HorizontalAlignType.Left

			sheet.Range("B8").Text = "Center"
			sheet.Range("B8").Style.HorizontalAlignment = HorizontalAlignType.Center

			sheet.Range("B9").Text = "Right"
			sheet.Range("B9").Style.HorizontalAlignment = HorizontalAlignType.Right

			sheet.Range("B10").Text = "Rotation 90 degree"
			sheet.Range("B10").Style.Rotation = 90

			sheet.Range("B11").Text = "Rotation 45 degree"
			sheet.Range("B11").Style.Rotation = 45


			sheet.AllocatedRange.AutoFitColumns()
			sheet.Range("B3:B5").RowHeight = 20

			workbook.SaveToFile("Sample.xls")
			ExcelDocViewer(workbook.FileName)
		End Sub

Published in Styles

Tagged under

Friday, 02 July 2010 23:49

The sample demonstrates how to set number formatting in an excel workbook.

		private void ExcelDocViewer( string fileName )
		{
			try
			{
				System.Diagnostics.Process.Start(fileName);
			}
			catch{}
		}

		private void btnRun_Click(object sender, System.EventArgs e)
		{
			Workbook workbook = new Workbook();
			Worksheet sheet = workbook.Worksheets[0];

			sheet.Range["B1"].Text = "NUMBER FORMATTING";
			sheet.Range["B1"].Style.Font.IsBold = true;

			sheet.Range["B3"].Text = "0";
			sheet.Range["C3"].NumberValue = 1234.5678;
			sheet.Range["C3"].NumberFormat = "0";

			sheet.Range["B4"].Text = "0.00";
			sheet.Range["C4"].NumberValue = 1234.5678;
			sheet.Range["C4"].NumberFormat = "0.00";

			sheet.Range["B5"].Text = "#,##0.00";
			sheet.Range["C5"].NumberValue = 1234.5678;
			sheet.Range["C5"].NumberFormat = "#,##0.00";

			sheet.Range["B6"].Text = "$#,##0.00";
			sheet.Range["C6"].NumberValue = 1234.5678;
			sheet.Range["C6"].NumberFormat = "$#,##0.00";

			sheet.Range["B7"].Text = "0;[Red]-0";
			sheet.Range["C7"].NumberValue = -1234.5678;
			sheet.Range["C7"].NumberFormat = "0;[Red]-0";

			sheet.Range["B8"].Text = "0.00;[Red]-0.00";
			sheet.Range["C8"].NumberValue = -1234.5678;
			sheet.Range["C8"].NumberFormat = "0.00;[Red]-0.00";

			sheet.Range["B9"].Text = "#,##0;[Red]-#,##0";
			sheet.Range["C9"].NumberValue = -1234.5678;
			sheet.Range["C9"].NumberFormat = "#,##0;[Red]-#,##0";

			sheet.Range["B10"].Text = "#,##0.00;[Red]-#,##0.000";
			sheet.Range["C10"].NumberValue = -1234.5678;
			sheet.Range["C10"].NumberFormat = "#,##0.00;[Red]-#,##0.00";

			sheet.Range["B11"].Text = "0.00E+00";
			sheet.Range["C11"].NumberValue = 1234.5678;
			sheet.Range["C11"].NumberFormat = "0.00E+00";

			sheet.Range["B12"].Text = "0.00%";
			sheet.Range["C12"].NumberValue = 1234.5678;
			sheet.Range["C12"].NumberFormat = "0.00%";

			sheet.Range["B3:B12"].Style.KnownColor = ExcelColors.Gray25Percent;

			
			sheet.AutoFitColumn(2);
			sheet.AutoFitColumn(3);
			
		
			workbook.SaveToFile("Sample.xls");
			ExcelDocViewer(workbook.FileName);
		}

		Private Sub ExcelDocViewer(ByVal fileName As String)
			Try
				System.Diagnostics.Process.Start(fileName)
			Catch
			End Try
		End Sub

		Private Sub btnRun_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRun.Click
			Dim workbook As Workbook = New Workbook()
			Dim sheet As Worksheet = workbook.Worksheets(0)

			sheet.Range("B1").Text = "NUMBER FORMATTING"
			sheet.Range("B1").Style.Font.IsBold = True

			sheet.Range("B3").Text = "0"
			sheet.Range("C3").NumberValue = 1234.5678
			sheet.Range("C3").NumberFormat = "0"

			sheet.Range("B4").Text = "0.00"
			sheet.Range("C4").NumberValue = 1234.5678
			sheet.Range("C4").NumberFormat = "0.00"

			sheet.Range("B5").Text = "#,##0.00"
			sheet.Range("C5").NumberValue = 1234.5678
			sheet.Range("C5").NumberFormat = "#,##0.00"

			sheet.Range("B6").Text = "$#,##0.00"
			sheet.Range("C6").NumberValue = 1234.5678
			sheet.Range("C6").NumberFormat = "$#,##0.00"

			sheet.Range("B7").Text = "0;[Red]-0"
			sheet.Range("C7").NumberValue = -1234.5678
			sheet.Range("C7").NumberFormat = "0;[Red]-0"

			sheet.Range("B8").Text = "0.00;[Red]-0.00"
			sheet.Range("C8").NumberValue = -1234.5678
			sheet.Range("C8").NumberFormat = "0.00;[Red]-0.00"

			sheet.Range("B9").Text = "#,##0;[Red]-#,##0"
			sheet.Range("C9").NumberValue = -1234.5678
			sheet.Range("C9").NumberFormat = "#,##0;[Red]-#,##0"

			sheet.Range("B10").Text = "#,##0.00;[Red]-#,##0.000"
			sheet.Range("C10").NumberValue = -1234.5678
			sheet.Range("C10").NumberFormat = "#,##0.00;[Red]-#,##0.00"

			sheet.Range("B11").Text = "0.00E+00"
			sheet.Range("C11").NumberValue = 1234.5678
			sheet.Range("C11").NumberFormat = "0.00E+00"

			sheet.Range("B12").Text = "0.00%"
			sheet.Range("C12").NumberValue = 1234.5678
			sheet.Range("C12").NumberFormat = "0.00%"

			sheet.Range("B3:B12").Style.KnownColor = ExcelColors.Gray25Percent


			sheet.AutoFitColumn(2)
			sheet.AutoFitColumn(3)


			workbook.SaveToFile("Sample.xls")
			ExcelDocViewer(workbook.FileName)
		End Sub

Published in Styles

Tagged under

Friday, 02 July 2010 23:37

EXCEL Font Styles in C#, VB.NET

Demo
C# source
VB.Net source

The sample demonstrates how to set font formatting in an excel workbook.

		private void ExcelDocViewer( string fileName )
		{
			try
			{
				System.Diagnostics.Process.Start(fileName);
			}
			catch{}
		}

		private void btnRun_Click(object sender, System.EventArgs e)
		{
			Workbook workbook = new Workbook();
			Worksheet sheet = workbook.Worksheets[0];

			sheet.Range["B1"].Text = "Font setting";
                        sheet.Range["B1"].Style.Font.IsBold = true;

			sheet.Range["B3"].Text = "Arial";
			sheet.Range["B3"].Style.Font.FontName = "Arial";

			sheet.Range["B4"].Text = "Large size";
			sheet.Range["B4"].Style.Font.Size = 20;

			sheet.Range["B5"].Text = "Bold";
			sheet.Range["B5"].Style.Font.IsBold = true;

			sheet.Range["B6"].Text = "Italic";
			sheet.Range["B6"].Style.Font.IsItalic = true;

			sheet.Range["B7"].Text = "Superscript";
			sheet.Range["B7"].Style.Font.IsSuperscript = true;

			sheet.Range["B8"].Text = "Colored";
			sheet.Range["B8"].Style.Font.Color = Color.FromArgb(255,125,125);

			sheet.Range["B9"].Text = "Underline";
			sheet.Range["B9"].Style.Font.Underline = FontUnderlineType.Single;

			sheet.AutoFitColumn(2);
			
		
			workbook.SaveToFile("Sample.xls");
			ExcelDocViewer(workbook.FileName);
		}

		Private Sub ExcelDocViewer(ByVal fileName As String)
			Try
				System.Diagnostics.Process.Start(fileName)
			Catch
			End Try
		End Sub

		Private Sub btnRun_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRun.Click
			Dim workbook As Workbook = New Workbook()
			Dim sheet As Worksheet = workbook.Worksheets(0)

			sheet.Range("B1").Text = "Font setting"
			sheet.Range("B1").Style.Font.IsBold = True

			sheet.Range("B3").Text = "Arial"
			sheet.Range("B3").Style.Font.FontName = "Arial"

			sheet.Range("B4").Text = "Large size"
			sheet.Range("B4").Style.Font.Size = 20

			sheet.Range("B5").Text = "Bold"
			sheet.Range("B5").Style.Font.IsBold = True

			sheet.Range("B6").Text = "Italic"
			sheet.Range("B6").Style.Font.IsItalic = True

			sheet.Range("B7").Text = "Superscript"
			sheet.Range("B7").Style.Font.IsSuperscript = True

			sheet.Range("B8").Text = "Colored"
			sheet.Range("B8").Style.Font.Color = Color.FromArgb(255,125,125)

			sheet.Range("B9").Text = "Underline"
			sheet.Range("B9").Style.Font.Underline = FontUnderlineType.Single

			sheet.AutoFitColumn(2)


			workbook.SaveToFile("Sample.xls")
			ExcelDocViewer(workbook.FileName)
		End Sub

Published in Styles

Tagged under

Friday, 02 July 2010 14:01

EXCEL Edit Sheet in C#, VB.NET

Demo
C# source
VB.Net source

The sample demonstrates how to edit a worksheet in an excel workbook.

       private void btnRun_Click(object sender, System.EventArgs e)
		{
			
			Workbook workbook = new Workbook();
			
			//Load workbook from disk.
			workbook.LoadFromFile(@"..\..\..\..\..\..\Data\EditSheetSample.xls");
			//Initialize worksheet
			Worksheet sheet = workbook.Worksheets[0];

			//Writes string
			sheet.Range["B1"].Text = "Hello,World!";
			//Writes number
			sheet.Range["B2"].NumberValue = 1234.5678;
			//Writes date
			sheet.Range["B3"].DateTimeValue = System.DateTime.Now;
			//Writes formula
			sheet.Range["B4"].Formula = "=1111*11111";

			workbook.SaveToFile("Sample.xls");
			ExcelDocViewer(workbook.FileName);
		}

		private void ExcelDocViewer( string fileName )
		{
			try
			{
				System.Diagnostics.Process.Start(fileName);
			}
			catch{}
		}

          Private Sub btnRun_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRun.Click

			Dim workbook As Workbook = New Workbook()

			'Load workbook from disk.
			workbook.LoadFromFile("..\..\..\..\..\..\Data\EditSheetSample.xls")
			'Initialize worksheet
			Dim sheet As Worksheet = workbook.Worksheets(0)

			'Writes string
			sheet.Range("B1").Text = "Hello,World!"
			'Writes number
			sheet.Range("B2").NumberValue = 1234.5678
			'Writes date
			sheet.Range("B3").DateTimeValue = System.DateTime.Now
			'Writes formula
			sheet.Range("B4").Formula = "=1111*11111"

			workbook.SaveToFile("Sample.xls")
			ExcelDocViewer(workbook.FileName)
		End Sub

		Private Sub ExcelDocViewer(ByVal fileName As String)
			Try
				System.Diagnostics.Process.Start(fileName)
			Catch
			End Try
		End Sub

Published in Quick Guide

Tagged under

Thursday, 01 July 2010 10:20

EXCEL Hello World in C#, VB.NET

Demo
C# source
VB.Net source

The sample demonstrates how to write a string to an excel workbook.

private void btnRun_Click(object sender, System.EventArgs e)
{
       //Creates workbook
       Workbook workbook = new Workbook();
       //Gets first worksheet
       Worksheet sheet = workbook.Worksheets[0];
        
       //Writes hello world to A1
       sheet.Range["A1"].Text = "Hello,World!";

       //Save workbook to disk
       workbook.SaveToFile("Sample.xls");

       //View excel file
       ExcelDocViewer(workbook.FileName);
}

private void ExcelDocViewer( string fileName )
{   
       try   
       {    
          System.Diagnostics.Process.Start(fileName);   
       }   catch{}
}

   Private  Sub ExcelDocViewer(ByVal fileName As String)
      Try
        System.Diagnostics.Process.Start(fileName)
      Catch
      End Try
    End Sub

    Private Sub btnRun_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRun.Click
      'Creates workbook
      Dim workbook As Workbook = New Workbook()
      'Gets first worksheet
      Dim sheet As Worksheet = workbook.Worksheets(0)

      'Writes hello world to A1
      sheet.Range("A1").Text = "Hello,World!"

      'Save workbook to disk
      workbook.SaveToFile("Sample.xls")

      'View excel file
      ExcelDocViewer(workbook.FileName)
    End Sub

    Private Sub btnAbout_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAbout.Click
      Close()
    End Sub

Published in Quick Guide

Tagged under