โดย manat2519 เมื่อ พฤหัสฯ. เม.ย. 02, 2009 8:48 am
ขอบคุณครับ พอดีศึกษาดูล่ะ เผื่อใครจะได้นำไปใช้
-------------------------------
LOCAL oExcel,oWorkBook,lcExportFile,lcItemNo as integer,i as integer
*Define Excel filename
lcExportFile="C:\StockSummary.XLS"
*Open Excel
oExcel = CREATEOBJECT("Excel.Application")
oWorkBook=oExcel.Workbooks.Open(lcExportFile)
*-----HEAD sheet
oExcel.Sheets("Sheet1").Select
oExcel.ActiveSheet.Range("H1").value ="·ÐàºÕ¹Ê觵èͼÙé»èÇÂ"
oExcel.ActiveSheet.Range("H2").value = " ¾.È. 2552 "
oExcel.ActiveSheet.Range("H3").value = "âç¾ÂÒºÒÅ´Í¡¤Óãµé ¨Ñ§ËÇÑ´¾ÐàÂÒ "
* Head column
oExcel.ActiveSheet.Range("A4").value ="ÅӴѺ"
oExcel.ActiveSheet.Range("B4").value ="ª×èͼÙé»èÇÂ"
oExcel.ActiveSheet.Range("C4").value ="HN"
oExcel.ActiveSheet.Range("D4").value ="à¾È"
oExcel.ActiveSheet.Range("E4").value ="ÍÒÂØ"
oExcel.ActiveSheet.Range("F4").value ="ÀÙÁÔÅÓà¹Ò"
oExcel.ActiveSheet.Range("F5").value ="ÍÓàÀÍ"
oExcel.ActiveSheet.Range("G5").value ="¨Ñ§ËÇÑ´"
oExcel.ActiveSheet.Range("H4").value ="ÃѺ¼Ùé»èǤÃÑé§áá"
oExcel.ActiveSheet.Range("H5").value ="Çѹ·Õè"
oExcel.ActiveSheet.Range("I5").value ="àÇÅÒ"
oExcel.ActiveSheet.Range("J4").value ="ÇѹÊ觵èͼÙé»èÇÂ"
oExcel.ActiveSheet.Range("J5").value ="Çѹ·Õè"
oExcel.ActiveSheet.Range("K5").value ="àÇÅÒ"
oExcel.ActiveSheet.Range("L4").value ="âä/ÀÒÇÐà¨çº»èÇÂ"
oExcel.ActiveSheet.Range("M5").value ="ʶÒÇмÙé»èÇÂ"
oExcel.ActiveSheet.Range("N4").value ="¡ÒûÃÐÊÒ¹Ê觵èͼÙé»èÇÂ"
oExcel.ActiveSheet.Range("N5").value ="þ.·ÕèÃѺ¼Ùé»èÇÂ"
oExcel.ActiveSheet.Range("O5").value ="Çѹ·ÕèÃѺ¼Ùé»èÇÂ"
oExcel.ActiveSheet.Range("P5").value ="ÃÐÂÐàÇÅÒ»ÃÐÊÒ¹"
oExcel.ActiveSheet.Range("Q4").value ="¡Òö١»¯ÔàʸÃѺ¼Ùé»èÇÂ"
oExcel.ActiveSheet.Range("Q5").value ="¨Ó¹Ç¹·Õ軯Ôàʸ"
oExcel.ActiveSheet.Range("R5").value ="ÃÒ·Õè¢Í»¯Ôàʸ"
oExcel.ActiveSheet.Range("S5").value ="à˵¼Å¡Ã³Õ·ÕèäÁèÃѺ"
oExcel.ActiveSheet.Range("T4").value ="¡ÒÃá¨é§¼ÅáÅÐÊ觼Ùé»èÇ¡ÅѺ"
oExcel.ActiveSheet.Range("T5").value ="ÇѹÃѺá¨é§¼Å¡ÅѺ"
oExcel.ActiveSheet.Range("U5").value ="ÇѹÃѺ¼Ùé»èÇ¡ÅѺ"
oExcel.ActiveSheet.Range("V5").value ="ËÁÒÂà˵Ø"
*?????????????? ?????????? ???????????????????????????????????
*----Detail loop
SELECT refer
GO TOP
lcItemNo = 0 && Start item no.
DO WHILE !EOF()
lcItemNo = lcItemNo + 1
i = LTRIM(STR(lcItemNo+5)) && start at row number 4
WAIT WINDOW NOWAIT 'Export item no.='+TRANSFORM(lcItemNo,'9,999')+'..Please wait!'
oExcel.ActiveSheet.Range("A&i").value= lcItemNo &&item no
oExcel.ActiveSheet.Range("B&i").value= ALLTRIM(refer.name)
oExcel.ActiveSheet.Range("C&i").value= refer.hn
oExcel.ActiveSheet.Range("D&i").value= refer.sex
oExcel.ActiveSheet.Range("E&i").value = refer.age
oExcel.ActiveSheet.Range("F&i").value = refer.ampur
oExcel.ActiveSheet.Range("G&i").value = refer.chw
oExcel.ActiveSheet.Range("H&i").value = refer.acceptdate
oExcel.ActiveSheet.Range("I&i").value = refer.accepttime
oExcel.ActiveSheet.Range("J&i").value = refer.refdate
oExcel.ActiveSheet.Range("K&i").value = refer.reftime
oExcel.ActiveSheet.Range("L&i").value = refer.diag
oExcel.ActiveSheet.Range("M&i").value = IIF(refer.statehad='1','Çԡĵ','·ÑèÇä»')
oExcel.ActiveSheet.Range("N&i").value = refer.hospaccept
oExcel.ActiveSheet.Range("O&i").value = refer.dateaccept
oExcel.ActiveSheet.Range("P&i").value = refer.timeaccept
oExcel.ActiveSheet.Range("Q&i").value = refer.countcon
oExcel.ActiveSheet.Range("R&i").value = refer.countnot
oExcel.ActiveSheet.Range("S&i").value = refer.comment
* oExcel.ActiveSheet.Range("T&i").value = refer.dateback
* oExcel.ActiveSheet.Range("U&i").value = refer.dateptback
oExcel.ActiveSheet.Range("V&i").value = refer.comment2
SELECT refer
SKIP
ENDDO
*close workbook
oWorkbook.Save() &&save
oWorkBook.Close()
oExcel.Quit()
RELEASE oExcel,oWorkBook