با سلام و احترام..
بنده میخوام یک هایپر لینک رو که فرمولش رو داخل یک سلول اکسل نوشتم و این هایپرلینک یک قایل pdf رو داخل محیط ویندوز باز میکنه رو توسط یک کد در vba باز کنم.. یعنی با فشردن یک کلید فشاری هایپرلینک داخل اون سل اجرا شه و فایل باز شه.. واقعا ممنون میشم کسی کمکم کنه..
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
سلام کد زیر دستور باز کردن فایل PDF است. میتونی مسیری که فایل اکسل تون در آن قرار دارد را جایگزین مسیر فعلی "C:\Users\plan-st-131\Documents\Book1.pdf" کنید تا فایل PDF مورد نظرتون رو فرا خوانی کند.نوشته اصلی توسط khezri_sadegh
()Private Sub CommandButton1_Click
Range("B1").Select
"ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= "C:\Users\plan-st-131\Documents\Book1.pdf
Range("B1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("B1").Delete
End Sub
ویرایش توسط مصطفی رجبی : 2017/10/30 در ساعت 09:30
سلام آقای رجبی.. واقعا سپاسگزادم.. من نزدیک به هزارتا هایپرلینک داخل اکسل نوشتم.. فقط میخوام بتونم از داخل vba کلیک شن تا ران بشن..ممنون میشم اگه بشه کمکم کنید
سلام شما کد نوشته شده رو در CommandButton کپی کنید .
اقای رجبی در این صورت باید هر ۱۰۰۰ تا آدرس در دوباره توی vba بنویسم. درسته؟
بستگی داره اگه فایل های PDF شما در یک پوشه قرار دارن و نام گذاری فایل های PDF از یک منطق عددی پیروی کند میشه با کدنویسی حلقه For حل کرد.
ویرایش توسط مصطفی رجبی : 2017/10/30 در ساعت 12:21
اقای رجبی یعنی هیچ راهی نداره من همون هایپرلینک ها رو فقط Run کنم؟؟
]چرا راه که داره یه مقدار زمان صرف کنید، تو اینترنت موضوع مورد نظرتون رو سرچ کنین حتما به جواب میرسین. موفق باشید
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
مجوز های ارسال و ویرایش
پاسخ با نقل قول
علاقه مندی ها (Bookmarks)