Edit Excel in Silverlight

  • Demo
  • App.xaml
  • App.xaml.cs
  • App.xaml.vb
  • MainPage.xaml
  • MainPage.xaml.cs
  • MainPage.xaml.vb

The sample demonstrates how to Edit Excel in Silverlight via Spire.XLS.

 

<Application xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" 
             x:Class="Edit_XLS.App">
             
    <Application.Resources>
        
    </Application.Resources>
</Application>

using System;
using System.Windows;

namespace Edit_XLS
{
    public partial class App : Application
    {

        public App()
        {
            this.Startup += this.Application_Startup;
            this.Exit += this.Application_Exit;
            this.UnhandledException += this.Application_UnhandledException;

            InitializeComponent();
        }

        private void Application_Startup(object sender, StartupEventArgs e)
        {
            this.RootVisual = new MainPage();
        }

        private void Application_Exit(object sender, EventArgs e)
        {

        }

        private void Application_UnhandledException(object sender, ApplicationUnhandledExceptionEventArgs e)
        {
            // If the app is running outside of the debugger then report the exception using
            // the browser's exception mechanism. On IE this will display it a yellow alert 
            // icon in the status bar and Firefox will display a script error.
            if (!System.Diagnostics.Debugger.IsAttached)
            {

                // NOTE: This will allow the application to continue running after an exception has been thrown
                // but not handled. 
                // For production applications this error handling should be replaced with something that will 
                // report the error to the website and stop the application.
                e.Handled = true;
                Deployment.Current.Dispatcher.BeginInvoke(delegate { ReportErrorToDOM(e); });
            }
        }

        private void ReportErrorToDOM(ApplicationUnhandledExceptionEventArgs e)
        {
            try
            {
                string errorMsg = e.ExceptionObject.Message + e.ExceptionObject.StackTrace;
                errorMsg = errorMsg.Replace('"', '\'').Replace("\r\n", @"\n");

                System.Windows.Browser.HtmlPage.Window.Eval("throw new Error(\"Unhandled Error in Silverlight Application " + errorMsg + "\");");
            }
            catch (Exception)
            {
            }
        }
    }
}

Imports System.Windows

Namespace Edit_XLS
	Partial Public Class App
		Inherits Application

		Public Sub New()
			AddHandler Me.Startup, AddressOf Application_Startup
			AddHandler Me.Exit, AddressOf Application_Exit
			AddHandler Me.UnhandledException, AddressOf Application_UnhandledException

			InitializeComponent()
		End Sub

		Private Sub Application_Startup(ByVal sender As Object, ByVal e As StartupEventArgs)
			Me.RootVisual = New MainPage()
		End Sub

		Private Sub Application_Exit(ByVal sender As Object, ByVal e As EventArgs)

		End Sub

		Private Sub Application_UnhandledException(ByVal sender As Object, ByVal e As ApplicationUnhandledExceptionEventArgs)
			' If the app is running outside of the debugger then report the exception using
			' the browser's exception mechanism. On IE this will display it a yellow alert 
			' icon in the status bar and Firefox will display a script error.
			If Not Debugger.IsAttached Then

				' NOTE: This will allow the application to continue running after an exception has been thrown
				' but not handled. 
				' For production applications this error handling should be replaced with something that will 
				' report the error to the website and stop the application.
				e.Handled = True
				Deployment.Current.Dispatcher.BeginInvoke(Sub() ReportErrorToDOM(e))
			End If
		End Sub

		Private Sub ReportErrorToDOM(ByVal e As ApplicationUnhandledExceptionEventArgs)
			Try
				Dim errorMsg As String = e.ExceptionObject.Message + e.ExceptionObject.StackTrace
				errorMsg = errorMsg.Replace(""""c, "'"c).Replace(vbCrLf, vbLf)

				System.Windows.Browser.HtmlPage.Window.Eval("throw new Error(""Unhandled Error in Silverlight Application " & errorMsg & """);")
			Catch e1 As Exception
			End Try
		End Sub
	End Class
End Namespace

<UserControl x:Class="Edit_XLS.MainPage"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
    xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
    mc:Ignorable="d"
    d:DesignHeight="300" d:DesignWidth="400">

    <Grid x:Name="LayoutRoot" Background="White">
        <Button Content="Run" Height="23" HorizontalAlignment="Left" Margin="314,248,0,0" Name="button1" VerticalAlignment="Top" Width="75" Click="button1_Click" />
    </Grid>
</UserControl>    

using System.Windows;
using System.Windows.Controls;
using System.Windows.Media;
using System.IO;

using Spire.Xls;

namespace Edit_XLS
{
    public partial class MainPage : UserControl
    {
        private SaveFileDialog saveFiledialog = null;
        public MainPage()
        {
            InitializeComponent();
            this.saveFiledialog = new SaveFileDialog();
            this.saveFiledialog.Filter = "Excel Documents(*.xls)|*.xls";
        }

        private void button1_Click(object sender, RoutedEventArgs e)
        {
            //create a blank workbook
            Workbook workbook = new Workbook();

            //edit the first sheet of the blank workbook
            Worksheet sheet = workbook.Worksheets[0];

            //Write string
            sheet.Range["A1"].Text = "String";
            sheet.Range["B1"].Text = "This text is written by Spire.xls";
            sheet.Range["B1"].HorizontalAlignment = Spire.Xls.HorizontalAlignType.Center;
            sheet.Range["B1"].Style.Font.Color = Colors.Red;

            //Write number
            sheet.Range["A2"].Text = "Number";
            sheet.Range["B2"].NumberValue = 1234.5678;

            //Write date
            sheet.Range["A3"].Text = "DateTime";
            sheet.Range["B3"].DateTimeValue = System.DateTime.Now;

            //Write formula
            sheet.Range["A4"].Text = "Formula";
            sheet.Range["B4"].Formula = "100*100";

            //Write richText
            sheet.Range["A5"].Text = "RichText";
            ExcelFont fontBold = workbook.CreateFont();
            fontBold.IsBold = true;
            ExcelFont fontUnderline = workbook.CreateFont();
            fontUnderline.Underline = FontUnderlineType.Single;
            ExcelFont fontColor = workbook.CreateFont();
            fontColor.KnownColor = ExcelColors.Green;
            RichText richText = sheet.Range["B5"].RichText;
            richText.Text = "Bold and underlined and colored text";
            richText.SetFont(0, 3, fontBold);
            richText.SetFont(9, 18, fontUnderline);
            richText.SetFont(24, 30, fontColor);
            sheet.Range["B5"].AutoFitColumns();
            sheet.Range["B5"].HorizontalAlignment = Spire.Xls.HorizontalAlignType.Center;

            //save the workbook
            bool? result = this.saveFiledialog.ShowDialog();
            if (result.HasValue && result.Value)
            {
                using (Stream stream = this.saveFiledialog.OpenFile())
                {
                    workbook.SaveToStream(stream);
                }
            }
        }
    }
}

Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Media
Imports System.IO

Imports Spire.Xls

Namespace Edit_XLS
	Partial Public Class MainPage
		Inherits UserControl
		Private saveFiledialog As SaveFileDialog = Nothing
		Public Sub New()
			InitializeComponent()
			Me.saveFiledialog = New SaveFileDialog()
			Me.saveFiledialog.Filter = "Excel Documents(*.xls)|*.xls"
		End Sub

		Private Sub button1_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
			'create a blank workbook
			Dim workbook As New Workbook()

			'edit the first sheet of the blank workbook
			Dim sheet As Worksheet = workbook.Worksheets(0)

			'Write string
			sheet.Range("A1").Text = "String"
			sheet.Range("B1").Text = "This text is written by Spire.xls"
			sheet.Range("B1").HorizontalAlignment = Spire.Xls.HorizontalAlignType.Center
			sheet.Range("B1").Style.Font.Color = Colors.Red

			'Write number
			sheet.Range("A2").Text = "Number"
			sheet.Range("B2").NumberValue = 1234.5678

			'Write date
			sheet.Range("A3").Text = "DateTime"
			sheet.Range("B3").DateTimeValue = Date.Now

			'Write formula
			sheet.Range("A4").Text = "Formula"
			sheet.Range("B4").Formula = "100*100"

			'Write richText
			sheet.Range("A5").Text = "RichText"
			Dim fontBold As ExcelFont = workbook.CreateFont()
			fontBold.IsBold = True
			Dim fontUnderline As ExcelFont = workbook.CreateFont()
			fontUnderline.Underline = FontUnderlineType.Single
			Dim fontColor As ExcelFont = workbook.CreateFont()
			fontColor.KnownColor = ExcelColors.Green
			Dim richText As RichText = sheet.Range("B5").RichText
			richText.Text = "Bold and underlined and colored text"
			richText.SetFont(0, 3, fontBold)
			richText.SetFont(9, 18, fontUnderline)
			richText.SetFont(24, 30, fontColor)
			sheet.Range("B5").AutoFitColumns()
			sheet.Range("B5").HorizontalAlignment = Spire.Xls.HorizontalAlignType.Center

			'save the workbook
			Dim result? As Boolean = Me.saveFiledialog.ShowDialog()
			If result.HasValue AndAlso result.Value Then
				Using stream As Stream = Me.saveFiledialog.OpenFile()
					workbook.SaveToStream(stream)
				End Using
			End If
		End Sub
	End Class
End Namespace