الاخوه الكرام نرجو المساعده بحثت كثير ولم اتوصل الى حل
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

يبدو ان الامر صعب

الاخوة الكرام وينكم

قمت بتحميل مثالك ولكنى لم افهم قصدك من ترتيب الكود على حسب الاختيار ؟

أما من ناحية النص المراد وضعة فى اعلى صفحة الاكسل فى التعديل كما فى المثال التالى :

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

مشكور اخى الكريم على الرد
والمقصود من كلامي هو ان مثلا اختار Check1 و Check2 يتم التصدير وفى حالت اخترت الجميع يتم تصدير الجدول بلكامل وفى حلت لم اختر اي شى تظهر رسالة تنبيه يجب اختيار
يارب ايكون الكلام واضح

المثال بعد التعديل

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

السنى كتب:
المثال بعد التعديل

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

الاخ الكريم الرابط لا يعمل

gadr كتب:
الاخ الكريم الرابط لا يعمل

تعديل المثال كان على النحو التالى :

الكود:

Private Sub Command2_Click()

If Check1.Value = 1 Then
s1 = "SELECT r1 FROM teb "

ElseIf Check2.Value = 1 Then
s1 = "SELECT r2 FROM teb "

ElseIf Check3.Value = 1 Then
s1 = "SELECT r3 FROM teb "

ElseIf Check4.Value = 1 Then
s1 = "SELECT r4 FROM teb "

Else: MsgBox "برجاء اختيار احد الحقول ليتم التصدير"

Exit Sub

End If

If rs.State = adStateOpen Then rs.Close
rs.Open s1, db, adOpenDynamic, adLockOptimistic

Dim I, J, rtot, m
Dim ctot(1 To 5)
rtot = 0
Dim objExcl As Excel.Application

Set objExcl = New Excel.Application
objExcl.Visible = True
objExcl.SheetsInNewWorkbook = 1
objExcl.Workbooks.Add
objExcl.Range("A1:ak1" & rs.RecordCount + 2).HorizontalAlignment = xlCenter
objExcl.Windows(1).ActiveSheet.Name = "ßÔÜÜÜÜÜÜÜÜÝ ãÏÑÓíä"
objExcl.Cells(1, 4).Value = Text1.Text
objExcl.Range("A1:F1").Font.Bold = True
objExcl.Range("A1:F1").Font.Size = 14
objExcl.Cells(2, 1) = "ÑÞã ÇáÍÇÓÈ"
objExcl.Cells(2, 1).ColumnWidth = 6
objExcl.Cells(2, 1).Font.Size = 10
objExcl.Cells(2, 1).Font.Bold = True

objExcl.Range("A2").CopyFromRecordset rs

End Sub


الكود:

objExcl.Range("A2").CopyFromRecordset rs

بعد التجريب ظهر هذه الخطأ

اخى الكريم انتظر عدة ساعات فقط حتى يتم اصلاح سرفر المنتدى وقم بتحميل المشروع الذى ارفقته فى المشاركة الاولى فمن الواضح انه هناك عطل فى السرفر حتى لا يمكنك تنزل مثالك الذى قمت بتحميلة من قبل ....

على اى حال ان لم يتم اصلاح السرفر سوف اقوم باعادة رفعة على سرفر خارجى

اتفضل اخي الكريم
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

السنى كتب:
اخى الكريم انتظر عدة ساعات فقط حتى يتم اصلاح سرفر المنتدى وقم بتحميل المشروع الذى ارفقته فى المشاركة الاولى فمن الواضح انه هناك عطل فى السرفر حتى لا يمكنك تنزل مثالك الذى قمت بتحميلة من قبل ....

على اى حال ان لم يتم اصلاح السرفر سوف اقوم باعادة رفعة على سرفر خارجى

اخي السنى ياريت ترفعو على سيرفر ثاني

رابط تحميل المشروع

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

السنى كتب:
رابط تحميل المشروع

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

مشكور اخي السني اوسامحني على تعبك بس ظهر هذ الحطأ
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
صور الخطأ

الاخ الكريم أهلا بك و أسعد دائما بكل اسئلتك و اكون أسعد لو أستعطت الاجابة عليها

بالنسبة لرسالة الخطأ تلك فهى تحدث نتيجة أن التطبيقات التي يتم تجميعها في نظام التشغيل Windows 7 SP1 أو Windows Server 2008 R2 SP1 استخدام معرفات الواجهة الجديدة (IIDs) في مكتبات الأنواع ADO التي تم تضمينها في حزم SP1 لنظام التشغيل Windows 7 ولذلك لا يتم تشغيل التطبيق على جهاز كمبيوتر يقوم بتشغيل إصدار سابق من Windows.

وبما أننى قمت بكتابة التطبيق فى نظام التشغيل Windows 7 وقمت بتجربة الكود وتم تجميع الكود فى Windows 7 وبالتالى لا يعمل بطريقة صحيحة عندك لربما تكون تعمل على ويندوذ اقل

الحل :
الحل الاول : الاستغناء على النسخة التى قمت برفعها اليك و كتابة الكود فى مشروع جديد مع مراعات أن تقوم باستخدام المكتبة microsoft excel 12.0 object library

الحل الثانى :أن تقوم بتحميل و تثبيت التحديث الذى نص عليه هذا المقال
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ثم أخبرنى بالنتيجة فى كلتا الحالتين

السنى كتب:
الاخ الكريم أهلا بك و أسعد دائما بكل اسئلتك و اكون أسعد لو أستعطت الاجابة عليها

بالنسبة لرسالة الخطأ تلك فهى تحدث نتيجة أن التطبيقات التي يتم تجميعها في نظام التشغيل Windows 7 SP1 أو Windows Server 2008 R2 SP1 استخدام معرفات الواجهة الجديدة (IIDs) في مكتبات الأنواع ADO التي تم تضمينها في حزم SP1 لنظام التشغيل Windows 7 ولذلك لا يتم تشغيل التطبيق على جهاز كمبيوتر يقوم بتشغيل إصدار سابق من Windows.

وبما أننى قمت بكتابة التطبيق فى نظام التشغيل Windows 7 وقمت بتجربة الكود وتم تجميع الكود فى Windows 7 وبالتالى لا يعمل بطريقة صحيحة عندك لربما تكون تعمل على ويندوذ اقل

الحل :
الحل الاول : الاستغناء على النسخة التى قمت برفعها اليك و كتابة الكود فى مشروع جديد مع مراعات أن تقوم باستخدام المكتبة microsoft excel 12.0 object library

الحل الثانى :أن تقوم بتحميل و تثبيت التحديث الذى نص عليه هذا المقال
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

ثم أخبرنى بالنتيجة فى كلتا الحالتين

اخي الكريم السني بارك الله فيك وزادك من علمه
تمت العملية بنجاح بعد التحديث ولك منى الف الف تحيه وشكر