اذهب الي المحتوي
أوفيسنا

استراد اكسيل الى الجدول


الردود الموصى بها

اخي بلال هذا السؤال يتكرر كثير 

اذا الحل لابد ان تتعلم و تقدم يد المساعدة لنفسك هذا هو الإنجاز الحقيقي

دعنا نبدء بالتعلم الآن

في البداية و في محرر الأكواد يجب ان نقوم بإضافة مكتب الاكسل كما بالصورة ادناه

image.png.8cf6ce97bf99f5467019b2fc1ce1e30e.png

ثم تقوم بالبحث عن المكتبة التالية و اضافتها بهذه الطريقة

image.png.770ca5221d35a677f6227a8db262f409.png

اليك اهم ثلاث متغيرات للاتصال بملف الاكسل 

Dim xlApp    As Excel.Application
Dim xlWb     As Excel.Workbook
Dim xlWs     As Excel.Worksheet

الآن و تحت المتغييرات سوف نضع الأوامر التالية

Set xlApp = New Excel.Application
    xlApp.Visible = False   ' عدم عرض ملف الاكسل اثناء الاستيراد او التصدير

Set xlWb = xlApp.Workbooks.Open(" ضع هنا مسار ملف الأكسل ")
Set xlWs = xlWb.Worksheets(1)  ' رقم صفحة في ملف الاكسل

الآن سوف نضغ متغيير رقمي لكي نقوم من خلاله بتحديد السطر سيبدء الاستيراد منه

Dim intLine  As Long

الآن لكي يتم تحديد حقل داخل الاكسل لغرض الاستيراد او التصدير للبيانات

نستخدم الأمر التالي

تحديد الحقل من خلال رقم العمود و رقم الصف
xlWs.Cells(Line_Number, Column_Number).Value

بعدما عرفنا كيفية تحديد الخلية 

الآن لو فرضنا أننا نريد استيراد الخلايا الى مربعات النص داخل الاكسس

من خلال حلقة تكرارية ستكون بهذه الكيفية

    intLine = 2    'بدء الاستيراد من رقم السطر

Do
    TextBox1 = xlWs.Cells(intLine, 1).Value
    TextBox2 = xlWs.Cells(intLine, 2).Value
    TextBox3 = xlWs.Cells(intLine, 3).Value
			'	نقوم بعكس القيم في حال التصدير
'============================================
    xlWs.Cells(intLine, 1).Select   ' وضع المحدد داخل اول خلية في ملف الاكسل بعد الانتهاء
    intLine = intLine + 1    ' تحديد سطر جديد للاستيراد او التصدير
Loop Until IsEmpty(xlWs.Cells(intLine, 1))

و بعد الانتهاء من الاستيراد يجب حفظ و  انهاء ملف الاكسل

    xlWb.SaveAs CurrentProject.Path & "\Excel-" & Format(Now, "hh-nn-ss") & ".xlsx"
    xlWb.Close False
    xlApp.Quit

Set xlApp = Nothing
Set xlWb = Nothing
Set xlWs = Nothing

 

و هذا ببساطة كل شيئ عن مبادئ استيراد او تصدير ملف الاكسل

  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

16 ساعات مضت, د.كاف يار said:

اخي بلال هذا السؤال يتكرر كثير 

اذا الحل لابد ان تتعلم و تقدم يد المساعدة لنفسك هذا هو الإنجاز الحقيقي

دعنا نبدء بالتعلم الآن

في البداية و في محرر الأكواد يجب ان نقوم بإضافة مكتب الاكسل كما بالصورة ادناه

image.png.8cf6ce97bf99f5467019b2fc1ce1e30e.png

ثم تقوم بالبحث عن المكتبة التالية و اضافتها بهذه الطريقة

image.png.770ca5221d35a677f6227a8db262f409.png

اليك اهم ثلاث متغيرات للاتصال بملف الاكسل 

