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>
+ Show More
Explore SDK documentations here.
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
+ Show More
Explore SDK documentations here.
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
+ Show More
Explore SDK documentations here.