بلال اليامين قام بنشر نوفمبر 29, 2021 مشاركة قام بنشر نوفمبر 29, 2021 السلام عليكم اريد عند استراد جدول اكسيل المرفق مع البرنامج يظهر المعلومات مباشرة في النموذج وزر أخر تصدير الى الاكسيل 19.rar رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر نوفمبر 29, 2021 مشاركة قام بنشر نوفمبر 29, 2021 اخي بلال هذا السؤال يتكرر كثير اذا الحل لابد ان تتعلم و تقدم يد المساعدة لنفسك هذا هو الإنجاز الحقيقي دعنا نبدء بالتعلم الآن في البداية و في محرر الأكواد يجب ان نقوم بإضافة مكتب الاكسل كما بالصورة ادناه ثم تقوم بالبحث عن المكتبة التالية و اضافتها بهذه الطريقة اليك اهم ثلاث متغيرات للاتصال بملف الاكسل 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 و هذا ببساطة كل شيئ عن مبادئ استيراد او تصدير ملف الاكسل 2 1 رابط هذا التعليق شارك More sharing options...
بلال اليامين قام بنشر نوفمبر 29, 2021 الكاتب مشاركة قام بنشر نوفمبر 29, 2021 اخي بارك الله فيك رابط هذا التعليق شارك More sharing options...
بلال اليامين قام بنشر نوفمبر 30, 2021 الكاتب مشاركة قام بنشر نوفمبر 30, 2021 اخي لقد حاولت ولم اسطيع رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر نوفمبر 30, 2021 مشاركة قام بنشر نوفمبر 30, 2021 تفضل التعديل 19.zip 1 رابط هذا التعليق شارك More sharing options...
بلال اليامين قام بنشر نوفمبر 30, 2021 الكاتب مشاركة قام بنشر نوفمبر 30, 2021 السلام عليكم اخي عند الضغط على الزر يظهر لي هذه الصورة رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر نوفمبر 30, 2021 مشاركة قام بنشر نوفمبر 30, 2021 16 ساعات مضت, د.كاف يار said: اخي بلال هذا السؤال يتكرر كثير اذا الحل لابد ان تتعلم و تقدم يد المساعدة لنفسك هذا هو الإنجاز الحقيقي دعنا نبدء بالتعلم الآن في البداية و في محرر الأكواد يجب ان نقوم بإضافة مكتب الاكسل كما بالصورة ادناه ثم تقوم بالبحث عن المكتبة التالية و اضافتها بهذه الطريقة اليك اهم ثلاث متغيرات للاتصال بملف الاكسل 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 و هذا ببساطة كل شيئ عن مبادئ استيراد او تصدير ملف الاكسل شكر وتقدير وفائق الاحترام من اخيك رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر نوفمبر 30, 2021 مشاركة قام بنشر نوفمبر 30, 2021 49 دقائق مضت, بلال اليامين said: السلام عليكم اخي عند الضغط على الزر يظهر لي هذه الصورة يبدوا انك قمت بنقل التعديلات الى ملف آخر يتم تحديد هذا الخطأ لأن المكتبة غير موجودة فضلا تباع الشرح اعلاه لإضافة المكتبة رابط هذا التعليق شارك More sharing options...
بلال اليامين قام بنشر نوفمبر 30, 2021 الكاتب مشاركة قام بنشر نوفمبر 30, 2021 السلام عليكم اخي حاولت لم أسطيع لقد قمت بالتعديل وعند الاستراد لم تظهر البيانات حتى يتم الخروج من البرنامج وعند الحدف تظهر في الحقول محدوف za-Ex.rar رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر نوفمبر 30, 2021 مشاركة قام بنشر نوفمبر 30, 2021 2 ساعات مضت, بلال اليامين said: السلام عليكم اخي حاولت لم أسطيع لقد قمت بالتعديل وعند الاستراد لم تظهر البيانات حتى يتم الخروج من البرنامج وعند الحدف تظهر في الحقول محدوف za-Ex.rar 22.19 kB · 1 download يبدوا انك رفعت ملف مختلف ارفع الملف الذي تواجه به مشكلة رابط هذا التعليق شارك More sharing options...
بلال اليامين قام بنشر ديسمبر 1, 2021 الكاتب مشاركة قام بنشر ديسمبر 1, 2021 اخي مازال عند الاستراد لم تظهر البيانات حتي يتم الخروج من النموذج رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر ديسمبر 1, 2021 مشاركة قام بنشر ديسمبر 1, 2021 12 دقائق مضت, بلال اليامين said: اخي مازال عند الاستراد لم تظهر البيانات حتي يتم الخروج من النموذج اخي لم اقوم بتقديم حل انظر الى اخر مشاركة انت لم تقم بإرفاق النسخة التي تحتوي على خطأ رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.