أنت غير متصل حاليًا، وفي انتظار الإنترنت الخاص بك ليقوم بإعادة الاتصال

كيفية استخدام ASP لإنشاء جدول بيانات XML للعرض العميل

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

اضغط هنا لرابط المقالة باللغة الانجليزية288130
الموجز
يوضح هذا المقال البرنامج النصي Microsoft صفحات الملقم النشطة (ASP) بناء جدول بيانات في تنسيق جدول بيانات XML (XMLSS) باستخدام مكون جدول البيانات Office. يمكن أن تكون XMLSS جانب المعروضة في إحدى طرق عديدة:
  • في مكون جدول البيانات على صفحة ويب
  • في Microsoft Excel تظهر في نفس الموقع في المستعرض
  • فتح مباشرة في Microsoft Excel
معلومات أخرى
يوفر استخدام مكون جدول البيانات في تعليمات برمجية من جانب الخادم لإنشاء جداول البيانات أكثر قابلية التوسع والأداء أفضل مقارنة باستخدام من جانب الملقم التنفيذ من Microsoft Excel. القيام لا recomment التنفيذ من تطبيقات Office، بما في ذلك Excel، على الملقم. يجب تجنب هذا الأسلوب عند توفر لك بدائل أخرى لـ لتحقيق النتائج نفسها. يمكن أن تستمر XMLSS العديد من الميزات المشتركة في كل من "مكون جدول البيانات" و "Microsoft Excel. المصنفات multi-sheet تنسيق الخلايا ، التصفية التلقائية ، صيغ الخلايا و re-calculation تمثل الكثير من هذه الميزات. مكون جدول البيانات يحتوي على طراز كائن بشكل كبير مع طراز كائن لبرنامج Microsoft Excel. لذلك، إذا كنت متمرساً على طراز كائن Excel ، يمكنك بسهولة تطبيق بعض التعليمات البرمجية الخاصة بك الموجودة Excel ، مع التعديل للاستخدام مع مكون جدول البيانات.

يوضح النموذج التالي كيفية إنشاء مصنف multi-sheet في XMLSS استخدام مكون جدول البيانات مع ASP. تتناول العينة أيضًا كيف يمكنك عرض جانب XMLSS الناتج على صفحة ويب أو في Microsoft Excel.

البرنامج النصي ASP لإنشاء XMLSS باستخدام مكون جدول البيانات

