بلال اليامين قام بنشر نوفمبر 29, 2021 قام بنشر نوفمبر 29, 2021 السلام عليكم اريد عند استراد جدول اكسيل المرفق مع البرنامج يظهر المعلومات مباشرة في النموذج وزر أخر تصدير الى الاكسيل 19.rarFetching info...
د.كاف يار قام بنشر نوفمبر 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
بلال اليامين قام بنشر نوفمبر 30, 2021 الكاتب قام بنشر نوفمبر 30, 2021 السلام عليكم اخي عند الضغط على الزر يظهر لي هذه الصورة
abouelhassan قام بنشر نوفمبر 30, 2021 قام بنشر نوفمبر 30, 2021 في 29/11/2021 at 21:33, د.كاف يار 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 و هذا ببساطة كل شيئ عن مبادئ استيراد او تصدير ملف الاكسل Expand شكر وتقدير وفائق الاحترام من اخيك
د.كاف يار قام بنشر نوفمبر 30, 2021 قام بنشر نوفمبر 30, 2021 في 30/11/2021 at 12:58, بلال اليامين said: السلام عليكم اخي عند الضغط على الزر يظهر لي هذه الصورة Expand يبدوا انك قمت بنقل التعديلات الى ملف آخر يتم تحديد هذا الخطأ لأن المكتبة غير موجودة فضلا تباع الشرح اعلاه لإضافة المكتبة
بلال اليامين قام بنشر نوفمبر 30, 2021 الكاتب قام بنشر نوفمبر 30, 2021 السلام عليكم اخي حاولت لم أسطيع لقد قمت بالتعديل وعند الاستراد لم تظهر البيانات حتى يتم الخروج من البرنامج وعند الحدف تظهر في الحقول محدوف za-Ex.rarFetching info...
د.كاف يار قام بنشر نوفمبر 30, 2021 قام بنشر نوفمبر 30, 2021 في 30/11/2021 at 20:15, بلال اليامين said: السلام عليكم اخي حاولت لم أسطيع لقد قمت بالتعديل وعند الاستراد لم تظهر البيانات حتى يتم الخروج من البرنامج وعند الحدف تظهر في الحقول محدوف za-Ex.rar 22.19 kB · 1 download Expand يبدوا انك رفعت ملف مختلف ارفع الملف الذي تواجه به مشكلة
بلال اليامين قام بنشر ديسمبر 1, 2021 الكاتب قام بنشر ديسمبر 1, 2021 اخي مازال عند الاستراد لم تظهر البيانات حتي يتم الخروج من النموذج
د.كاف يار قام بنشر ديسمبر 1, 2021 قام بنشر ديسمبر 1, 2021 في 1/12/2021 at 06:20, بلال اليامين said: اخي مازال عند الاستراد لم تظهر البيانات حتي يتم الخروج من النموذج Expand اخي لم اقوم بتقديم حل انظر الى اخر مشاركة انت لم تقم بإرفاق النسخة التي تحتوي على خطأ
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.