sami salem قام بنشر مارس 29, 2009 مشاركة قام بنشر مارس 29, 2009 الأخوة الأعزاء مرفق ملف أرجو المساعدة بعمل ماكرو لتنفيذ الآتي : ربط الخلية B2 بملف من نوع Pdf بمعنى اذا كانت الخلية تساوي 4 يتم فتح الملف باسم 4 واذا كانت الخلية = 5 يتم فتح الملف باسم 5 والملفات كلها من نوع Pdf علماً مرفق مجلد به ملف اكسل وعدد 2 ملف من نوع Bdf. ان كان ذلك بالأمكان أرجو المساعدة ولكم جزيل الشكر _____________________Pdf.rar 1 رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر مارس 29, 2009 مشاركة قام بنشر مارس 29, 2009 (معدل) السلام عليكم ضع اى ملف PDF في My Documentsو سمه "Test" Sub test() On Error Resume Next Filename = Range("A1").Value ThisWorkbook.FollowHyperlink "C:\Documents and Settings\User\My Documents\" & Filename & ".pdf" End Sub test1.rar تم تعديل مارس 29, 2009 بواسطه ابو اسامة العينبوسي 1 رابط هذا التعليق شارك More sharing options...
sami salem قام بنشر مارس 29, 2009 الكاتب مشاركة قام بنشر مارس 29, 2009 الأخ الكريم / بعد السلام عليكم ورحمة الله وبركاته ،،،، بارك الله فيك على سرعة وتلبية الرد وإنشاء الله في ميزان حسناتك ، ولكن يأخي الكريم بالفعل الماكرو يعمل ولكن لا يقوم بفتح الملف لا أعلم لماذا علماً بأنني قمت بوضع ملف من Pdf بأسم Tes في الفولدر الخاص بالمستندات أرجو الإفادة ولك جزيل الشكر رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مارس 29, 2009 مشاركة قام بنشر مارس 29, 2009 السلام عليكم بعد إذن أخي أبو أسامة المسار لازم يكون مطابق لحالتك فلابد من ضبطه علي مسار My Documents اللي عندك مثلا أنا عندي: C:\Documents and Settings\Home User\My Documents وفي جهاز آخر D:\My Documents وهكذا وممكن تضع الملف في مكان مافيش فيه خلاف مثلا D:\ رابط هذا التعليق شارك More sharing options...
ahmedhafez قام بنشر مارس 30, 2009 مشاركة قام بنشر مارس 30, 2009 اخى طارق تم ظبط المسار ولكنة لا يعمل ولا اعرف السبب ارجو المساعدة جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
sami salem قام بنشر مارس 31, 2009 الكاتب مشاركة قام بنشر مارس 31, 2009 الأخوة الكرام / بعد السلام عليكم ورحمة الله وبركاته بالفعل شاكر لكم تفاعلكم مع طلبي لمساعدتي ومساعدة كل من يحتاج للمعرفة وان شاء الله تُعم المعرفة للجميع. وبالنسبة للماكرو سليم ويعمل ولكن يتم التعرف على المسار ويفتح الملف ويغلق الملف في نفس الوقت ولهذا قد يكون لابد من اضافة آمر لجعله نشط دونلاق ولعل الأخوة بالمنتدى يوجد لديهم حل .......... وله جزيل الشكر ... رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مارس 31, 2009 مشاركة قام بنشر مارس 31, 2009 انا لم أحمل الملف الإكسل ولكن نسخت الماكرو إلي ملف عندي ووضعت إسم الملف المراد فتحه في الخلية A1 حيث ينص الماكرو علي ذلك Filename = Range("[u]A1[/u]").Value والسطر التالي من الماكرو ينص علي: ThisWorkbook.FollowHyperlink "[u]C:\Documents and Settings\User\My Documents\[/u]" & Filename & ".pdf" لذلك يجب تضبيط المسار C:\Documents and Settings\User\My Documents\ ووضع إسم الملف في الخلية A1 وقد فعلت ذلك ولم يحدث مشاكل راجع أمان الماكرو ، لعله غبر مفعل رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مارس 31, 2009 مشاركة قام بنشر مارس 31, 2009 السلام عليكم إليك حل نهائي (باستخدام نفس فكرة أخي أبو أسامة جزاه الله خيرا) الملف المرفق الشرط الوحيد أن يكون الملف الإكسل مع الملفات الــ PDF المراد فتحها في مجلد (فولدر) واحد تفضل وجرب وطبعا ممكن تغير أسماء الملفات الــ PDF Link_Pdf.rar 1 رابط هذا التعليق شارك More sharing options...
sami salem قام بنشر مارس 31, 2009 الكاتب مشاركة قام بنشر مارس 31, 2009 الأخوة الكرام بعد السلام عليكم ورحمة الله وبركاته ،،، بارك الله فيك يأخي طارق وكل الأخوة الذين شاركوا بالمعلومة وبالفعل الماكرو يعمل ولكن للمعلومة عمل عندي فقط لعى ادوب ريدر 8 وليست النسخة 7 وشكراً رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان