لینک کردن یه دکمه به یه فایل اکسل دیگه

Collapse
X
 
  • زمان
  • Show
Clear All
new posts
  • kebriya

    • September 2012
    • 31

    لینک کردن یه دکمه به یه فایل اکسل دیگه

    سلام دوستان. دو تا فایل اکسل دارم که میخوام با کلیک بر روی یک دکمه، فایل اکسل دوم باز شود. با چه کدی میتونم این کارو انجام بدم؟
    هوا گرفته بود و باران میبارید........ کودکی آهسته گفت: خدایا گریه نکن آدما درست میشن:exclamation:
  • MEYTI

    • November 2010
    • 362

    #2
    RE: لینک کردن یه دکمه به یه فایل اکسل دیگه

    با سلام خدمت شما دوست عزیز
    کد PHP:
    Sub Button1_Click()

    Dim oWB As Workbook

    Set oWB 
    Workbooks.Open("C:\Documents and Settings\pr1\Desktop\test.xlsm")

    End Sub 
    مهدی کریمی

    Comment

    • kebriya

      • September 2012
      • 31

      #3
      RE: لینک کردن یه دکمه به یه فایل اکسل دیگه

      ممنون دوست عزیز. فقط دکمه تشکر جوابگوی زحمتتون نبود. خیلی لطف کردین
      هوا گرفته بود و باران میبارید........ کودکی آهسته گفت: خدایا گریه نکن آدما درست میشن:exclamation:

      Comment

      • kebriya

        • September 2012
        • 31

        #4
        RE: لینک کردن یه دکمه به یه فایل اکسل دیگه

        نوشته اصلی توسط MEYTI
        با سلام خدمت شما دوست عزیز
        کد PHP:
        Sub Button1_Click()

        Dim oWB As Workbook

        Set oWB 
        Workbooks.Open("C:\Documents and Settings\pr1\Desktop\test.xlsm")

        End Sub 
        میشه کاری کرد که مسیر فایل رو ثابت ندیم؟ یعنی مثلا هر دو روی یه دایرکتوری باشن. آخه فقط اسم فایل و پسوندش رو میذارم بدون مسیر کامل فقط یکبار اجرا میکنه و دفعه دوم خطا میده که فایل مورد نظرو پیدا نمیکنم
        هوا گرفته بود و باران میبارید........ کودکی آهسته گفت: خدایا گریه نکن آدما درست میشن:exclamation:

        Comment

        • MEYTI

          • November 2010
          • 362

          #5
          RE: لینک کردن یه دکمه به یه فایل اکسل دیگه

          با سلام خدمت شما خانم محترم
          کد PHP:
          Sub Button1_Click()
          Dim ADDRESS As String

          ADDRESS 
          ThisWorkbook.Path

          Dim oWB 
          As Workbook

          Set oWB 
          Workbooks.Open(ADDRESS "\n.xlsm")

          End Sub 
          مهدی کریمی

          Comment

          Working...