How to use ASP & Get Data From excel Worksheet (Microsoft Excel Driver (*.xls)) This is learn/tutorial asp developers how to using ASP script Get Data From excel Worksheet.
ShotDev Focus:
- ASP & Get Data From excel Worksheet.
Example
asp_excel_get_data.asp
<%Option Explicit%> <html> <head> <title>ShotDev.Com Tutorial</title> </head> <body> <% Dim Conn,strSQL,objRec,OpenFile OpenFile = "MyXls/MyExcelDB.xls" Set Conn = Server.Createobject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Excel Driver (*.xls)}; IMEX=1; HDR=NO; "&_ "Excel 8.0; DBQ=" & Server.MapPath(OpenFile) & "; " strSQL = "SELECT * FROM [Sheet1$]" Set objRec = Server.CreateObject("ADODB.Recordset") objRec.Open strSQL, Conn, 1,3 If objRec.EOF Then Response.write (" Not found record.") Else Dim PageLen,PageNo,TotalRecord,TotalPage,No,intID PageLen = 2 PageNo = Request.QueryString("Page") if PageNo = "" Then PageNo = 1 TotalRecord = objRec.RecordCount objRec.PageSize = PageLen TotalPage = objRec.PageCount objRec.AbsolutePage = PageNo %> <table width="420" border="1"> <tr> <td>CustomerID</td> <td>Name</td> <td>Email</td> <td>CountryCode</td> <td>Budget</td> <td>Used</td> </tr> <% No=1 Do While Not objRec.EOF and No <= PageLen %> <tr> <td><%=objRec.Fields("CustomerID").Value%></td> <!-- objRec.Fields(0).Value or objRec.Fields("CustomerID").Value --> <td><%=objRec.Fields("Name").Value%></td> <td><%=objRec.Fields("Email").Value%></td> <td><%=objRec.Fields("CountryCode").Value%></td> <td><%=objRec.Fields("Budget").Value%></td> <td><%=objRec.Fields("Used").Value%></td> </tr> <% No = No + 1 objRec.MoveNext Loop %> </table> Total : <%=TotalRecord%> Page <%=PageNo%> All Page <%=TotalPage%> <% IF Cint(PageNo) > 1 then %> <a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?Page=1"><< First</a> <a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=PageNo-1%>">< Back</a> <% End IF%> <% IF Cint(PageNo) < TotalPage Then %> <a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=PageNo+1%>">Next ></a> <a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=TotalPage%>">Last >></a> <% End IF%> <br> Go to <% For intID = 1 To TotalPage%> <% if intID = Cint(PageNo) Then%> <b><%=intID%></b> <%Else%> <a href="<%Request.ServerVariables("SCRIPT_NAME")%>?Page=<%=intID%>"><%=intID%></a> <%End IF%> <%Next%> <% End IF objRec.Close() Conn.Close() Set objRec = Nothing Set Conn = Nothing %> </body> </html>
Create a asp file and save to path root-path/myasp/
Run
http://localhost/myasp/asp_excel_get_data.asp
Screenshot
1funeral…
…