بررسی وجود یا عدم وجود یک فولدر در مسیر خاص توسط اکسل

از کدهای زیر استفاده نمائید

    FolderPath = "C:\Users\Ron\test"
    If Right(FolderPath, 1) <> "\" Then
        FolderPath = FolderPath & "\"
    End If
    
    If Dir(FolderPath, vbDirectory) <> vbNullString Then
        MsgBox "Folder exist"
    Else
        MsgBox "Folder doesn't exist"
    End If

نقل شده از

http://www.rondebruin.nl/win/s9/win003.htm

باز کردن یک پوشه از ویندوز توسط اکسل

برای این منظور در محیط vba از تابع shell مشابه مثال زیر استفاده نمائید

Call Shell("explorer.exe" & " " & "path file", vbNormalFocus)

به جای path file مسیر پوشه مورد نظر را وارد نمائید