اضافة بيانات الى قائمة من خلال vba

[عبق الرياحيين]

سلام عليكم

انا استخدمت كود لاظهار اسماء اوراق العمل لاى شيت اكسل بعد اختياره وكله كله تمام

بس المشكلة اللى مش عارفه احلها ان اسماء الشيتات بتظهر بس فى النافذة الفورية Immediate

عاوزة انها تظهر فى القائمة اللى فى النموذج زى ما ظهرت بالظبط فى النافذة الفورية Immediate

Import Excel.zip

[عبق الرياحيين]

الامر   Debug.Print

بيظهر حسب الكود البيانات فى النافذة الفورية Immediate داخل محرر الاكواد 

انا عاوزة الفيم تروح على مربع قائمة فى النموذج

هو بيجبلى اخر سطر بس زى ما بيظهر فى النافذة الفورية Immediate ازاى نخليه يجيب كل الاسطر 

[أبو إبراهيم الغامدي]

أهلا  @عبق الرياحيين

 بدلي هذا السطر

listBoxWorksheets.RowSource = objWsh.Name

بهذا

listBoxWorksheets.AddItem objWsh.Name

 

Import Excel.zip

[عبق الرياحيين]

اهلا ومليون اهلا بيك استاذ @أبو إبراهيم الغامدي

انا كتير متشكره ليك جدا جزاكم الله كل خير

[أبوبسمله]

3 ساعات مضت, أبو إبراهيم الغامدي said:

أهلا  @عبق الرياحيين

 بدلي هذا السطر

listBoxWorksheets.RowSource = objWsh.Name

بهذا

listBoxWorksheets.AddItem objWsh.Name

 

Import Excel.zip 51.12 kB · 5 تنزيلات

جزاك الله خيرا اخى واستاذى @أبو إبراهيم الغامدي