السلام عليكم ورحمة الله وبركاته
لدي ورقة عمل في اكسل يوجد بها 3 حقول واردت ان استورد الحقل الاول والثالث فقط الى الاكسس
اريد كودا لعمل ذلك
مع خالص تحياتي لكم
استيراد حقلين معينين من ملف اكسل الى اكسس
للرفع
للرفع
اين ملف الاكسل
"قال رب اشرح لي صدري *ويسر لي امري*واحلل عقدة من لساني يفقهوا قولي" سورة طه
اللهم صل على سيدنا محمد وعلى آل سيدنا محمد
اخي الكريم
سؤالي ما يحتاج رفع ملف الاكسل انا لا اريد تعديلا على ملف الاكسل وإنما لو تكرمت اريد كودا يقوم باستيراد خليتين محددين فرضا a5 وc5
وذلك عن طريق الاكسس
ولك تحياتي
في الحقيقة المثال يعطي تصور إضافي للسؤال وبالتالي الإجابة تكون أكثر دقة.. والأمر يعود إليك!
إليك مثال لأحد طرق الاتصال بمجلد أكسل عن طريق الشفرة.. يمكنك السؤال أكثر!
للرفع
أين تريد وضع البيانات بعد الاستيراد؟!
هل تريد جدول بيانات جديد أو الحاقها بجدول بيانات موجود
هل إنشاء استعلام بالبيانات المستوردة
هل تريد عرضها في نموذج أو تقرير
هل تريد إجراء عمليات حسابية أو منطقية على البيانات
مشكور اخي على الرد
اود استيرادها الى جدول موجود يتكون من حقلين فقط
ممتاز جدا بارك الله فيك
طيب ممكن تشوف المطلوب اللي في الصورة
تم تعديل هذه المشاركة بواسطة zakrimas في 25 ديسمبر 2016 في 00:19
للرفع
المعذرة لم انتبه للجزء المتعلق بالصورة
بالنسبة للشفرة التي في الصورة فإن الجزء المتعلق بسؤالك هو سطر تعليمة (DoCmd.TransferSpreadsheet) الخاصة بالاستيرد من أكسل كما في الصورة
أما باقي الشفرة فهو حشو وينبغي التخلص منه لانه يكرر السطر المشار إليه بطول ورقة البيانات ولعلك لاحظت الوقت الذي يستهلكه تنفيذ الشفرة
الشفرة التالية تبين التعليمة المشار إليها بشئ من الوضوح
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]
السلام عليكم ورحمة الله وبركاته
أخي الكريم ، هل جربت استخدام الفاصلة أو الفاصلة المنقوطة تماماً مثل طريقة الاكسل نفسها؟ (A9:A15 , D9:D15) أو(A9:A15 ; D9:D15)
