Asp tutorial. net read excel Data
<% @ Page language = "vb" autoeventwireup = "false" codefile = "excel. aspx. vb" inherits = "_ excel" %>
<! Doctype html public "-// w3c // dtd xhtml 1.0 transitional // en" "http://www.w3.org/tr/xhtml1/dtd/xhtml1-transitional.dtd">
<Html xmlns = "http://www.bKjia. c0m/1999/xhtml">
<Head runat = "server">
<Title> asp.net tutorial reading excel Data </title>
</Head>
<Body>
<Form id = "form1" runat = "server">
<Div>
Worksheet No. <asp: textbox id = "textbox3" runat = "server" width = "60px" text = "1"/>
Row <asp: textbox id = "textbox1" runat = "server" width = "60px" text = "1"/>
Column <asp: textbox id = "textbox2" runat = "server" width = "60px" text = "1"/> <br/>
Excel Data: <input id = "file1" runat = "server" name = "file1" size = "30" type = "file"/>
<Asp: button id = "btnrexcel" runat = "server" text = "reading a column in an excel row"/> </div>
</Form>
</Body>
</Html>
<%
Imports microsoft. office. interop
Partial class _ excel
Inherits system. web. ui. pageProtected sub btnrexcel_click (byval sender as object, byval e as system. eventargs) handles btnrexcel. click
Dim strpath as string = file1.postedfile. filename
If strpath = "" then
Me. response. write ("select the excel data file to import! ")
ElseDim excelfilepath as string = strpath
Dim myexcel as excel. application = new excel. applicationclass () 'create an excel Object
Dim omissing as object = system. reflection. missing. value
Myexcel. application. workbooks. open (audit, omissing, omissing)
Dim mybook as excel. workbook = myexcel. workbooks (1) 'defines a worksheet Group
Dim mysheet as excel. worksheet = ctype (mybook. worksheets (cint (textbox3.text), excel. worksheet) 'defines a worksheetDim r as excel. range = ctype (mysheet. cells (cint (textbox1.text), cint (textbox2.text), excel. range)
Me. response. write ("the value of the & textbox1.text &" row "& textbox2.text &" column in excel: "& (r. value). tostring)
Excelgc (myexcel, mybook, mysheet, r)End if
End sub
'Close the excel Process
Private shared sub excelgc (byref myexcel as excel. application, byref mybook as excel. workbook, byref mysheet as excel. worksheet, byref r as excel. range)
Mybook. close (false, type. missing, type. missing)
Myexcel. quit ()
System. runtime. interops tutorial ervices. marshal. releasecomobject (r)
System. runtime. interopservices. marshal. releasecomobject (myexcel)
System. runtime. interopservices. marshal. releasecomobject (mysheet)
System. runtime. interopservices. marshal. releasecomobject (mybook)
Mysheet = nothing
Mybook = nothing
Myexcel = nothing
R = nothing
Gc. collect ()
End sub
End class
%>
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
