طريقة أستيراد بيانات

[alnoor_09]

السلام عليكم

أخواني الكرام لدي ملفين DATA1 و DATA2

أريد في الملف DATA2 أن أستورد بيانات ل Name و ل Dep فقط من الملف DATA2

على أفتراض أني سوف أتعامل مع مئات الموظفين.

أرجو المساعدة و لكم جزيل الشكر.

DATA1.rar

DATA2.rar

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

لاستيراد البيانات أستخدم الكود التالى

Sub DOIT()

    Columns("A:B").Clear

    Dim i, cnt As Integer

    cnt = 1

    For i = 2 To Workbooks("Data1").Sheets("Sheet1").ER

       Sheets("Sheet1").Cells(cnt, "A") = Workbooks("Data1").Sheets("Sheet1").[A1]

       Sheets("Sheet1").Cells(cnt, "B") = Workbooks("Data1").Sheets("Sheet1").Cells(i, "A")

       Sheets("Sheet1").Cells(cnt + 1, "A") = Workbooks("Data1").Sheets("Sheet1").[B1]

       Sheets("Sheet1").Cells(cnt + 1, "B") = Workbooks("Data1").Sheets("Sheet1").Cells(i, "B")

       Sheets("Sheet1").Cells(cnt + 2, "A") = Workbooks("Data1").Sheets("Sheet1").[C1]

       Sheets("Sheet1").Cells(cnt + 2, "B") = Workbooks("Data1").Sheets("Sheet1").Cells(i, "C")

       cnt = cnt + 4

    Next i

End Sub

مرفق الملفان بعد التعديل و اضافه مفتاح لاستيراد البيانات فى ملف Data2 و يجب فتح ملف Data1

و المجال مفتوح لاستيراد مئات البيانات

السلام عليكم

Import Data.rar

[alnoor_09]

أشكرك أخي وبارك الله فيك على المساعدة

لكن الملف لا يعمل معي. أي عندما أضغط على زر إيستيراد يظهر اللون الأصفر على هذا الكود:

For i = 2 To Workbooks("Data1").Sheets("Sheet1").ER

لا أدري أين الخلل. أرجو المساعدة وشكراً.

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

لقد جربت الكود مره اخرى و هو يعمل بشكل جيدوعليك العمل على الملفات التى قمت بارفاقهاو التاكد من فتح ملف Data1 اولا , و اذا تكرر الخطا قم باستبدال كلمهٌُER برقم اخر سطر تريد استيراد بياناته من ملف Data1 و ليكن 1000 مثلا

السلام عليكم

تم تعديل أغسطس 12, 2009 بواسطه هادى محمد المامون سالم

[alnoor_09]

أشكرك أخي الكريم على سعة صدرك

أعتقد بأن المشكلة تكمن بمكتبة الأكواد برفرنس.

ربما يكون عندي نقص في تعريف بعض اللرفرنس بس ما هي لا أعرف.

هل لك أن ترشدني الى تعريف ما هو مهم من الرفرنس ولك جزيل الشكر.

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

جرب الملفات على جهاز كمبيوتر مختلف و اذا جدثت مشكله استبدل سطر المشكله

For i = 2 To Workbooks("Data1").Sheets("Sheet1").ER

بالسطر

For i = 2 To 1000

السلام عليكم

[alladinad]

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

[alnoor_09]

أشكرك أخي على مساعدتك وبارك الله فيك.