اريد كود لفتح مسار الملف المكتوب فى تيكست بوكس

[AhmedSaeed01]

السلام عليكم ورحمة الله وبركاته 

بعد التحية

أرجو من حضراتكم تقديم المساعدة فى الأتى ولكم جزيل الشكر والتقدير. 

يوجد عندى ملف ترحيل بيانات من يوزرفورم الى الشيت. اريد عمل زر بحيث لما اضغط عليه اختار ملف PDF من الكمبيوتر ويكتب المسار بتاعه وليكن فى Textbox5 ولما ارحل البيانات للشيت واعمل بحث من خلال الفورم ويستدعى البيانات ويعرضها من textbox1 حتى textbox5 يكون فيه زرار تانى وظيفته انى لم اضغط عليه يفتح مسار الملف المكتوب فى textbox5. ولو موضوع كتابة مسار الملف فى تيكست بوكس هيكون صعب تنفيذه ممكن انا اكتب المسار يدوى مافيش مشكلة لكن الأهم محتاج كود لما اضغط عليه يفتح المسار المكتوب فى التكست بوكس رقم 5 مثلا.

أرجو تكون الفكرة وصلت لحضراتكم.

يكفى إرفاق الأكواد المطلوبة الخاصة بزر عرض الملف من خلال المسار المكتوب وليس انشاء اكواد خاصة بالترحيل أيضا لكى لا أرهق حضراتكم. فأكواد الترحيل موجوده عندى بالفعل. 

[حسونة حسين]

وعليكم السلام ورحمة الله وبركاته 

جرب هذا الكود اخى الكريم

Private Sub Command1_Click()

    Dim strFile As String
    strFile = Application.GetOpenFilename()
    Workbooks.Open (strFile)
    Textbox5.txt = strFile

End Sub

تم تعديل نوفمبر 9, 2021 بواسطه hassona229

[AhmedSaeed01]

شكرا لاهتمامك لكن الكود بوظ الملف

[حسونة حسين]

اقفل الملف  اللى انت شايف كتابته غريبه (ملف pdf ) بدون حفظ

واستخدم هذا الكود

 

Private Sub Command1_Click()

    Dim strFile As String
    strFile = Application.GetOpenFilename()
    Textbox5.txt = strFile

End Sub

 

[AhmedSaeed01]

تمام كده ظبط شاكر لحضرتك جدا.

محتاج بقى كود يفتح اللينك اللى موجود فى التيكست بوكس . 

[AhmedSaeed01]

تم وضع هذا الكود فى زر جديد لفتح الملف  وتم التنفيذ بنجاح.

الكود للاستفاده

Private Sub CommandButton10_Click()
ThisWorkbook.FollowHyperlink TextBox5.Text
End Sub