الصفحة الرئيسية>دروس برمجة الشبكات>البرنامج التعليمي لـ ASP

شرح استخدام ASP لإخراج مثيل ملف Excel

الكاتب：Eve Cole وقت التحديث：2025-02-25 00:48:02

المحتوى الرئيسي لهذه المقالة هو استخدام ASP لإخراج أمثلة ملف Excel.

تتمثل إحدى طرق استخدام Excel في ASP في ربط ملف Excel كقاعدة بيانات ، وتشبه العملية تشغيل قاعدة بيانات الوصول. بالنسبة لتنسيق ثابت ، يحتوي هذا التنسيق على دمج خلايا معقد ، وأنماط خط الحدود ، والأنماط ، وعلاقات الصيغة بين الخلايا ، وما إلى ذلك. أعتقد أن أسهل شيء يجب فهمه هو فتح إعداد موجود في ملف القالب الجيد الخلفي ، ثم إدراج البيانات عند الحاجة ، حفظ ، الإخراج ...

الطريقة المذكورة هنا هي إنشاء كائن Excel مباشرة ، والذي يمكنه إجراء عمليات مختلفة على مستند Excel بشكل أكثر ملاءمة في الخلفية.

يحتاج جانب الخادم أيضًا إلى تعيين أذونات تشغيل مكونات COM. اكتب DCOMNFG على سطر الأوامر ، وأدخل واجهة تكوين مكون COM. أعد تشغيل الخادم بعد حفظه.

إنه أمر مهم للغاية.

ومع ذلك ، فإن هذه الطريقة لديها عيب في عملي الفعلي. لم يتم إعدادها بشكل صحيح.

بالإضافة إلى ذلك ، فإن تنسيق رمز المثال في المقالة المذكورة أعلاه غير مكتمل للغاية ، والعديد من فترات الفواصل والمساحات غير دقيقة. البحث وتعديله ، سيكون من السهل البدء.

رمز البرنامج:

  1. <٪
  2. onerrorresumenext
  3. Straddr = server.mappath (.)
  4. setobjexcelapp = createObject (excel.application)
  5. objexcelapp.displayalerts = خطأ
  6. objexcelapp.application.visible = false
  7. objexcelapp.workbooks.open (Straddr &/templet/null.xls)
  8. setobjexcelbook = objexcelapp.activeworkbook
  9. SetObjexcelsheets = Objexcelbook.worksheets
  10. setobjexcelseet = objexcelbook.sheets (1)
  12. Objexcelsheet.range (B2: K2) .value = Array (Week1 ، Week2 ، Week3 ، Week4 ، Week5 ، Week6 ، Week7)
  13. Objexcelsheet.range (B3: K3) .value = صفيف (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 = صفيف (23،3،86،64،60،18،5،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. SEVEAS (Straddr و/temp/excel.xls)
  22. objexcelapp.quit
  23. setobjexcelapp = لا شيء
  24. ٪>
  25. <! doctypehtmlpublic-// w3c // dtdhtml4.0transternal // en>
  26. <html>
  27. <head>
  28. <title> NewDocument </itlem>
  29. <metaname = generatorContent = microsoftfrontpage5.0>
  30. <metaname = upultContent =>
  31. <metaname = الكلمة الرئيسية =>
  32. <metaname = descriptionContent =>
  33. </head>
  34. <body>
  35. </body>
  36. </html>

بعد تشغيل ملف Excel ، تحتاج إلى إخراج الملف في الواقع لفتح مباشرة في IE ، لا تضعه في تحميل ملف Excel مع FSO ثم إخراجه في IE.

رمز البرنامج:

  1. <٪
  3. Dimfso ، filext ، strfilepath ، mime
  4. strfilepath = f: /aspxuexi.doc
  5. setfso = server.createBject (scripting.filesystemObject)
  6. filext = fso.getextensionName (strfilepath)
  7. setfso = لا شيء
  9. seleccaseFileStext
  10. كاسدوك
  11. MIME = التطبيق/msword
  12. casexls
  13. MIME = التطبيق/msexcel
  14. endselect
  16. Calloutput (Strfilepath ، MIME)
  18. ##################################################################### #####
  19. وظيفته (StrfilePath ، MIME)
  20. استجابة. contenttype = mime
  21. constadtypebinary = 1
  22. setObjStream = server.createBject (adodb.stream)
  23. objstream.Open
  24. objstream.type = adtypebinary
  25. objstream.loadfromfilestrfilepath
  26. استجابة
  27. objstream.close
  28. setObjStream = لا شيء
  29. الوظيفية
  30. ##################################################################### #####
  31. ٪>

في التطبيق الفعلي ، عندما يقوم الخادم بتشغيل برنامج Excel أو Access ، يقدم العميل إنشاء كائن Excel.Application دون نجاح. لا يمكن أن يكون الطلب ناجحًا أيضًا!

هناك أمثلة ناجحة على الشبكة الداخلية من قسمنا. يعمل على شبكة أمان العميل IE ، هو أنه يمكنك وضع مستوى منخفض والسماح بتشغيل ActiveX ذي الصلة (أي ، قم بتعيين جميع أنواع الأشياء المتعلقة بالأمان للسماح في خيارات أداة IE ، وأي عنصر محدد ليس التحقيق).

يشبه الرمز الذي تم تنفيذه السجل السابق ، والأبسط هو كما يلي:

رمز البرنامج:

  1. <scriptLanguage = vbscript>
  3. setobjexcelapp = createObject (excel.application)
  4. objexcelapp.displayalerts = صحيح
  6. objexcelapp.workbooks.open (http://xxx.xxx.xxx/xxx.xls)
  7. "ملف XLS مع عنوان الشبكة الكامل ، تم تنسيق هذا الملف وطباعته ، وحفظه على الخادم
  8. setobjexcelbook = objexcelapp.activeworkbook
  9. SetObjexcelsheets = Objexcelbook.worksheets
  10. setobjexcelseet = objexcelbook.sheets (1)
  11. '==== فيما يلي عبارات تملأ البيانات على خلايا Excel.
  12. على سبيل المثال: reponse.writeobjexcelseet.range (b2) .value = & rs (xxx) &
  13. 'أو objexcelsheet.range (b2) .value = <٪ = rs (xxx) ٪>
  15. Objexcelsheet.range (B2: K2) .value = Array (Week1 ، Week2 ، Week3 ، Week4 ، Week5 ، Week6 ، Week7)
  16. Objexcelsheet.range (B3: K3) .value = صفيف (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 = صفيف (23،3،86،64،60،18،5،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.

مقالات ذات صلة