alsihran قام بنشر ديسمبر 3, 2022 مشاركة قام بنشر ديسمبر 3, 2022 السلام عليكم عندي هذا الكود لفتح ملف اكسل وشغال تمام 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 وخزنت المسار بالكامل في الجدول لكل ملف كما موضح بالصورة المرفقة المشكلة عند تنفيذ الكود واستدعاء اسم الملف تظهر علامات تنصيص زياده ولا يتعرف على مسار الملف ارجو المساعده في حل الاشكال رابط هذا التعليق شارك More sharing options...
أفضل إجابة AbuuAhmed قام بنشر ديسمبر 3, 2022 أفضل إجابة مشاركة قام بنشر ديسمبر 3, 2022 بدل السطر الأخير بهذا: xXlsFile = CurrentProject.Path & Mid(paath, InStrRev(paath, "\", -1)) 1 رابط هذا التعليق شارك More sharing options...
alsihran قام بنشر ديسمبر 3, 2022 الكاتب مشاركة قام بنشر ديسمبر 3, 2022 7 دقائق مضت, AbuuAhmed said: بدل السطر الأخير بهذا: يعطيك العافية ابو احمد نفس الشي لم يتعرف على مسار الملف اظر الصورة لاحظ علامات التنصيص المفروض ما تطلع علامة تنصيص بالبدية والنهاية لكن الغريب انه يتم اضافتهم تلاقئي رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر ديسمبر 3, 2022 مشاركة قام بنشر ديسمبر 3, 2022 ممكن تعطينا قيمة المتغير paath ؟ 1 رابط هذا التعليق شارك More sharing options...
alsihran قام بنشر ديسمبر 3, 2022 الكاتب مشاركة قام بنشر ديسمبر 3, 2022 قيمة المتغير Paath= string يتم جلبها من مربع تحرير وسرد من العمود الثالث paath = Me.city.Column(2) رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر ديسمبر 3, 2022 مشاركة قام بنشر ديسمبر 3, 2022 لا ، أحتاج قيمته استخدم هذا السطر Debug.print paath بعد السطر التي أتيت به وانسخ القيمة من نافذة Immediate Window رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر ديسمبر 3, 2022 مشاركة قام بنشر ديسمبر 3, 2022 يبدو لم تتمكن من الوصول إلى نافذة Immediate آخر محاولاتي ، بدل آخر سطرين بالتالي: paath = Replace(Me.city.Column(2), """", "") xXlsFile = CurrentProject.Path & Mid(paath, InStrRev(paath, "\", -1)) رابط هذا التعليق شارك More sharing options...
alsihran قام بنشر ديسمبر 3, 2022 الكاتب مشاركة قام بنشر ديسمبر 3, 2022 1 ساعه مضت, AbuuAhmed said: يبدو لم تتمكن من الوصول إلى نافذة Immediate اعتذر منك خرجت من المنتدى لامر ضروري سبحان الله بعد اغلاق الجهاز وفتحه من جديد عمل الكود الأول 2 ساعات مضت, AbuuAhmed said: xXlsFile = CurrentProject.Path & Mid(paath, InStrRev(paath, "\", -1)) شكرا لك 1 رابط هذا التعليق شارك More sharing options...
AbuuAhmed قام بنشر ديسمبر 3, 2022 مشاركة قام بنشر ديسمبر 3, 2022 الحل السابق هو ثانوي وهو كالمسكن ، يختفي الألم ولكن العلة تبقى وتستمر. الحل التالي هو معالجة العلة/المشكلة وهي طريقة تخزين المسار في الجدول ، هذه لابد أن تجد لها حلا. اعرض لنا الكود المسئول عن إضافة المسار واسم الملف للجدول أو للقائمة وسوف نحل المشكلة من جذورها إن شاء الله. رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان