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
��' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
' < a u t o - g e n e r a t e d >
' T h i s c o d e w a s g e n e r a t e d b y a t o o l .
' R u n t i m e V e r s i o n : 2 . 0 . 5 0 7 2 7 . 4 9 2 7
'
' C h a n g e s t o t h i s f i l e m a y c a u s e i n c o r r e c t b e h a v i o r a n d w i l l b e l o s t i f
' t h e c o d e i s r e g e n e r a t e d .
' < / a u t o - g e n e r a t e d >
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
' ' ' < s u m m a r y >
' ' ' _ D e f a u l t c l a s s .
' ' ' < / s u m m a r y >
' ' ' < r e m a r k s >
' ' ' A u t o - g e n e r a t e d c l a s s .
' ' ' < / r e m a r k s >
P u b l i c P a r t i a l C l a s s _ D e f a u l t
' ' ' < s u m m a r y >
' ' ' f o r m 1 c o n t r o l .
' ' ' < / s u m m a r y >
' ' ' < r e m a r k s >
' ' ' A u t o - g e n e r a t e d f i e l d .
' ' ' T o m o d i f y m o v e f i e l d d e c l a r a t i o n f r o m d e s i g n e r f i l e t o c o d e - b e h i n d f i l e .
' ' ' < / r e m a r k s >
P r o t e c t e d f o r m 1 A s G l o b a l . S y s t e m . W e b . U I . H t m l C o n t r o l s . H t m l F o r m
' ' ' < s u m m a r y >
' ' ' L a b e l 1 c o n t r o l .
' ' ' < / s u m m a r y >
' ' ' < r e m a r k s >
' ' ' A u t o - g e n e r a t e d f i e l d .
' ' ' T o m o d i f y m o v e f i e l d d e c l a r a t i o n f r o m d e s i g n e r f i l e t o c o d e - b e h i n d f i l e .
' ' ' < / r e m a r k s >
P r o t e c t e d L a b e l 1 A s G l o b a l . S y s t e m . W e b . U I . W e b C o n t r o l s . L a b e l
' ' ' < s u m m a r y >
' ' ' L a b e l 2 c o n t r o l .
' ' ' < / s u m m a r y >
' ' ' < r e m a r k s >
' ' ' A u t o - g e n e r a t e d f i e l d .
' ' ' T o m o d i f y m o v e f i e l d d e c l a r a t i o n f r o m d e s i g n e r f i l e t o c o d e - b e h i n d f i l e .
' ' ' < / r e m a r k s >
P r o t e c t e d L a b e l 2 A s G l o b a l . S y s t e m . W e b . U I . W e b C o n t r o l s . L a b e l
' ' ' < s u m m a r y >
' ' ' D r o p D o w n L i s t 1 c o n t r o l .
' ' ' < / s u m m a r y >
' ' ' < r e m a r k s >
' ' ' A u t o - g e n e r a t e d f i e l d .
' ' ' T o m o d i f y m o v e f i e l d d e c l a r a t i o n f r o m d e s i g n e r f i l e t o c o d e - b e h i n d f i l e .
' ' ' < / r e m a r k s >
P r o t e c t e d D r o p D o w n L i s t 1 A s G l o b a l . S y s t e m . W e b . U I . W e b C o n t r o l s . D r o p D o w n L i s t
' ' ' < s u m m a r y >
' ' ' B u t t o n G o c o n t r o l .
' ' ' < / s u m m a r y >
' ' ' < r e m a r k s >
' ' ' A u t o - g e n e r a t e d f i e l d .
' ' ' T o m o d i f y m o v e f i e l d d e c l a r a t i o n f r o m d e s i g n e r f i l e t o c o d e - b e h i n d f i l e .
' ' ' < / r e m a r k s >
P r o t e c t e d B u t t o n G o A s G l o b a l . S y s t e m . W e b . U I . W e b C o n t r o l s . B u t t o n
E n d C l a s s
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