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

[kebriya]

سلام دوستان. دو تا فایل اکسل دارم که میخوام با کلیک بر روی یک دکمه، فایل اکسل دوم باز شود. با چه کدی میتونم این کارو انجام بدم؟

[MEYTI]

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

با سلام خدمت شما دوست عزیز

Sub Button1_Click()

Dim oWB As Workbook

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

End Sub 

[kebriya]

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

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

[kebriya]

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

با سلام خدمت شما دوست عزیز

Sub Button1_Click()

Dim oWB As Workbook

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

End Sub 

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

[MEYTI]

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

با سلام خدمت شما خانم محترم

Sub Button1_Click()
Dim ADDRESS As String

ADDRESS = ThisWorkbook.Path

Dim oWB As Workbook

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

End Sub