بدست اوردن مسیر اجرای فایل در ویژوال بیسیک اکسل

[mr.siahatgar]

سلام
ببخشید من دو باره ای موضوع رو مینوسیم ولی خیلی ضروری هست
من میخوام در ویژوال بیسک اکسل مسیر فایل اجاریی رو بدست اورم با فرمان APP.PATH به نتیجه نرسیدم و جواب نداد لطفاً راهنمایی کنید

[حمید محمودی]

با Application.Path چی؛ کار نمیکنه؟ (البته تست نکردم)

[mr.siahatgar]

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

[حمید محمودی]

سلام،

کمی نگاه کردم، با تابع CurDir یا CurDir$ میتونید به مقصودتون برسید. دقت کنید که این تایع رو بدون آرگومان استفاده کنید.

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




CurDir Function

Returns a Variant (String) representing the current path.

Syntax

CurDir[(drive)]

The optional drive argument is a string expression that specifies an existing drive. If no drive is specified or if drive is a zero-length string (""), CurDir returns the path for the current drive. On the Macintosh, CurDir ignores any drive specified and simply returns the path for the current drive.

Example
This example uses the CurDir function to return the current path. On the Macintosh, drive specifications given to CurDir are ignored. The default drive name is "HD" and portions of the pathname are separated by colons instead of backslashes. Similarly, you would specify Macintosh folders instead of \Windows.

' Assume current path on C drive is "C:\WINDOWS\SYSTEM" (on Microsoft Windows).
' Assume current path on D drive is "D:\EXCEL".
' Assume C is the current drive.
Dim MyPath
MyPath = CurDir ' Returns "C:\WINDOWS\SYSTEM".
MyPath = CurDir("C") ' Returns "C:\WINDOWS\SYSTEM".
MyPath = CurDir("D") ' Returns "D:\EXCEL".

[Javad-2010]

دوست عزیز؛
از کد زیر استفاده کن:

Path = Application.Workbooks("Book1.xlsm").Path
فقط به جای Book1.xlsm اسم فایل خودتان را بنویسید.