[حل شده] آدرس دهی پویا

[armani]

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

ممنونم از حسن توجه شما

[kazamie]

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

ممنونم از حسن توجه شما

Sub k()Dim a As String
a = ThisWorkbook.Path
Workbooks.Open (a & "\" & "folder\book1.xlsx")
End Sub

[armani]

Sub k()Dim a As String
a = ThisWorkbook.Path
Workbooks.Open (a & "\" & "folder\book1.xlsx")
End Sub

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

[kazamie]

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

پوشه خارجی مگر کنار فایل اکسل نیست؟
یعنی ممکنه پوشه جا به جا هم بشود؟ پوشه در این کد که نوشتم باید همیشه کنار فایل اکسل باشد و همراه با فایل اکسل جا به جا شود اگر همراه با هم باشند در هر مسیری و هر کامپیوتری که کپی شوند مشکلی ایجاد نمیشود

[armani]

پوشه خارجی مگر کنار فایل اکسل نیست؟
یعنی ممکنه پوشه جا به جا هم بشود؟ پوشه در این کد که نوشتم باید همیشه کنار فایل اکسل باشد و همراه با فایل اکسل جا به جا شود اگر همراه با هم باشند در هر مسیری و هر کامپیوتری که کپی شوند مشکلی ایجاد نمیشود

جسارتا با توجه به عکسی که پیوست کردم امکانش هست راهنمایی کنید
اون کدی که نوشته شده کار می کنه فقط در خطی که مسیر فایل رو باید مشخص کنم موندم چی بنویسم ؟

[kazamie]

Sub k()
Dim a As workbook
Dim b As String
Set a=ThisWorkbook
b = ThisWorkbook.Path
Workbooks.Open (b & "\" & "folder\book1.xlsx")
a.Saved=true
a.Close
End Sub 

[armani]

Sub k()
Dim a As workbook
Dim b As String
Set a=ThisWorkbook
b = ThisWorkbook.Path
Workbooks.Open (b & "\" & "folder\book1.xlsx")
a.Saved=true
a.Close
End Sub 

ممنونم مشکلم حل شد