Printable View
سلام خدمت دوستان و سروران عزیز
صیح جمعه تان به خیر
برای باز کردن Browser از دستور زیر استفاده کرده ام:
Application.FollowHyperlink CurrentProject.Path
میخواهم با انتخاب فایل مورد نظر، آدرس کامل فایل (به همراه نام فایل و پسوند) درون تکست باکس کپی شود.
ممنون می شوم اگر راهنمایی فرمائید.
سلامنقل قول:
نوشته شده توسط m3343kh
با CurrentProject.Path فقط آدرس مسیر جاری بدست می آید باید نام فایل مورد نظر هم بعد از آن قید شود
مثلاً بصورت زیر:
Application.FollowHyperlink CurrentProject.Path & "\Excel.xls"
که در این حالت میتوان از طریق تابع Right و StrReverse آدرس کامل ، نام فایل و نام پسوند فایل را بدست آورد
سلامنقل قول:
نوشته شده توسط eb_1345
سپاسگزارم
اگر امکان دارد یکم بیشتر راهنمایی کنید که چطور هم یک آدرس خاص و ثابت باز شود و هم آدرس کامل فایل انتخاب شده با استفاده از توابعی که فرمودید انتخاب شود.
فرض می کنیم شما در مسیر جاری یک فایل اکسل داری با نام Excel.xls که میخواهی ضمن باز کردن آن آدرس کامل و نام کامل خود فایل و نام پسوند آن را بدست آوریدنقل قول:
نوشته شده توسط m3343kh
با این فرض از کدهای زیر استفاده می کنیم:
Application.FollowHyperlink CurrentProject.Path & "\Excel.xls"
Text1 = CurrentProject.Path & "\Excel.xls"
Text2 = Right(Text1, InStr(1, StrReverse(Text1), "\") - 1)
Text3 = Right(Text2, InStr(1, StrReverse(Text2), ".") - 1)
با این کدها مسیر کامل فایل در تکست 1 نام کامل فایل که Excel.xls می باشد در تکست 2 و نام پسوند فایل که xls می باشد در تکست 3 قرار می گیرد
ممنون از وقتی که گذاشتید