<% Option Explicit %> <html> <head> <title>ThaiCreate.Com ASP Excel.Application Tutorial</title> </head> <body> <% Dim xlApp,xlBook,xlSheet1,FileName Dim Fso,MyFile FileName = "MyXls/MyExcel.xls" Const xlEdgeLeft = 7 Const xlEdgeTop = 8 Const xlEdgeBottom = 9 Const xlEdgeRight = 10 '*** Create Excel.Application ***' Set xlApp = Server.CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add '*** Create Sheet 1 ***' Set xlSheet1 = xlBook.Worksheets(1) xlSheet1.Name = "My Sheet1" xlApp.Application.Visible = False '*** Write text to Row 1 Column 1 ***' With xlApp.ActiveSheet.Cells(1,1) .Value = "ThaiCreate.Com" End With '*** MergeCells ***' With xlApp.ActiveSheet.Range("C3:D4") .MergeCells = True .BORDERS.Weight = 2 End With '*** Write Cell Border & MergeCells ***' With xlApp.ActiveSheet.Range("B7:D9") .MergeCells = True .BORDERS(xlEdgeLeft).Weight = 2 .BORDERS(xlEdgeTop).Weight = 2 .BORDERS(xlEdgeBottom).Weight = 2 .BORDERS(xlEdgeRight).Weight = 2 End With '*** If Files Already Exist Delete files ***' Set Fso = CreateObject("Scripting.FileSystemObject") If (Fso.FileExists(Server.MapPath(FileName))) Then Set MyFile = Fso.GetFile(Server.MapPath(FileName)) MyFile.Delete End If '*** Save Excel ***' 'xlSheet1.PrintOut 1 '*** Print to printer ***' xlSheet1.SaveAs Server.MapPath(FileName) xlApp.Application.Quit '*** Quit and Clear Object ***' Set xlSheet1 = Nothing Set xlBook = Nothing Set xlApp = Nothing %> Excel Created <a href="<%=FileName%>">Click here</a> to Download. </body> </html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 03
