หน้าแรก>บทช่วยสอนการเขียนโปรแกรมเครือข่าย>กวดวิชา ASP

คำอธิบายการใช้อินสแตนซ์ไฟล์ ASP เพื่อเอาต์พุต Excel

ผู้เขียน：Eve Cole เวลาอัปเดต：2025-02-25 00:48:02

เนื้อหาหลักของบทความนี้คือการใช้ ASP เพื่อส่งออกตัวอย่างไฟล์ Excel

วิธีหนึ่งในการใช้ Excel ใน ASP คือการเชื่อมโยงไฟล์ Excel เป็นฐานข้อมูลและการดำเนินการนั้นคล้ายกับการดำเนินการฐานข้อมูลการเข้าถึง สำหรับรูปแบบคงที่รูปแบบนี้มีการรวมเซลล์ที่ซับซ้อนรูปแบบเส้นขอบรูปแบบรูปแบบความสัมพันธ์สูตรระหว่างเซลล์ ฯลฯ ฉันคิดว่าสิ่งที่ง่ายที่สุดที่จะเข้าใจคือการเปิดการตั้งค่าที่มีอยู่ในไฟล์เทมเพลตที่ดี , บันทึก, เอาต์พุต ...

วิธีการที่กล่าวถึงในที่นี้คือการสร้างวัตถุ Excel โดยตรงซึ่งสามารถดำเนินการต่าง ๆ บนเอกสาร Excel ได้อย่างสะดวกยิ่งขึ้นในพื้นหลัง

ฝั่งเซิร์ฟเวอร์ยังจำเป็นต้องตั้งค่าสิทธิ์การทำงานของส่วนประกอบ COM พิมพ์ DCOMCNFG บนบรรทัดคำสั่งและป้อนอินเตอร์เฟสการกำหนดค่าคอมโพเนนต์ COM รีสตาร์ทเซิร์ฟเวอร์หลังจากบันทึก

มันสำคัญมาก

อย่างไรก็ตามวิธีนี้ยังมีข้อเสียเปรียบ ยังไม่ได้ตั้งค่าอย่างถูกต้อง

นอกจากนี้รูปแบบรหัสตัวอย่างในบทความที่ยกมาข้างต้นไม่สมบูรณ์มากและช่องว่างและช่องว่างจำนวนมากไม่ถูกต้อง การวิจัยและแก้ไขมันจะเริ่มต้นได้ง่าย

รหัสโปรแกรม:

  1. -
  2. onerrorresumenext
  3. straddr = server.mappath (.)
  4. setObjExcelApp = createObject (excel.application)
  5. objexcelapp.displayalerts = false
  6. objexcelapp.application.visible = false
  7. objexcelapp.workbooks.open (straddr &/templet/null.xls)
  8. setObjExcelbook = objexcelapp.activeworkbook
  9. setobjexcelsheets = objexcelbook.worksheets
  10. setobjexcelsheet = objexcelbook.sheets (1)
  12. OBJEXCELSSHEET.Range (B2: K2) .Value = Array (Week1, Week2, Week3, Week4, Week5, Week6, Week6, Week7)
  13. Objexcelsheet.Range (B3: K3) .Value = Array (67,87,5,9,7,45,45,54,54,10)
  14. Objexcelsheet.Range (B4: K4) .Value = อาร์เรย์ (10,10,8,27,33,37,50,54,10,10)
  15. Objexcelsheet.Range (B5: K5) .Value = Array (23,3,86,64,60,18,5,1,1,36,80)
  16. objexcelsheet.cells (3,1) .Value = internetExPlorer
  17. objexcelsheet.cells (4,1) .Value = netScape
  18. objexcelsheet.cells (5,1) .Value = อื่น ๆ
  19. objexcelsheet.Range (B2: K5) .Select
  21. Saveas (straddr &/temp/excel.xls)
  22. objexcelapp.quit
  23. SetObjExcelApp = ไม่มีอะไร
  24. -
  25. <! doctypehtmlpublic-// w3c // dtdhtml4.0transitional // en>
  26. <html>
  27. <head>
  28. <title> NewDocument </title>
  29. <metaname = generatorContent = MicrosoftFrontPage5.0>
  30. <metaname = utherContent =>
  31. <metaname = keywordscontent =>
  32. <metaname = descriptionContent =>
  33. </head>
  34. <body>
  35. </body>
  36. </html>

