امکان باز کردن فایل در تمام کامپیوترها

[z.fotouhi]

با سلام
من یه برنامه نوشتم که اطلاعات رو از فایل های اکسل داخل همون پوشه داخل فایل اصلی میریزه
برای ریختن اطلاعات کد workbook.open رو قرار دادم
منتها به خاطر اینکه مسیر باز شدن از کامپیوتر خودم داخل فایل هست وقتی این فایل رو داخل کامپیوتر دیگه میخوام اجرا کنم انجام نمیشه
آیا روشی هست که من کل پوشه فایل هامو اگه به کامپیوتری دیگه بردم بازم کدم قابل اجرا باشه؟ منظورم دادن مسیر باز شدنه فایل هاست

[iranweld]

با سلام

اگر چنانچه مسیر فایل باز شده را برای باز کردن سایر فایلها میخواهید از دستور برای دادن مسیر استفاده کنید

zz = ActiveWorkbook.Path

MsgBox zz 

[z.fotouhi]

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

ChDir "G:\fotouhi\Dastresi\dailyreport95"
    Workbooks.Open Filename:="G:\fotouhi\Dastresi\dailyreport95\sard.xlsx" 

[iranweld]

این کد را تست کنید.( در صورتیکه فایل اصلی شما هم در این مسیر قرار داشته باشد)

Sub TEST()

Dim ZZ As String

ZZ = ActiveWorkbook.Path

Workbooks.Open Filename:=ZZ & "\sard.xlsx"


End Sub