جلب مسار الملف من الجدول

[alsihran]

السلام عليكم 

عندي هذا الكود  لفتح ملف اكسل وشغال تمام 

sXlsFile = CurrentProject.Path & "\ReasonsExtension_Bad.xlsx"

الان اريد اجعل اسم الملف متغير فقمت بعمل تعريف للمتغير بالشكل التالي 

  Dim sXlsFile As String
  sXlsFile = Empty
    Dim paath As String
    paath = Empty
    paath = Me.city.Column(2)
     sXlsFile = paath

وخزنت المسار بالكامل في الجدول لكل ملف كما موضح بالصورة المرفقة

 

 المشكلة عند تنفيذ الكود واستدعاء اسم الملف تظهر علامات تنصيص زياده ولا يتعرف على مسار الملف 

 

ارجو المساعده في حل الاشكال 

[AbuuAhmed]

بدل السطر الأخير بهذا:
 

xXlsFile = CurrentProject.Path & Mid(paath, InStrRev(paath, "\", -1))

 

[alsihran]

7 دقائق مضت, AbuuAhmed said:

بدل السطر الأخير بهذا:

يعطيك العافية ابو احمد 

نفس الشي لم يتعرف على مسار الملف اظر الصورة 

لاحظ علامات التنصيص المفروض ما تطلع علامة تنصيص بالبدية والنهاية لكن الغريب انه يتم اضافتهم تلاقئي 

[AbuuAhmed]

ممكن تعطينا قيمة المتغير paath ؟

[alsihran]

قيمة المتغير Paath= string 

يتم جلبها من مربع تحرير وسرد من العمود الثالث 

paath = Me.city.Column(2)

[AbuuAhmed]

لا ، أحتاج قيمته
استخدم هذا السطر Debug.print paath بعد السطر التي أتيت به

وانسخ القيمة من نافذة Immediate Window

[AbuuAhmed]

يبدو لم تتمكن من الوصول إلى نافذة Immediate

آخر محاولاتي ، بدل آخر سطرين بالتالي:
 

   paath = Replace(Me.city.Column(2), """", "")
   xXlsFile = CurrentProject.Path & Mid(paath, InStrRev(paath, "\", -1))

 

[alsihran]

1 ساعه مضت, AbuuAhmed said:

يبدو لم تتمكن من الوصول إلى نافذة Immediate

اعتذر منك خرجت من المنتدى لامر ضروري

سبحان الله بعد اغلاق الجهاز وفتحه من جديد

عمل الكود الأول

2 ساعات مضت, AbuuAhmed said:

xXlsFile = CurrentProject.Path & Mid(paath, InStrRev(paath, "\", -1))

شكرا لك 

[AbuuAhmed]

الحل السابق هو ثانوي وهو كالمسكن ، يختفي الألم ولكن العلة تبقى وتستمر.

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