اسلام السيد فهمى

السلام عليكم ورحمة الله وبركاتة عند تحويل الاوفيس من 32 بت الي 64 بت لا تعمل المرفقات ولا الاستقبال عن طريق الاكسيل ممكن اعرف زاي احل هذه المشكلة مرفق الكود Private Sub btnBrowse_Click() If [الاستقبال_عن_طريق_اكسيل] = 0 Then Ms$ = " USER is unknown, you are not authorized to LOGIN " Ti$ = " ERROR " re = MsgBox(Ms$, 0, Ti$) Else Dim ofn As OpenFileName ofn.lStructSize = Len(ofn) ofn.hwndOwner = Me.Hwnd 'ofn.hInstance = App.hInstance ofn.lpstrFilter = "text Files (*.doc)" + Chr$(0) ofn.lpstrFile = Space$(254) ofn.nMaxFile = 255 ofn.lpstrFileTitle = Space$(254) ofn.nMaxFileTitle = 255 ofn.lpstrInitialDir = CurDir ofn.lpstrTitle = " MT Software " ofn.Flags = 0 Dim a a = GetOpenFileName(ofn) If (a) Then Me![ImportFile] = Trim$(ofn.lpstrFile) MsgBox "File to Open: " + Trim$(ofn.lpstrFile) Else MsgBox "Cancel was pressed" End If End If مبيقراش الكود خالص بيقرا msbox الرجاء الافادة

السلام عليكم ورحمة ممكن مساعده محتاج اعرف ازاي اضيف اكثر من ٥٠ ملف اكسيل في فولدر زعامل يوزر فورم وبيانات ترحيل في شيت اخر محتاج اعرف ازاي اخلي اليوزر فورم يقرا الي ٥٠ ملف وكل لما اضيف ملف يقرا اوتوماتيك

طيب عايز اصمم برنامج بحث ممكن تساعدني بس يقبل الفات من البيانات

مفيش حد في المنتدي ولا ايه

السلام عليكم محتاج عمل برنامج بحث علي الاكسيل بمعني اني عندي مجموعه اسماء وعمل ليه معادله vlookup بس عايز اعمل برنامج احترافي وسهل مرفق عينه من الملف ياريت تساعدوني Check.xls

السلام عليكم اروجا انت تساعدونني عايز برنامج انا اعمل فى شركة سيارات وعايز برنامج اسجل عليه ارقام السيارات المباعة ويكون فيها اسم الموديل وتاريخ خروجها وعدم تكرير رقم السيارة يارت تفهموا قصدى وتفدونى