Link Search Menu Expand Document

Display XLS as HTML - ASP.NET VB.NET

Spreadsheet SDK sample in ASP.NET VB.NET demonstrating ‘Display XLS as HTML’

Default.aspx
<%@ Page Language="C#" AutoEventWireup="true" CodeBehind="Default.aspx.cs" Inherits="DisplayXlsAsHtml._Default" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>Untitled Page</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:Label ID="Label1" runat="server" Width="311px"></asp:Label><br />
        <br />
        <asp:Label ID="Label2" runat="server" Text="Select worksheet to display: "></asp:Label>
        <asp:DropDownList ID="DropDownList1" runat="server"
            Width="233px">
        </asp:DropDownList>
        <asp:Button ID="ButtonGo" runat="server" Text="Go" Width="45px" OnClick="ButtonGo_Click" /></div>
    </form>
</body>
</html>

Default.aspx.designer.vb
��'------------------------------------------------------------------------------

' <auto-generated>

'     This code was generated by a tool.

'     Runtime Version:2.0.50727.4927

'

'     Changes to this file may cause incorrect behavior and will be lost if

'     the code is regenerated.

' </auto-generated>

'------------------------------------------------------------------------------







''' <summary>

''' _Default class.

''' </summary>

''' <remarks>

''' Auto-generated class.

''' </remarks>

Public Partial Class _Default



	''' <summary>

	''' form1 control.

	''' </summary>

	''' <remarks>

	''' Auto-generated field.

	''' To modify move field declaration from designer file to code-behind file.

	''' </remarks>

	Protected form1 As Global.System.Web.UI.HtmlControls.HtmlForm



	''' <summary>

	''' Label1 control.

	''' </summary>

	''' <remarks>

	''' Auto-generated field.

	''' To modify move field declaration from designer file to code-behind file.

	''' </remarks>

	Protected Label1 As Global.System.Web.UI.WebControls.Label



	''' <summary>

	''' Label2 control.

	''' </summary>

	''' <remarks>

	''' Auto-generated field.

	''' To modify move field declaration from designer file to code-behind file.

	''' </remarks>

	Protected Label2 As Global.System.Web.UI.WebControls.Label



	''' <summary>

	''' DropDownList1 control.

	''' </summary>

	''' <remarks>

	''' Auto-generated field.

	''' To modify move field declaration from designer file to code-behind file.

	''' </remarks>

	Protected DropDownList1 As Global.System.Web.UI.WebControls.DropDownList



	''' <summary>

	''' ButtonGo control.

	''' </summary>

	''' <remarks>

	''' Auto-generated field.

	''' To modify move field declaration from designer file to code-behind file.

	''' </remarks>

	Protected ButtonGo As Global.System.Web.UI.WebControls.Button

End Class


Default.aspx.vb

Imports Bytescout.Spreadsheet

Public Partial Class _Default
	Inherits System.Web.UI.Page

    ' IF YOU SEE TEMPORARY FOLDER ACCESS ERRORS: 

    ' Temporary folder access is required for web application when you use ByteScout SDK in it.
    ' If you are getting errors related to the access to temporary folder like "Access to the path 'C:\Windows\TEMP\... is denied" then you need to add permission for this temporary folder to make ByteScout SDK working on that machine and IIS configuration because ByteScout SDK requires access to temp folder to cache some of its data for more efficient work.

    ' SOLUTION:

    ' If your IIS Application Pool has "Load User Profile" option enabled the IIS provides access to user's temp folder. Check user's temporary folder

    ' If you are running Web Application under an impersonated account or IIS_IUSRS group, IIS may redirect all requests into separate temp folder like "c:\temp\".

    ' In this case
    ' - check the User or User Group your web application is running under
    ' - then add permissions for this User or User Group to read and write into that temp folder (c:\temp or c:\windows\temp\ folder)
    ' - restart your web application and try again


	Private _document As Spreadsheet = Nothing

	Protected Sub Page_Load(sender As Object, e As EventArgs)

		Dim inputXlsFile As String = Server.MapPath("example.xls")

		' Open spreadsheet
		_document = New Spreadsheet()
		_document.LoadFromFile(inputXlsFile)

		Label1.Text = """Example.xls"" loaded"

		For i As Integer = 0 To _document.Worksheets.Count - 1
			DropDownList1.Items.Add(_document.Worksheets(i).Name)
		Next

	End Sub

	Protected Sub ButtonGo_Click(ByVal sender As Object, ByVal e As EventArgs)

		Dim sheet As String = DropDownList1.SelectedItem.Text

		If Not String.IsNullOrEmpty(sheet) Then

			' Clear HTTP output
			Response.Clear()
			' Set the content type to HTML
			Response.ContentType = "text/HTML"
			' Save selected worksheet to output stream as HTML
			_document.Worksheets(sheet).SaveAsHTML(Response.OutputStream)

			Response.End()

		End If

	End Sub
End Class

Download Source Code (.zip)

Return to the previous page Explore Spreadsheet SDK


Copyright © 2016 - 2021 ByteScout