سلام خدمت دوستان عزیر من یک فایل اکسل دارم داخل ان چندین تا فایل دارم با رفتن روی فایل آدرس فایل داخل یک تکس نمایش داده میشه حالا می خواهم یک دکمه طراحی کنم که فایل مورد نظر را باز کنه یعنی آدرس فایل را دارم حالا چه کدی برای دکمه مورد نظر بنویسم با تشکر از دوستان
کد برای باز کردن یک آدرس در اکسل
Collapse
این تاپیک قفل است.
X
X
-
-
سلام خدمت دوستان درباره مشکل من کسی نظر ندارد من یک کد vb می خوام که داخل اکسل بنویسم این کد آدرس یک فایل داخل یک تکس باکس را بخونه و اون فایل را باز کنه لطفا اگه کسی نظری داره راهنمایی کنه -
روش ساده استفاده از یک شیپ و هایپر لینک هست
اگر نیاز به استفاده از کد vba دارید
کد PHP:Workbooks.Open Filename:=”File_Name”
Or
Workbooks.Open “File_Name”
[CENTER][COLOR=#ffd700][/COLOR]تنها راهي که به شکست مي انجامد، تلاش نکردن است
[IMG]http://www.graphics18.com/wp-content/uploads/2010/12/yellow-flower23.gif[/IMG]
[/CENTER]کامنت
-
سلام با تشکر از شما من این کد را وارد می کنم جواب نمیده
من ادرس فایلم داخل یک تکس باکس داخل یک فرم نمایش میده C:\Users\MK\Desktop\osmani\A1.pdf حالا میخوام داخل این فرم یک دکمه بزارم که وقتی میزنم ابتدا ادرس داخل تکس باکس را بخونه و فایل را باز کنهLast edited by majidosmani; 2019/02/20, 17:01.کامنت
-
-
FollowHyperlink
سلام دوست عزیز
درصورتی که آدرس فایل مورد نظر شما در TextBox1 قرار داشته باشه با ایجاد یک CommandButton و نوشتن کد زیر در آن ، می تونید به خواستتون برسید:
کد PHP:Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink Address:=TextBox1.Text, NewWindow:=True
End Sub
موفق باشید.
فایل های پیوست شده[CENTER][B][SIZE=5][COLOR=#006600][FONT=georgia][COLOR=#800000]!With [/COLOR][/FONT][/COLOR][COLOR=#006600][FONT=georgia]God [/FONT][/COLOR][COLOR=#006600][FONT=georgia][COLOR=#800000]all [/COLOR][/FONT][/COLOR][COLOR=#800000][FONT=georgia]things are [/FONT][/COLOR][COLOR=#006600][FONT=georgia]possible[/FONT][/COLOR][/SIZE][/B][B][FONT=Tahoma]
[/FONT][/B][/CENTER]
[CENTER][B][FONT=Tahoma] [IMG]http://forum.exceliran.com/attachment.php?attachmentid=5334&d=1419428336[/IMG]
[/FONT][/B][SIZE=1][FONT=Tahoma][B][FONT=Tahoma]
[/FONT][/B][/FONT][/SIZE]
[/CENTER]کامنت
-
سلام دوست عزیز
درصورتی که آدرس فایل مورد نظر شما در TextBox1 قرار داشته باشه با ایجاد یک CommandButton و نوشتن کد زیر در آن ، می تونید به خواستتون برسید:
کد PHP:Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink Address:=TextBox1.Text, NewWindow:=True
End Sub
موفق باشید.
کامنت
کامنت