Dim xlApp    As Excel.Application
Dim xlWb     As Excel.Workbook
Dim xlWs     As Excel.Worksheet

الآن و تحت المتغييرات سوف نضع الأوامر التالية

Set xlApp = New Excel.Application
    xlApp.Visible = False   ' عدم عرض ملف الاكسل اثناء الاستيراد او التصدير

Set xlWb = xlApp.Workbooks.Open(" ضع هنا مسار ملف الأكسل ")
Set xlWs = xlWb.Worksheets(1)  ' رقم صفحة في ملف الاكسل

الآن سوف نضغ متغيير رقمي لكي نقوم من خلاله بتحديد السطر سيبدء الاستيراد منه

Dim intLine  As Long

الآن لكي يتم تحديد حقل داخل الاكسل لغرض الاستيراد او التصدير للبيانات

نستخدم الأمر التالي

تحديد الحقل من خلال رقم العمود و رقم الصف
xlWs.Cells(Line_Number, Column_Number).Value

بعدما عرفنا كيفية تحديد الخلية 

الآن لو فرضنا أننا نريد استيراد الخلايا الى مربعات النص داخل الاكسس

من خلال حلقة تكرارية ستكون بهذه الكيفية

    intLine = 2    'بدء الاستيراد من رقم السطر

Do
    TextBox1 = xlWs.Cells(intLine, 1).Value
    TextBox2 = xlWs.Cells(intLine, 2).Value
    TextBox3 = xlWs.Cells(intLine, 3).Value
			'	نقوم بعكس القيم في حال التصدير
'============================================
    xlWs.Cells(intLine, 1).Select   ' وضع المحدد داخل اول خلية في ملف الاكسل بعد الانتهاء
    intLine = intLine + 1    ' تحديد سطر جديد للاستيراد او التصدير
Loop Until IsEmpty(xlWs.Cells(intLine, 1))

و بعد الانتهاء من الاستيراد يجب حفظ و  انهاء ملف الاكسل

    xlWb.SaveAs CurrentProject.Path & "\Excel-" & Format(Now, "hh-nn-ss") & ".xlsx"
    xlWb.Close False
    xlApp.Quit

Set xlApp = Nothing
Set xlWb = Nothing
Set xlWs = Nothing

 

و هذا ببساطة كل شيئ عن مبادئ استيراد او تصدير ملف الاكسل

شكر وتقدير وفائق الاحترام

من اخيك

رابط هذا التعليق
شارك

49 دقائق مضت, بلال اليامين said:

السلام عليكم 

اخي عند الضغط على الزر يظهر لي هذه الصورة

ووووو.jpg

يبدوا انك قمت بنقل التعديلات الى ملف آخر

يتم تحديد هذا الخطأ لأن المكتبة غير موجودة فضلا تباع الشرح اعلاه لإضافة المكتبة

رابط هذا التعليق
شارك

السلام عليكم

اخي  حاولت لم أسطيع 

لقد قمت بالتعديل  وعند الاستراد لم تظهر البيانات حتى يتم الخروج من البرنامج 

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

za-Ex.rar

رابط هذا التعليق
شارك

2 ساعات مضت, بلال اليامين said:

السلام عليكم

اخي  حاولت لم أسطيع 

لقد قمت بالتعديل  وعند الاستراد لم تظهر البيانات حتى يتم الخروج من البرنامج 

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

za-Ex.rar 22.19 kB · 1 download

يبدوا انك رفعت ملف مختلف

ارفع الملف الذي تواجه به مشكلة

رابط هذا التعليق
شارك

12 دقائق مضت, بلال اليامين said:

اخي مازال عند الاستراد لم تظهر البيانات حتي يتم الخروج من النموذج

اخي لم اقوم بتقديم حل انظر الى اخر مشاركة 

انت لم تقم بإرفاق النسخة التي تحتوي على خطأ

رابط هذا التعليق
شارك

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

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



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information