إضافة أسماء الشيت إلى قائمة منسدلة

[صالح حمادي]

السلام عليكم... تقبل الله منكم الصيام و القيام.
 إخوتي في الله

بعد إستراد ملف أكسل إلى ملف أكسس أريد أن أضيف أسماء الأوراق (sheet) إلى قائمة منسدلة تلقائيا

يعني كلما أستورد ملف أكسل أجد أسماء الشيت في هذه القائمة المنسدلة.

و الله المستعان جزاكم الله كل خير.

[رمهان]

مرحبا اخ صالح

خلينا نضع التصور الصحيح اولا وقبل التنفيذ

فمثلا اضافة اسماء الاوراق بعد استيراد الملف يحتاج الى اعادة السناريو

فالاكسس اصلا يستورد ورقة واحدة كل عملية استيراد

معناته اسماء الاوراق بتنضاف في قائمة عند تحديد الملف وقبل الاستيراد ثم تحدد اي ورقة من القائمه ليتم استيرادها

هذا وعذرا فانا اكتب من الموبايل

كما لو مرفق بسيط للمطلوب وسيتم باذن الله التنفيذ ولكن بعد رسم السيناريو الصحيح

تحياتي

تم تعديل يونيو 30, 2016 بواسطه رمهان

[صالح حمادي]

أهلين أستاذ رمهان.

أخي لا أعرف ماذا أقول لقد وضعت يدك على الجرح تماما فهذا هو المطلوب بالضبط لكني أنا لم أعرف أوصل الفكرة.

المهم الآن أنه وصلت و خلاص. تفضل أخي الكريم هذا الملف الذي طلبته من أجل التنفيذ.

جزيت خير الجزاء إن شاء الله.

استيراد.rar

تم تعديل يوليو 1, 2016 بواسطه صالح حمادي

[صالح حمادي]

هذا هو البرنامج مع ملف أكسل.

إن شاء الله تكون وصلت الفكرة أخي

استيراد.rar

[رمهان]

منذ ساعه, صالح حمادي said:

أهلين أستاذ رمهان.

أخي لا أعرف ماذا أقول لقد وضعت يدك على الجرح تماما فهذا هو المطلوب بالضبط لكني أنا لم أعرف أوصل الفكرة.

المهم الآن أنه وصلت و خلاص. تفضل أخي الكريم هذا الملف الذي طلبته من أجل التنفيذ.

جزيت خير الجزاء إن شاء الله.

استيراد.rar

تفضل مع ملاحظة

تغيير اسم السرد الى sheets   لان name   كلمة محجوزه

 

بالتوفيق

استيراد.rar

[صالح حمادي]

بارك الله لك و عليك و أثابك الجنة إن شاء الله الكود يعمل بشكل ممتاز

أخي لدي بعض الأسئلة شرح هذا السطر و ما هي فائدة الكلمة set

Set xl = GetObject(.SelectedItems(1))

لماذا لم تقم بتعريف x1

و شرح هذا السطر

sheets.AddItem xl.sheets(i).name

 

مشكور أخي على كل اللي عملته.

 

 

[رمهان]

6 دقائق مضت, صالح حمادي said:

بارك الله لك و عليك و أثابك الجنة إن شاء الله الكود يعمل بشكل ممتاز

أخي لدي بعض الأسئلة شرح هذا السطر و ما هي فائدة الكلمة set

Set xl = GetObject(.SelectedItems(1))

لماذا لم تقم بتعريف x1

و شرح هذا السطر

sheets.AddItem xl.sheets(i).name

 

مشكور أخي على كل اللي عملته.

 

 

المتغير xl  نوعه كائن وسيعرفه الاكسس ضمنيا لان القيمة له هي كائن

ولكي تسند قيمة لمتغير نوعه كائن او سيحمل قيمة من نوع كائن لابد من استخدام كلمة set

معناته اصلا ممكن نقول او المستحب

dim xl as object

10 دقائق مضت, صالح حمادي said:

sheets.AddItem xl.sheets(i).name

هذا استخدمت طريقة additem لمربع السرد وفائدتها اضافة قيم للسرد

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

 

بالتوفيق

[صالح حمادي]

ما شاء الله أخي لما أكون معكم أحس نفسي أقل من مبتدى نفعني الله و إياكم بعلمه

