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

[N_ELMASRY]

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

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

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

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

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

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

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

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

[مبرمج على يديكم]

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

[ابو جودي]

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

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

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

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

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

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

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

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

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

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

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

بهذا الكود
 

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

 

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

[ابوخليل]

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

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

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

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

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

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

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

 

[Shivan Rekany]

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

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

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

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

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

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

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

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

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

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

 

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

[N_ELMASRY]

في 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

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

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

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

[مبرمج على يديكم]

الله يعطيكم العافية وجزاكم الله خيرا استفدت جدا من الموضوع