<% Option Explicit %> <html> <head> <title>ThaiCreate.Com ASP Excel.Application Tutorial</title> </head> <body> <% Dim xlApp,xlBook,xlSheet1,OpenFile,i OpenFile = "MyXls/MyExcelDB.xls" '*** Create Exce.Application ***' Set xlApp = Server.CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(Server.MapPath(OpenFile)) Set xlSheet1 = xlBook.Worksheets(1) %> <table width="420" border="1"> <%For i = 1 To 5%> <tr> <td><%=xlSheet1.Cells.Item(i,1)%></td> <td><%=xlSheet1.Cells.Item(i,2)%></td> <td><%=xlSheet1.Cells.Item(i,3)%></td> <td><%=xlSheet1.Cells.Item(i,4)%></td> </tr> <%Next%> </table> <% xlApp.Application.Quit '*** Quit and Clear Object ***' Set xlSheet1 = Nothing Set xlBook = Nothing Set xlApp = Nothing %> </body> </html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 02
