<% Option Explicit %> <html> <head> <title>ThaiCreate.Com ASP Excel.Application Tutorial</title> </head> <body> <% Dim OpenFile,i Dim Conn,objRec,strSQL OpenFile = "MyXls/MyExcelDB.xls" Set Conn = Server.CreateObject("ADODB.Connection") '*** Connect to Excel ***' Conn.Open "DRIVER={Microsoft Excel Driver (*.xls)}; IMEX=1; HDR=NO; "&_ "Excel 8.0; DBQ=" & Server.MapPath(OpenFile) & "; " '*** Select Sheet ***' strSQL = "SELECT * FROM [Sheet1$]" Set objRec = Conn.Execute(strSQL) %> <table width="420" border="1"> <tr> <td>Column1</td> <td>Column2</td> <td>Column3</td> <td>Column4</td> </tr> <% While Not objRec.EOF %> <tr> <td><%=objRec.Fields("Column1").Value%></td> <!-- objRec.Fields(0).Value or objRec.Fields("Column1").Value --> <td><%=objRec.Fields("Column2").Value%></td> <td><%=objRec.Fields("Column3").Value%></td> <td><%=objRec.Fields("Column4").Value%></td> </tr> <% objRec.MoveNext Wend %> </table> <% objRec.Close Conn.Close Set objRec=Nothing Set Conn=Nothing %> </body> </html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 00
