AhmedSaeed01 قام بنشر نوفمبر 9, 2021 مشاركة قام بنشر نوفمبر 9, 2021 السلام عليكم ورحمة الله وبركاته بعد التحية أرجو من حضراتكم تقديم المساعدة فى الأتى ولكم جزيل الشكر والتقدير. يوجد عندى ملف ترحيل بيانات من يوزرفورم الى الشيت. اريد عمل زر بحيث لما اضغط عليه اختار ملف PDF من الكمبيوتر ويكتب المسار بتاعه وليكن فى Textbox5 ولما ارحل البيانات للشيت واعمل بحث من خلال الفورم ويستدعى البيانات ويعرضها من textbox1 حتى textbox5 يكون فيه زرار تانى وظيفته انى لم اضغط عليه يفتح مسار الملف المكتوب فى textbox5. ولو موضوع كتابة مسار الملف فى تيكست بوكس هيكون صعب تنفيذه ممكن انا اكتب المسار يدوى مافيش مشكلة لكن الأهم محتاج كود لما اضغط عليه يفتح المسار المكتوب فى التكست بوكس رقم 5 مثلا. أرجو تكون الفكرة وصلت لحضراتكم. يكفى إرفاق الأكواد المطلوبة الخاصة بزر عرض الملف من خلال المسار المكتوب وليس انشاء اكواد خاصة بالترحيل أيضا لكى لا أرهق حضراتكم. فأكواد الترحيل موجوده عندى بالفعل. رابط هذا التعليق شارك More sharing options...
حسونة حسين قام بنشر نوفمبر 9, 2021 مشاركة قام بنشر نوفمبر 9, 2021 (معدل) وعليكم السلام ورحمة الله وبركاته جرب هذا الكود اخى الكريم Private Sub Command1_Click() Dim strFile As String strFile = Application.GetOpenFilename() Workbooks.Open (strFile) Textbox5.txt = strFile End Sub تم تعديل نوفمبر 9, 2021 بواسطه hassona229 1 رابط هذا التعليق شارك More sharing options...
AhmedSaeed01 قام بنشر نوفمبر 9, 2021 الكاتب مشاركة قام بنشر نوفمبر 9, 2021 شكرا لاهتمامك لكن الكود بوظ الملف رابط هذا التعليق شارك More sharing options...
أفضل إجابة حسونة حسين قام بنشر نوفمبر 9, 2021 أفضل إجابة مشاركة قام بنشر نوفمبر 9, 2021 اقفل الملف اللى انت شايف كتابته غريبه (ملف pdf ) بدون حفظ واستخدم هذا الكود Private Sub Command1_Click() Dim strFile As String strFile = Application.GetOpenFilename() Textbox5.txt = strFile End Sub رابط هذا التعليق شارك More sharing options...
AhmedSaeed01 قام بنشر نوفمبر 9, 2021 الكاتب مشاركة قام بنشر نوفمبر 9, 2021 تمام كده ظبط شاكر لحضرتك جدا. محتاج بقى كود يفتح اللينك اللى موجود فى التيكست بوكس . رابط هذا التعليق شارك More sharing options...
AhmedSaeed01 قام بنشر نوفمبر 9, 2021 الكاتب مشاركة قام بنشر نوفمبر 9, 2021 تم وضع هذا الكود فى زر جديد لفتح الملف وتم التنفيذ بنجاح. الكود للاستفاده Private Sub CommandButton10_Click() ThisWorkbook.FollowHyperlink TextBox5.Text End Sub رابط هذا التعليق شارك 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.