Работа с менюшками

 Set xlsWb = xlsApp.Workbooks.Open("C:\Documents and Settings\User\отчет.xls")

Dir("С:...................\п." & Val(S) & ".*") <> ""

Dir(CommonDialog1.ShowOpen"\п." & Val(S) & ".*") <> ""

CommonDialog1.ShowOpen
For S = 1 To 40
   If Dir(CommonDialog1.Initdir & "п."  & S & ".*") <> "" Then

Dir(Folder.initdir & "п."  & S & ".*") <> ""

    MyPath = strPath & "\" ' Указывает путь.

Dir(strPath & "\" & "п."  & S & ".*") <> ""

1   Dir(strPath & "\п."  & S & ".*") <> ""

Dir(sPath & "\п." & S & ".*") <> ""

  BrowseForFolder Me.hWnd, "Hi, Select ... "
Dir(sPath & "\п." & S & ".*") <> ""

Dim strPath As String

Private Sub Command3_click()
Set Fso=createobiect (.........)
Folder Me.hwnd
End Sub
Private Sub Command3_click()
.............
...........
Dir(sPath & "\п." & S & ".*") <> ""
End Sub

Option Explicit
Dim strPath As String

Option Explicit
Dim strPath As String
 
Private Type BrowseInfo
 
    hwndOwner As Long
    pIDLRoot As Long
    pszDisplayName As Long
    lpszTitle As String
    ulFlags As Long
    lpfnCallback As Long
    lParam As Long
    iImage As Long
End Type
 
 
 
    Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
    Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long
    Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
 
Public Function BrowseForFolder(hwndOwner As Long, sPrompt As String) As String
    Const BIF_RETURNONLYFSDIRS = 1, MAX_PATH = 260
    Dim intNull As Integer, lngIdList As Long
    Dim udtBI As BrowseInfo
 
With udtBI
        .hwndOwner = hwndOwner
        .lpszTitle = sPrompt
        .ulFlags = BIF_RETURNONLYFSDIRS
End With
    lngIdList = SHBrowseForFolder(udtBI)
    If lngIdList Then
        strPath = String$(MAX_PATH, 0)
        SHGetPathFromIDList lngIdList, strPath
        CoTaskMemFree lngIdList
        intNull = InStr(strPath, vbNullChar)
        If intNull Then strPath = Left$(strPath, intNull - 1)
    End If
    BrowseForFolder = strPath
End Function
 
 
Private Sub Комманда1_Click()
    BrowseForFolder Me.hWnd, "Hi, Select ... "
    Print strPath
End Sub

sPath = CreateObject("Shell.Application").BrowseForFolder(0, "Select a Folder", BIF_RETURNONLYFSDIRS).self.Path

Private Sub Form_Unload(Cancel As Integer)
 
End Sub

    For Each WB In XL.Workbooks
        WB.Close True 'Закрыть все открытые книги с сохранением изменений
    Next
 
    XL.quit 'Закрыть приложение Excel

Function fileToOpen()
fileToOpen = xlsApp.GetOpenFilename("Все файлы (*.*), *.*")
If fileToOpen = False Then
MsgBox "файл не определен"
fileToOpen.Close
End If
End Function

False.Close 'т.е. ерунда какая-то