بررسی مسیر فایل در حال اجرا

[khorasan66]

با سلام
فایلی می بایست در مسیر معین شده مثلاً \e:\01 جایگزین و اجرا شود
دستوری را لازم دارم که در هر بار باز شدن فایل صحت شرط فوق را بررسی و در صورت ناصحیح بودن پیامی جهت خطای مسیر داده و سپس کل فایل را ببندد .

[iranweld]

با سلام
کدهای ذیل را تست بفرمایید.
در صورتیکه فایل اکسلی با نام مشخص شده در سلول A1 وجود داشت(در درایو "C:\" )
فایل فوق باز میشود و در صورت عدم وجود فایل به شما پیغام داده میشود


Sub TEST()

Dim strFile As String
Dim WB As Workbook
strFile = Trim(Sheet1.Range("A1").Value)
If Len(strFile) = 0 Then Exit Sub

Dim DirFile As String
DirFile = "C:\" & strFile
If Len(Dir(DirFile)) = 0 Then
MsgBox "File does not exist"
Else
Set WB = Workbooks.Open(DirFile)
End If
End Sub