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

[N_ELMASRY]

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

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

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

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

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

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

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

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

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

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

[ابو جودي]

  في 23‏/12‏/2016 at 09:07, N_ELMASRY said:

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

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

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

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

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

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

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

استيراد بيانات.rarFetching info...

Expand  

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

(*.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]

  في 23‏/12‏/2016 at 09:07, N_ELMASRY said:

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

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

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

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

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

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

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

استيراد بيانات.rarFetching info...

Expand  

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

 

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

[N_ELMASRY]

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

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

Expand  

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

  في 23‏/12‏/2016 at 22:28, ابا جودى said:

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

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

بهذا الكود
 

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

 

-2استيراد بيانات.rarFetching info...

Expand  

 

  في 23‏/12‏/2016 at 22:33, ابوخليل said:

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

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

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

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

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

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

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

 

Expand  

 

  في 24‏/12‏/2016 at 09:34, Shivan Rekany said:

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

 

استيراد بيانات.rarFetching info...

Expand  

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

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

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

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

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