• 0
zakrimas

استيراد حقلين معينين من ملف اكسل الى اكسس

سؤال

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

لدي ورقة عمل في اكسل يوجد بها 3 حقول واردت ان استورد الحقل الاول والثالث فقط الى الاكسس  

اريد كودا لعمل ذلك 

مع خالص تحياتي لكم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

14 إجابة على هذا السؤال .

  • 0

اخي الكريم  

سؤالي ما يحتاج رفع ملف الاكسل  انا لا اريد تعديلا على ملف الاكسل وإنما لو تكرمت اريد كودا يقوم باستيراد خليتين محددين  فرضا a5 وc5

وذلك عن طريق الاكسس 

ولك تحياتي 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

في الحقيقة المثال يعطي تصور إضافي للسؤال وبالتالي الإجابة تكون أكثر دقة.. والأمر يعود إليك!

إليك مثال لأحد طرق الاتصال بمجلد أكسل عن طريق الشفرة.. يمكنك السؤال أكثر!

CONNECT TO EXCEL.zip

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أين تريد وضع البيانات بعد الاستيراد؟! 

هل تريد جدول بيانات جديد أو الحاقها بجدول بيانات موجود

هل إنشاء استعلام بالبيانات المستوردة

هل تريد عرضها في نموذج أو تقرير 

هل تريد إجراء عمليات حسابية أو منطقية على البيانات

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

مشكور اخي على الرد

اود استيرادها الى جدول موجود يتكون من حقلين فقط

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أرجو أن يلبي المثال التالي طلبك

 

CONNECT TO EXCEL.zip

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

ممتاز جدا بارك الله فيك

طيب ممكن تشوف المطلوب اللي في  الصورة

 

بدون عنوان.jpg

تم تعديل بواسطه zakrimas
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

المعذرة لم انتبه للجزء المتعلق بالصورة

بالنسبة للشفرة التي في الصورة فإن الجزء المتعلق بسؤالك هو سطر تعليمة (DoCmd.TransferSpreadsheet) الخاصة بالاستيرد من أكسل كما في الصورة

2016-12-26_2126.png.d4b54e05fbea725ffeea

أما باقي الشفرة فهو حشو وينبغي التخلص منه لانه يكرر السطر المشار إليه بطول ورقة البيانات ولعلك لاحظت الوقت الذي يستهلكه تنفيذ الشفرة

الشفرة التالية تبين التعليمة المشار إليها بشئ من الوضوح

Sub A001()
    Dim EXCEL_FILE As String
    EXCEL_FILE = CurrentProject.Path & "\ccldb_supplemental.xls"
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "Projected Changes", EXCEL_FILE, False, "Projected Changes$A9:J20"
End Sub

الجزء الأخير من الشفرة يمثل ورقة البيانات متبوعا بالنطاق المطلوب استيراده

إليك المثال.. ضع المؤشر داخل الإجراء واضغط على [F5]

CONNECT TO EXCEL.zip

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

أخي الكريم ، هل جربت استخدام الفاصلة أو الفاصلة المنقوطة تماماً مثل طريقة الاكسل نفسها؟ (A9:A15 , D9:D15) أو(A9:A15 ; D9:D15)

:idea_80_anim_gif:

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

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



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .