يقوم ASP باستيراد البيانات (الصور) إلى Excel. يقوم الإصدار النهائي من ASP بتشغيل Excel.

يقوم ASP باستيراد البيانات (الصور) إلى Excel. يعمل الإصدار النهائي من ASP على Excel. أعتقد أن هناك العديد من الأشخاص الذين يحتاجون إلى استخدام البرامج لاستيراد البيانات إلى Excel، وقد فعلوا ذلك بشكل عام، ومن الملائم جدًا تصدير بعض البيانات النصية. وهناك العديد من الطرق الاختيارية، مثل ربط السلاسل النصية وحفظها بتنسيق . cvs (فصل البيانات بفواصل وأحرف إرجاع)، يتم فتحه باستخدام Excel افتراضيًا)، على سبيل المثال، التعامل مع ملف xls كبيانات واستخدام SQL لتشغيله، وما إلى ذلك. ماذا علي أن أفعل عندما أحتاج إلى تصدير بيانات الصورة؟ هل يتطلب هذا استخدام كائن Excel.Application.

في الواقع، باستخدام Excel.Application، يمكنك القيام بجميع العمليات التي يمكن لبرنامج OfficeExcel القيام بها، والوظيفة قوية للغاية، ومع ذلك، فإن كل واحد منا لديه طاقة تعليمية محدودة، ومن المستحيل أن يكون الجميع على دراية بها ، لقد اخترت الكثير من المفاتيح، وبحثت عن كلمات على Baidu وGoogle، على أمل الحصول على شيء ذي قيمة، ولكن بعد البحث، لم أتمكن من العثور على نسخة كاملة، وكان معظمها عبارة عن استفسارات، وكان الكود يحتوي على العديد من الأخطاء الواضحة أوجه القصور الوظيفية في الجنس يجدر الانتقاد أن عددًا كبيرًا من المواقع ينسخ المقالات مباشرة من مواقع أخرى. وما زال مقالًا منخفض الجودة، لا تبحث عنه! كما يقول المثل، إذا لم أذهب إلى الجحيم، فمن سيذهب إلى الجحيم، لذلك قمت بهذا العمل من أجل الجميع.

لقد عثرت لأول مرة على مجموعة من أدلة VBA، ولحسن الحظ كانت بتنسيق chm، فتحت Vbaexcelxl10.chm فيها، حسنًا، إنها ليست سيئة، إنها بالفعل دليل جيد، ولكنها ليست برنامجًا تعليميًا، وأشعر بذلك. البكاء... لا يسعني إلا أن أواصل القراءة. بعد كل شيء، الدليل هو دليل، ولن يذكر بعض العمليات المريحة بالتفصيل، ولن يشرح الاتصال المنطقي لكل منها. جزء من المحتوى بالكامل بعد تحليلي الدقيق وتوقعاتي الجريئة. تفكير دقيق، الكثير من التجارب، أعلى جبل السكاكين، أسفل القدر الساخن، لا، بحر من النار، أخيرًا حققت ذلك تمامًا، والآن قمت بتحميله على Web630.Net بين عشية وضحاها، فقط أتمنى أن يفعل ذلك الجميع تذكر هذا الموقع، وآمل أن ينشر كل موقع تكنولوجي المزيد من المقالات الأصلية ويساهم في تطوير صناعة البرمجة في الصين.

انسخ رمز الكود كما يلي:

<%

يقوم Rem بتهيئة بيئة عمل ExcelApplication

خافت ExcelApp، الكتاب الإلكتروني، ورقة إلكترونية

Set ExcelApp = CreateObject(Excel.Application) 'إنشاء كائن Excel

ExcelApp.DisplayAlerts=false 'لا تعرض التحذيرات

ExcelApp.Application.Visible=false 'لا تعرض الواجهة

يقوم Rem بتهيئة بيانات Excel

'ExcelApp.Workbooks.Open(Server.MapPath(zzz.xls)) 'افتح مصنف Excel واستبدل السطر التالي

قم بتعيين eBook=ExcelApp.Workbooks.Add "إنشاء مصنف Excel جديد".

قم بتعيين eBook=ExcelApp.Workbooks(1) 'راجع المصنف الأول

