اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

استيراد من أى إصدار إكسيل


N_ELMASRY

الردود الموصى بها

الأخوة الأفاضل 

السلام عليكم ورحمة الله وبركاته

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

ولكنى وجدت أن الكود يحدد نوع إصدار واحد لمف الاكسيل إما xls أو xlsx ، فهل من طريقة أو إضافة على الكود تجعل الاستيراد من أى إصدار من الاكسيل؟؟

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

ولكم جزيل الشكر والتقدير

والسلام عليكم ورحمة الله وبركاته

استيراد بيانات.rar

رابط هذا التعليق
شارك

13 ساعات مضت, N_ELMASRY said:

الأخوة الأفاضل 

السلام عليكم ورحمة الله وبركاته

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

ولكنى وجدت أن الكود يحدد نوع إصدار واحد لمف الاكسيل إما xls أو xlsx ، فهل من طريقة أو إضافة على الكود تجعل الاستيراد من أى إصدار من الاكسيل؟؟

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

ولكم جزيل الشكر والتقدير

والسلام عليكم ورحمة الله وبركاته

استيراد بيانات.rar

اتفضل ان شاء الله يكون ده طلبك 
غيرت هذا الجزء من الكود القديم ده 

(*.xls)", "*.xls")


بهذا الكود
 

(*.xls;*.xlsx)", "*.xls;*.xlsx")

 

-2استيراد بيانات.rar

  • Like 2
رابط هذا التعليق
شارك

انظر داخل الكود في المثال ستجد السطر  المسؤول عن تخصيص الملفات المعروضة

strFilter = ahtAddFilterItem(strFilter, "Excel Files (*.xls)", "*.xls")

لا حظ انه حدد نوع الملفات

عدل عليه كما تريد ،  انظر السطر هذا اضفت اليه قواعد بيانات اكسس

AddFilterItem(strFilter, "Excel and access Files (*.xls), *.xls, *.mdb")

او تدري عن شي  احسن من كل هذا :  افتح اي شيء
انظر السطر
 

strFilter = ahtAddFilterItem(strFilter, "any Files (*.*)")

 

  • Like 4
رابط هذا التعليق
شارك

في ٢٣‏/١٢‏/٢٠١٦ at 12:07, N_ELMASRY said:

الأخوة الأفاضل 

السلام عليكم ورحمة الله وبركاته

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

ولكنى وجدت أن الكود يحدد نوع إصدار واحد لمف الاكسيل إما xls أو xlsx ، فهل من طريقة أو إضافة على الكود تجعل الاستيراد من أى إصدار من الاكسيل؟؟

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

ولكم جزيل الشكر والتقدير

والسلام عليكم ورحمة الله وبركاته

استيراد بيانات.rar

اتفضل اخي كما تريد

 

استيراد بيانات.rar

  • Like 1
رابط هذا التعليق
شارك

في 12/23/2016 at 23:55, مبرمج على يديكم said:

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

تفضل استخدمه كما تريد، ولكن للعلم كما ذكرت فى الموضوع المثال ليس لى بل هو لأحد أساتذة هذا المنتدى العريق.

في 12/24/2016 at 00:28, ابا جودى said:

اتفضل ان شاء الله يكون ده طلبك 
غيرت هذا الجزء من الكود القديم ده 


(*.xls)", "*.xls")


بهذا الكود
 


(*.xls;*.xlsx)", "*.xls;*.xlsx")

 

-2استيراد بيانات.rar

 

في 12/24/2016 at 00:33, ابوخليل said:

انظر داخل الكود في المثال ستجد السطر  المسؤول عن تخصيص الملفات المعروضة


strFilter = ahtAddFilterItem(strFilter, "Excel Files (*.xls)", "*.xls")

لا حظ انه حدد نوع الملفات

عدل عليه كما تريد ،  انظر السطر هذا اضفت اليه قواعد بيانات اكسس


AddFilterItem(strFilter, "Excel and access Files (*.xls), *.xls, *.mdb")

او تدري عن شي  احسن من كل هذا :  افتح اي شيء
انظر السطر
 


strFilter = ahtAddFilterItem(strFilter, "any Files (*.*)")

 

 

18 ساعات مضت, Shivan Rekany said:

اتفضل اخي كما تريد

 

استيراد بيانات.rar

جزاكم الله خيرًا 

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

أشكر جميع الأخوة الذين اهتموا وشاركوا فى الموضوع وأسأل الله تعالى أن ينفعكم بما علمكم وأن يزيدكم علمًا ويجعل مجهوداتكم فى ميزان حسناتكم.

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information