หลังจากใช้งานไฟล์ Excel คุณต้องส่งออกไฟล์ หากต้องการเปิดโดยตรงใน IE อย่าวางไฟล์ Excel ด้วย FSO แล้วเอาต์พุตใน IE

รหัสโปรแกรม:

  1. -
  3. dimfso, fileext, strfilepath, mime
  4. strfilepath = f: /aspxuexi.doc
  5. setfso = server.createObject (scripting.filesystemobject)
  6. fileext = fso.getextensionName (strfilePath)
  7. setfso = ไม่มีอะไร
  9. SELECTCASEFILEEXT
  10. casedoc
  11. mime = application/msword
  12. casexls
  13. mime = application/msexcel
  14. endelect
  16. Coloutput (StrFilePath, MIME)
  18. '################################################################# #####
  19. functionOutput (strfilepath, mime)
  20. Response.ContentType = MIME
  21. ConstadTypeBinary = 1
  22. setObjstream = server.createObject (adodb.stream)
  23. objstream.open
  24. objstream.type = adtypebinary
  25. objstream.loadFromFilestFilePath
  26. Response.binaryWriteobjstream.read
  27. objstream.close
  28. setObjstream = ไม่มีอะไร
  29. endfunction
  30. '################################################################# #####
  31. -

ในแอปพลิเคชันจริงเมื่อเซิร์ฟเวอร์กำลังเรียกใช้โปรแกรม Excel หรือการเข้าถึงไคลเอนต์ส่งการจัดตั้งวัตถุ Excel.Application โดยไม่ประสบความสำเร็จ . คำขอไม่สามารถประสบความสำเร็จได้!

มีตัวอย่างที่ประสบความสำเร็จในเครือข่ายภายในของแผนกของเรา การทำงานบนเครือข่ายพื้นที่ท้องถิ่นระดับความปลอดภัยของไคลเอน ตรวจสอบแล้ว)

รหัสที่นำไปใช้นั้นคล้ายกับบันทึกก่อนหน้าและข้อความที่ง่ายที่สุดมีดังนี้:

รหัสโปรแกรม:

  1. <scriptLanguage = vbscript>
  3. setObjExcelApp = createObject (excel.application)
  4. objexcelapp.displayalerts = true
  6. objexcelapp.workbooks.open (http://xxx.xxx.xxx/xxx.xls)
  7. 'ไฟล์ XLS ที่มีที่อยู่เครือข่ายที่สมบูรณ์ไฟล์นี้ได้รับการจัดรูปแบบและพิมพ์และบันทึกบนเซิร์ฟเวอร์
  8. setObjExcelbook = objexcelapp.activeworkbook
  9. setobjexcelsheets = objexcelbook.worksheets
  10. setobjexcelsheet = objexcelbook.sheets (1)
  11. '==== นี่คือคำสั่งที่เติมข้อมูลในเซลล์ Excel
  12. 'ตัวอย่าง: response.writeobjexcelsheet.range (b2) .value = & rs (xxx) &
  13. 'หรือ objexcelsheet.Range (b2) .Value = <%= rs (xxx)%>
  15. OBJEXCELSSHEET.Range (B2: K2) .Value = Array (Week1, Week2, Week3, Week4, Week5, Week6, Week6, Week7)
  16. Objexcelsheet.Range (B3: K3) .Value = Array (67,87,5,9,7,45,45,54,54,10)
  17. Objexcelsheet.Range (B4: K4) .Value = อาร์เรย์ (10,10,8,27,33,37,50,54,10,10)
  18. Objexcelsheet.Range (B5: K5) .Value = Array (23,3,86,64,60,18,5,1,1,36,80)
  19. objexcelsheet.cells (3,1) .Value = internetExPlorer
  20. objexcelsheet.cells (4,1) .Value = netScape
  21. objexcelsheet.cells (5,1) .Value = อื่น ๆ
  22. -
  24. 'objexcelapp.quit
  25. 'SetObjExcelApp = ไม่มีอะไร
  27. </script>

ในรหัสข้างต้น

  1. 'objexcelapp.quit
  2. 'SetObjExcelApp = ไม่มีอะไร

ในการยกเลิกอย่าปิด excel.applicaition ที่นี่มิฉะนั้น Excel จะถูกปิดหลังจากกรอกข้อมูล

ข้างต้นเป็นกระบวนการทั้งหมดของการใช้ ASP เพื่อส่งออกไฟล์ Excel

บทความที่เกี่ยวข้อง