set eSheet = eBook.Worksheets(1) 'راجع ورقة العمل الأولى

استيراد بيانات ريم

خافت أنا، img

ط = 1

لأني = 1 إلى 5

eSheet.Cells(i,1).Value=Field one&i

eSheet.Cells(i,2).Value=Field 2&i

eSheet.Cells(i,3).Value=Field three&i

eSheet.Cells(i,4). حدد "حدد الخلية الرابعة في الصف i".

قم بتعيين img=eSheet.Pictures.Insert(Server.MapPath(people.jpg)) 'أدخل صورة في الموقع أعلاه واحصل على مرجع للصورة

img.Top=img.Top+2 'اضبط موضع الصورة، كما هو موضح أدناه، وإلا فإنها ستضغط على حافة الجدول

img.Left=img.Left+2 'الوحدة جنيه

eSheet.Rows(i).RowHeight=img.Height+4 'اضبط ارتفاع الصف الحالي بحيث يصبح تلقائيًا نفس ارتفاع الصورة

التالي

Rem يحفظ العمل المنجز أعلاه

'eBook.Save' إذا كنت تفتح ملف Excel موجود، فيمكنك استخدام هذا السطر لاستبدال السطر التالي

eBook.SaveAs Server.MapPath(zzz.xls)

تعيين eSheet = لا شيء

تعيين الكتاب الإلكتروني = لا شيء

يجب الخروج من 'ExcelApp.Quit'، وإلا ستبقى عملية Excel في نظام التشغيل.

تعيين ExcelApp = لا شيء

%>

عندما يقوم ASP بقراءة البيانات أو كتابتها إلى Excel، فإن الطريقة الأسهل هي التعامل مع Excel كقاعدة بيانات واستخدام عبارات SQL لتشغيله. الصورة)" المعلومات المساعدة الخاصة بـ "الإصدار النهائي" هي للرجوع إليها.

انسخ رمز الكود كما يلي:

<%

خافت كون، رس، SQL

سوبدبوبين ()

خافت ديسيبل: db=Server.MapPath(zzz.xls)

تعيين conn=Server.CreateObject(Adodb.Connection)

على خطأ استئناف التالي

conn.Open Provider=Microsoft.Jet.OLEDB.4.0;الخصائص الموسعة=Excel 8.0;HDR=YES;مصدر البيانات= & db

يتم تعيين Rem HDR افتراضيًا على YES، مما يعني أنه يتم استخدام السطر الأول كاسم الحقل، وإلا فسيتم اعتباره المحتوى

Rem لـ Excel2007، يجب أن يكون: Provider=Microsoft.ACE.OLEDB.12.0; Extended Properties=Excel 12.0;Data Source=xxx.xlsx;

إذا Err.Number<>0 ثم

خطأ.واضح

Response.Write(<h1>ارتباط قاعدة البيانات خطأ</h1>)

الاستجابة. النهاية ()

نهاية إذا

على خطأ انتقل إلى 0

نهاية الفرعية

سوبدبكلوز ()

إذا لم يكن فارغا (كون) ثم

كون.إغلاق()

تعيين كون = لا شيء

نهاية إذا

نهاية الفرعية

الدالة ليست فارغة (ByRef TempVar)

IsBlank = صحيح

حدد نوع الحالة VarType(TempVar)

الحالة 0,1 'فارغة ولاغية

IsBlank = خطأ

الحالة 9 'الكائن

إذا كان TypeName(TempVar) = لا شيء أو TypeName(TempVar) = فارغ إذن

IsBlank = خطأ

نهاية إذا

إنهاء التحديد

وظيفة النهاية

كولدبوبين()

sql=SELECT * FROM [Sheet1$] 'انتبه إلى كتابة اسم الجدول. يجب عليك إضافة الرمز $ بعد اسم ورقة العمل.

تعيين rs=conn.Execute(sql)

في حين لا روبية.Eof

الاستجابة.كتابة(rs(0)&, )

الاستجابة.كتابة(RS(1)&, )

Response.Write(rs(2)&<br />&VbCrLf)

rs.Movenext

ويند

rs.Close: اضبط rs=لا شيء

كولدبكلوز ()

%>