حفظ ASP التالية XMLSS.asp في الدليل الجذر الظاهري لملقم ويب. بشكل افتراضي، الدليل الجذر هو C:\inetpub\wwwroot.
<% Language=VBScript %><%    Response.Buffer = True    Response.ContentType = "text/xml"    Dim NumOrders, NumProds, r    NumOrders = 300    NumProds = 10            Dim oSS    Dim oOrdersSheet    Dim oTotalsSheet    Dim oRange    Dim c        Set oSS = CreateObject("OWC10.Spreadsheet")    Set c = oSS.Constants    'Rename Sheet1 to "Orders", rename Sheet2 to "Totals" and remove Sheet3    Set oOrdersSheet = oSS.Worksheets(1)    oOrdersSheet.Name = "Orders"    Set oTotalsSheet = oSS.Worksheets(2)    oTotalsSheet.Name = "Totals"    oSS.Worksheets(3).Delete        '=== Build the First Worksheet (Orders) ==============================================            'Add headings to A1:F1 of the Orders worksheet and apply formatting    Set oRange = oOrdersSheet.Range("A1:F1")    oRange.Value = Array("Order Number", "Product ID", "Quantity", "Price", "Discount", "Total")    oRange.Font.Bold = True    oRange.Interior.Color = "Silver"    oRange.Borders(c.xlEdgeBottom).Weight = c.xlThick    oRange.HorizontalAlignment = c.xlHAlignCenter       'Apply formatting to the columns    oOrdersSheet.Range("A:A").ColumnWidth = 20    oOrdersSheet.Range("B:E").ColumnWidth = 15    oOrdersSheet.Range("F:F").ColumnWidth = 20    oOrdersSheet.Range("A2:E" & NumOrders + 1 _        ).HorizontalAlignment = c.xlHAlignCenter    oOrdersSheet.Range("D2:D" & NumOrders + 1).NumberFormat = "0.00"    oOrdersSheet.Range("E2:E" & NumOrders + 1).NumberFormat = "0 % "    oOrdersSheet.Range("F2:F" & NumOrders + 1).NumberFormat = "$ 0.00" '"_($* #,##0.00_)"            'Obtain the order information for the first five columns in the Orders worksheet    'and populate the worksheet with that data starting at row 2    Dim aOrderData    aOrderData = GetOrderInfo    oOrdersSheet.Range("A2:E" & NumOrders + 1).Value = aOrderData        'Add a formula to calculate the order total for each row and format the column    oOrdersSheet.Range("F2:F" & NumOrders + 1).Formula = "=C2*D2*(1-E2)"        oOrdersSheet.Range("F2:F" & NumOrders + 1).NumberFormat = "_(  $* #,##0.00   _)"    'Apply a border to the used rows    oOrdersSheet.UsedRange.Borders(c.xlInsideHorizontal).Weight = c.xlThin    oOrdersSheet.UsedRange.BorderAround , c.xlThin, 15        'Turn on AutoFilter and display an initial criteria where    'the Product ID (column 2) is equal to 5    oOrdersSheet.UsedRange.AutoFilter    oOrdersSheet.AutoFilter.Filters(2).Criteria.FilterFunction = c.ssFilterFunctionInclude    oOrdersSheet.AutoFilter.Filters(2).Criteria.Add "5"    oOrdersSheet.AutoFilter.Apply        'Add a Subtotal at the end of the usedrange    oOrdersSheet.Range("F" & NumOrders + 3).Formula = "=SUBTOTAL(9, F2:F" & NumOrders + 1 & ")"        'Apply window settings for the Orders worksheet    oOrdersSheet.Activate   'Makes the Orders sheet active    oSS.Windows(1).ViewableRange = oOrdersSheet.UsedRange.Address    oSS.Windows(1).DisplayRowHeadings = False    oSS.Windows(1).DisplayColumnHeadings = False    oSS.Windows(1).FreezePanes = True    oSS.Windows(1).DisplayGridlines = False        '=== Build the Second Worksheet (Totals) ===========================================        'Change the Column headings and hide row headings    oTotalsSheet.Activate    oSS.Windows(1).ColumnHeadings(1).Caption = "Product ID"    oSS.Windows(1).ColumnHeadings(2).Caption = "Total"    oSS.Windows(1).DisplayRowHeadings = False        'Add the product IDs to column 1    Dim aProductIDs    aProductIDs = GetProductIDs    oTotalsSheet.Range("A1:A" & NumProds).Value = aProductIDs    oTotalsSheet.Range("A1:A" & NumProds).HorizontalAlignment = c.xlHAlignCenter    'Add a formula to column 2 that computes totals per product from the Orders Sheet    oTotalsSheet.Range("B1:B" & NumProds).Formula = _        "=SUMIF(Orders!B$2:B$" & NumOrders + 1 & ",A1,Orders!F$2:F$" & NumOrders + 1 & ")"    oTotalsSheet.Range("B1:B" & NumProds).NumberFormat = "_(  $* #,##0.00   _)"    'Apply window settings for the Totals worksheet    oSS.Windows(1).ViewableRange = oTotalsSheet.UsedRange.Address        '=== Setup for final presentation ==================================================        oSS.DisplayToolbar = False    oSS.AutoFit = True    oOrdersSheet.Activate    Response.Write oSS.XMLData    Response.EndFunction GetOrderInfo()    ReDim aOrderInfo(NumOrders,5)    Dim aPrice, aDisc    aPrice = Array(10.25, 9.5, 2.34, 6.57, 9.87, 4.55, 6, 13.05, 3.3, 5.5)    aDisc = Array(0, 0.1, 0.15, 0.2)    For r = 0 To NumOrders-1        aOrderInfo(r, 0) = "'" & String(7-Len(CStr(r+1)), "0") & r+1 'Col 1 is Order Number        aOrderInfo(r, 1) = Int(Rnd() * NumProds) + 1                 'Col 2 is Product ID        aOrderInfo(r, 2) = Int(Rnd() * 20) + 1                       'Col 3 is Quantity        aOrderInfo(r, 3) = aPrice(aOrderInfo(r, 1)-1)                'Col 4 is Price        aOrderInfo(r, 4) = aDisc(Int(Rnd() * 4))                     'Col 5 is Discount    Next    GetOrderInfo = aOrderInfoEnd FunctionFunction GetProductIDs()    ReDim aPIDs(NumProds, 1)    For r = 0 To NumProds-1        aPIDs(r, 0) = r+1    Next    GetProductIDs = aPIDsEnd Function%>				

عرض XMLSS على صفحة ويب