و بدل خطاياكم حسنات إن شاء الله

أخي رمهان هل هذا الماكرو TransferSpreadsheet موجود في أكسس 2007

[رمهان]

عزيزي

لاحظت اخيرا في ملفك وفي السطر

DoCmd.TransferSpreadsheet zaImportAllSheets

العبارة  zaImportAllSheets  ولا اعلم من اين اتيت بها ! القيم محدد هنا acimport , acexport,aclink  

فيمكنك كتابة الامر DoCmd.TransferSpreadsheet ثم مسافة ستحصل على الخيارات المتاحة ويمكنك تركها فارغه لخيار الاستيراد كما في طلبك وهو الخيار الافتراضي

 

تحياتي

 

[صالح حمادي]

2 دقائق مضت, رمهان said:

لعبارة  zaImportAllSheets  ولا اعلم من اين اتيت بها ! القيم محدد هنا acimport , acexport,aclink  

خلال بحثي عن طريق تمكنني من إستراد جميع أوراق (شيت) ملف الأكسل وجدت هذه العبارة في إحدى المنتديات و سوف أبحث عنها إن وجدتها سوف أزودك بالرابط أخي الكريم.

أنا مازلت أجهل طرق الإسناد إذا كان لديك رابط أو ملف pdf يفيدني في هذا الأمر أحسن الله لك و لوالديك حبيبي

[رمهان]

6 دقائق مضت, صالح حمادي said:

أخي رمهان هل هذا الماكرو TransferSpreadsheet موجود في أكسس 2007

هي موجودة من 2003 ! وماقبل لا اعلم 

تحياتي

[صالح حمادي]

لكني لم أجدها عندي أنا أستخدم أكسس 2007

و هذا هو الرابط الذي أخبرتك به

http://arabteam2000-forum.com/index.php?/topic/266790-استيراد-جميع-أوراق-الأكسل-إلى-أكسس/

[رمهان]

2 دقائق مضت, صالح حمادي said:

لكني لم أجدها عندي أنا أستخدم أكسس 2007

ImportExportSpreadsheet

5 دقائق مضت, صالح حمادي said:

خلال بحثي عن طريق تمكنني من إستراد جميع أوراق (شيت) ملف الأكسل وجدت هذه العبارة في إحدى المنتديات و سوف أبحث عنها إن وجدتها سوف أزودك بالرابط أخي الكريم.

أنا مازلت أجهل طرق الإسناد إذا كان لديك رابط أو ملف pdf يفيدني في هذا الأمر أحسن الله لك و لوالديك حبيبي

https://www.google.com.sa/search?safe=active&biw=1280&bih=649&q=المتغيرات+واسناد+القيم+فيجول+بيسك&oq=المتغيرات+واسناد+القيم+فيجول+بيسك&gs_l=serp.3...4398.21456.0.21738.36.33.0.3.3.0.397.5373.0j5j16j1.22.0....0...1c.1.64.serp..11.16.3370...0j0i10i1i67j0i10i1j0i3j0i131j0i67j0i22i30j30i10j33i21.OnG0o7X2fd8

 

[صالح حمادي]

حتى هذه لم أجدها أخي. لا أدري أين الإختلاف

 

[رمهان]

الان, صالح حمادي said:

حتى هذه لم أجدها أخي. لا أدري أين الإختلاف

 

عند فتح الماكرو >> انظر اعلى في الشريط واختر  "اظهار كل الاحداث" لكي تظهر جميع اوامر الماكرو

هذا ن احسنت الترجمة !

تم تعديل يوليو 1, 2016 بواسطه رمهان

[صالح حمادي]

آسف لقد أتعبتك معي لقد وجدتها بالفعل

الله يجزيك على تعبك معي فأنا اقل من مستوى و لا أدري كيف أعيد لك جميلك هذا غير الدعاء لك

[رمهان]

الان, صالح حمادي said:

آسف لقد أتعبتك معي لقد وجدتها بالفعل

الله يجزيك على تعبك معي فأنا اقل من مستوى و لا أدري كيف أعيد لك جميلك هذا غير الدعاء لك

حياك الله اخي صالح

وصدقني انت تستاهل كل خير فانت من الاعضاء الذي بفيد قبل ان يستفيد !

تحياتي

[صالح حمادي]

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

تقبل الله صيامك