کد برای باز کردن یک آدرس در اکسل

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • majidosmani

    • 2015/02/23
    • 51
    • 29.00

    [حل شده] کد برای باز کردن یک آدرس در اکسل

    سلام خدمت دوستان عزیر من یک فایل اکسل دارم داخل ان چندین تا فایل دارم با رفتن روی فایل آدرس فایل داخل یک تکس نمایش داده میشه حالا می خواهم یک دکمه طراحی کنم که فایل مورد نظر را باز کنه یعنی آدرس فایل را دارم حالا چه کدی برای دکمه مورد نظر بنویسم با تشکر از دوستان
  • majidosmani

    • 2015/02/23
    • 51
    • 29.00

    #2
    سلام خدمت دوستان درباره مشکل من کسی نظر ندارد من یک کد vb می خوام که داخل اکسل بنویسم این کد آدرس یک فایل داخل یک تکس باکس را بخونه و اون فایل را باز کنه لطفا اگه کسی نظری داره راهنمایی کنه

    کامنت

    • Alireza
      مدير تالار تنظيمات اكسل

      • 2011/03/01
      • 648
      • 80.00

      #3
      نوشته اصلی توسط majidosmani
      سلام خدمت دوستان عزیر من یک فایل اکسل دارم داخل ان چندین تا فایل دارم با رفتن روی فایل آدرس فایل داخل یک تکس نمایش داده میشه حالا می خواهم یک دکمه طراحی کنم که فایل مورد نظر را باز کنه یعنی آدرس فایل را دارم حالا چه کدی برای دکمه مورد نظر بنویسم با تشکر از دوستان
      سلام وقت بخیر
      روش ساده استفاده از یک شیپ و هایپر لینک هست
      اگر نیاز به استفاده از کد 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]

      کامنت

      • majidosmani

        • 2015/02/23
        • 51
        • 29.00

        #4
        سلام با تشکر از شما من این کد را وارد می کنم جواب نمیده
        من ادرس فایلم داخل یک تکس باکس داخل یک فرم نمایش میده C:\Users\MK\Desktop\osmani\A1.pdf حالا میخوام داخل این فرم یک دکمه بزارم که وقتی میزنم ابتدا ادرس داخل تکس باکس را بخونه و فایل را باز کنه
        Last edited by majidosmani; 2019/02/20, 17:01.

        کامنت

        • majidosmani

          • 2015/02/23
          • 51
          • 29.00

          #5
          کسی پیدا نشد این کد را بهم بگه

          کامنت

          • حسام بحرانی

            • 2013/09/29
            • 2065
            • 72.00

            #6
            FollowHyperlink

            سلام دوست عزیز
            درصورتی که آدرس فایل مورد نظر شما در
            TextBox1 قرار داشته باشه با ایجاد یک CommandButton و نوشتن کد زیر در آن ، می تونید به خواستتون برسید:
            کد PHP:
            Private Sub CommandButton1_Click()
            ActiveWorkbook.FollowHyperlink Address:=TextBox1.TextNewWindow:=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]

            کامنت

            • majidosmani

              • 2015/02/23
              • 51
              • 29.00

              #7
              نوشته اصلی توسط حسام بحرانی
              سلام دوست عزیز
              درصورتی که آدرس فایل مورد نظر شما در
              TextBox1 قرار داشته باشه با ایجاد یک CommandButton و نوشتن کد زیر در آن ، می تونید به خواستتون برسید:
              کد PHP:
              Private Sub CommandButton1_Click()
              ActiveWorkbook.FollowHyperlink Address:=TextBox1.TextNewWindow:=True
              End Sub 
              برای مثال به فایل زیر نگاه کنید و آدرس اونو تغییر بدید.
              موفق باشید.
              ممنون

              کامنت

              چند لحظه..