لعرض نموذج XMLSS على صفحة ويب يجب عليك فقط تعيين خاصية XMLURL للحصول على "مكون جدول البيانات" إلى محدد موقع المعلومات لـ ASP ، كما يلي:
<html><body><object classid="clsid:0002E551-0000-0000-C000-000000000046" id="Spreadsheet1">  <param name="XMLURL" value="http://YourWebServer/xmlss.asp"></object></body></html>				
ملاحظة إذا كنت تستخدم Microsoft Office 2003 ، قد تضطر إلى تغيير classid في التعليمات البرمجية أعلاه حسب التطبيق.

في السابق HTML، يتم تعيين خاصية XMLURL باستخدام <param> العلامة. يمكنك أيضاً تعيين خاصية XMLURL أثناء وقت التشغيل إذا كنت ترغب باستخدام التعليمات البرمجية التالية.
   Spreadsheet1.XMLURL = "http://YourWebServer/xmlss.asp"				

عرض في XMLSS في Microsoft Excel

يمكن فتح XMLSS الذي تم إنشاؤه باستخدام مكون جدول البيانات في Microsoft Excel. يمكن مشاركة في التنسيقات والميزات تنفيذ في مكون جدول البيانات مع Microsoft Excel. يدعم مكون جدول البيانات بعض ميزات Excel لا. بالإضافة إلى ذلك، يدعم Excel بعض ميزات لا مكون جدول البيانات. يتم تجاهل أية علامات XML أو سمات لا يقوم Excel عند فتحه في XMLSS.

لعرض نتائج ASP عينة البرنامج النصي في Microsoft Excel، اتبع الخطوات التالية:
  1. بدء تشغيل Microsoft Excel.
  2. من القائمة ملف، انقر فوق فتح.
  3. في المربع اسم الملف ، اكتب http://YourWebServer/xmlss.asp ومن ثم انقر فوق فتح.
فحص المصنف ولاحظ أن البيانات والتنسيقات التي تم تطبيقها في وقت التشغيل وجود كافة في المصنف عند فتحه في Excel. وجود استثناء واحد: التسميات التوضيحية العناوين التي تم إنشاؤها في مكون جدول البيانات لا ينقل إلى Excel لأن هذا هو إحدى ميزات مكون جدول البيانات التي لا يقوم بمشاركة Microsoft Excel. إذا قمت بإنشاء XMLSS باستخدام مكون جدول البيانات من أجل عرض الملف في Excel تكون على علم ميزات مختلفة تعتمد كل.

طريقة أخرى لفتح XMLSS إنشاء ASP في Microsoft Excel في تزويد نوع Excel متعدد الأغراض إنترنت بريد ملحقات (MIME) كـ ContentType في ASP. عند استخدام نوع MIME Excel واستعرض إلى ASP يمكن سيتم عرضها في XMLSS في Microsoft Excel في نفس الموقع في المستعرض. للقيام بذلك، اتبع الخطوات التالية:
  1. افتح XMLSS.asp في محرر نص.
  2. تغيير السطر التالي في البرنامج النصي:
    Response.ContentType = "text/xml"					
    تغيير السطر من التعليمات البرمجية يشبه ما يلي:
    Response.ContentType = "application/vnd.ms-excel"					
  3. حفظ التغييرات إلى XMLSS.asp ثم قم بتشغيل Windows Internet Explorer.
  4. استعرض للوصول إلى http://YourWebServer/XMLSS.asp. يتم عرض جدول بيانات XML في Microsoft Excel تتم استضافتها في نفس الموقع في المستعرض.
مراجع
لمزيد من المعلومات، قم بزيارة الموضوع Office Web Components في موقع Microsoft التالي على الويب: لمزيد من المعلومات، انقر فوق أرقام المقالات التالية لعرضها في "قاعدة المعارف لـ Microsoft:
285891كيفية استخدام Visual Basic أو ASP لإنشاء جدول بيانات XML لـ Excel 2002 و Excel 2003
278976كيفية استخدام XSL لتحويل جدول بيانات XML في Excel ليتم استخدامها من جانب الملقم
257757اعتبارات التنفيذ من جانب الخادم من Office
xl2003 xl2007

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 288130 - آخر مراجعة: 05/14/2007 21:51:06 - المراجعة: 5.2

Microsoft Office 2003 Web Components, Microsoft Office XP Web Components, Microsoft Office Excel 2007, Microsoft Office Excel 2003, Microsoft Excel 2002 Standard Edition, Microsoft Active Server Pages 4.0

  • kbmt kbhowto kbofficewebspread KB288130 KbMtar
تعليقات