1. استخدام OWC
ما هو OWC؟
OWC هو اختصار لـ Office Web Compent، وهو مكون Microsoft Office Web وهو يوفر آلية مرنة وأساسية لرسم الرسومات على الويب. في بيئة الإنترانت، إذا كان من الممكن افتراض وجود مستعرض معين وبعض البرامج القوية (مثل IE5 وOffice 2000) على جهاز الكمبيوتر العميل، فمن الممكن استخدام Office Web Components لتوفير بيئة تطوير رسومية تفاعلية. في هذا الوضع، ستشارك محطة عمل العميل نسبة كبيرة من المهمة بأكملها.
<%الخيار صريح
ClassExcelGen
جدول بيانات obj خاص
iColOffset
خاص iRowOffset
SubClass_Initialize()
تعيين objSpreadsheet = Server.CreateObject("OWC.Spreadsheet")
إي رووفسيت = 2
iColOffset=2
نهاية Sub
Sub Class_Terminate()
تعيين objSpreadsheet = لا شيء "تنظيف".
نهاية
الملكية العامة الفرعية دع ColumnOffset(iColOff)
إذا iColOff> 0 ثم
iColOffset = iColOff
آخر
iColOffset=2
نهاية إذا
نهاية الملكية
الملكية العامة دع RowOffset(iRowOff)
إذا iRowOff> 0 ثم
iRowOffset = iRowOff
آخر
إي رووفسيت = 2
نهاية إذا
نهاية الخاصية الفرعية GenerateWorksheet (objRS)
'ملء ورقة عمل Excel بناءً على محتويات مجموعة السجلات
'ابدأ بعرض العناوين
إذا كان objRS.EOF، فقم بالخروج من Sub
خافت objField، iCol، iRow
iCol = iColOffset
iRow = iRowOffset
لكل objField في objRS.Fields
objSpreadsheet.Cells(iRow, iCol).Value = objField.Name
objSpreadsheet.Columns(iCol).AutoFitColumns
'قم بتعيين الخط في جدول Excel
objSpreadsheet.Cells(iRow, iCol).Font.Bold = True
objSpreadsheet.Cells(iRow, iCol).Font.Italic = خطأ
objSpreadsheet.Cells(iRow, iCol).حجم الخط = 10
objSpreadsheet.Cells(iRow, iCol).Halignment = 2 'Centered
آي كول = آي كول + 1
التالي 'objField
'عرض كافة البيانات
افعل بينما لا objRS.EOF
آي رو = آي رو + 1
iCol = iColOffset
لكل objField في objRS.Fields
إذا كان IsNull(objField.Value) إذن
objSpreadsheet.Cells(iRow, iCol).Value = ""
آخر
objSpreadsheet.Cells(iRow, iCol).Value = objField.Value
objSpreadsheet.Columns(iCol).AutoFitColumns
objSpreadsheet.Cells(iRow, iCol).Font.Bold = False
objSpreadsheet.Cells(iRow, iCol).Font.Italic = خطأ
objSpreadsheet.Cells(iRow, iCol).حجم الخط = 10
نهاية إذا
آي كول = آي كول + 1
التالي 'objField
objRS.MoveNext
حلقة
End Sub Function SaveWorksheet(strFileName)
'احفظ ورقة العمل باسم ملف محدد
على خطأ استئناف التالي
استدعاء objSpreadsheet.ActiveSheet.Export(strFileName, 0)
SaveWorksheet = (Err.Number = 0)
وظيفة النهاية
نهاية الفئة
خافت objRS
تعيين objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "SELECT * FROM xxxx"، "Provider=SQLOLEDB.1;معلومات الأمان المستمرة
=True;معرف المستخدم=xxxx;كلمة المرور=xxxx;الكتالوج الأولي=xxxx;مصدر البيانات=xxxx;"
اسم الحفظ الخافت
SaveName = Request.Cookies("savename")("name")
كائن خافتExcel
DimExcelPath
ExcelPath = "Excel" & SaveName & ".xls"
تعيين objExcel = ExcelGen الجديد
objExcel.RowOffset = 1
objExcel.ColumnOffset = 1
objExcel.GenerateWorksheet(objRS)
إذا كان objExcel.SaveWorksheet(Server.MapPath(ExcelPath)) إذن
'Response.Write "＜html＞＜body bgcolor='gainsboro' text='#000000'＞ تم الحفظ كملف Excel.
＜a href='" & server.URLEncode(ExcelPath) & "'＞تنزيل＜/a＞ "
آخر
Response.Write "حدث خطأ أثناء الحفظ!"
نهاية إذا
تعيين objExcel = لا شيء
objRS.Close
تعيين objRS = لا شيء
%>
2. استخدم مكون تطبيق Excel للتصدير إلى Excel أو Word على العميل
ملاحظة: "البيانات" في الوظيفتين هي معرف الجدول الذي سيتم تصديره في صفحة الويب
<input type = "hidden" name = "out_word". " onclick = "vbscript :buildDoc" value = "التصدير إلى الكلمة" class = "notPrint">
＜نوع الإدخال = "hidden" name = "out_excel" onclick = "AutomateExcel ()؛" value = "تصدير إلى Excel" class = "notPrint">
تصدير إلى كود Excel
＜ SCRIPT LANGUAGE = "javascript">
<!--
الدالة AutomateExcel()
{
// ابدأ تشغيل Excel واحصل على كائن التطبيق.
var oXL = new ActiveXObject("Excel.Application");
// احصل على مصنف جديد.
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
جدول فار = document.all.data;
var Hang = table.rows.length;
var
lie = table.rows(0).cells.length;
لـ (i=0;i<hang;i++)
{
ل(ي=0;ي<lie;j++)
{
oSheet.Cells(i+1,j+1).value = table.rows(i).cells(j).innerText;
}
}
oXL.Visible = true;
oXL.UserControl = true;
}
//-->
＜/SCRIPT＞
تصدير إلى كود Word
＜script language="vbscript"＞
مستند البناء الفرعي
تعيين الجدول = document.all.data
الصف = الجدول. الصفوف. الطول
العمود = table.rows(1).cells.length
Set objWordDoc = CreateObject("Word.Document")
objWordDoc.Application.Documents.Add theTemplate، False
objWordDoc.Application.Visible=True
Dim theArray(20,10000)
لأني = 0 إلى الصف 1
لـ j=0 إلى العمود-1
theArray(j+1,i+1) = table.rows(i).cells(j).innerTEXT
التالي
التالي
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("مجموعة نتائج الاستعلام الشاملة") // عرض عنوان الجدول
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("")
تعيين rngPara = objWordDoc.Application.ActiveDocument.Paragraphs(1).Range
مع rngPara
.Bold = True // اجعل العنوان غامقًا
.ParagraphFormat.Alignment = 1 //توسيط العنوان
.Font.Name = "البرنامج النصي الرسمي" // قم بتعيين خط العنوان
.Font.Size = 18 //ضبط حجم خط العنوان
نهاية مع
تعيين rngCurrent = objWordDoc.Application.ActiveDocument.Paragraphs(3).Range
تعيين tabCurrent = ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,row,column)
لـ i = 1 إلى العمود
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.InsertAfter theArray (ط، 1)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.ParagraphFormat.alignment=1
التالي
لأني = 1 إلى العمود
ل ي = 2 للصف
objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.InsertAfter theArray(i,j)
objWordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.ParagraphFormat.alignment=1
التالي
التالية
الفرعية
＜/SCRIPT＞
3. افتحه مباشرة في IE، ثم احفظه كملف EXCEL.
استخدم تنسيق <table> لعرض البيانات المقروءة على صفحة الويب، وفي نفس الوقت، أضف الجملة التالية لعرض EXCEL الجدول على العميل.
<%response.ContentType ="application/vnd.ms-excel"%>
ملاحظة: في الصفحة المعروضة، يتم إخراج <table> فقط ومن الأفضل عدم إخراج معلومات بخلاف الجداول الأخرى.
4. قم بتصدير ملف CSV مفصولاً بفواصل نصف العرض.
استخدم الأسلوب fso لإنشاء ملف نصي وإنشاء ملف CSV بملحق. في هذا الملف، سطر واحد هو سطر واحد من جدول البيانات. إنشاء حقول جدول البيانات مفصولة بفواصل نصف العرض. (لن يتم تقديم طريقة إنشاء الملفات النصية بواسطة fso هنا)
مقدمة إلى ملفات CSV (الملفات المفصولة بفواصل)
حدد هذا الخيار وسيقوم النظام بإنشاء ملف CSV للتنزيل، وهو تنسيق الملف الأكثر شيوعًا الذي يمكن استيراده إليه أشكال الكمبيوتر المختلفة وقواعد البيانات بسهولة بالغة.
يرجى ملاحظة أنه حتى إذا قمت بتحديد جدول كتنسيق الإخراج، فلا يزال بإمكانك تنزيل النتائج كملف CSV. في أسفل شاشة إخراج الجدول، يوجد خيار "ملف CSV"، انقر عليه لتنزيل الملف.
إذا قمت بتكوين المتصفح الخاص بك لربط برنامج جداول البيانات الخاص بك بالملفات النصية (TXT)/المفصولة بفواصل (CSV)، فسيتم فتح الملف تلقائيًا عند تنزيله. بعد التنزيل، إذا تم تثبيت EXCEL محليًا، فانقر فوق هذا الملف لفتحه تلقائيًا باستخدام برنامج EXCEL.