найти и открыть файл... взять значение из файла и вывести

[klukva200808]

Есть шаблон в Excel. При его заполнении он сохраняется на диске D. нужно организовать поиск на диске.. т.е. проверить существует ли заданный файл, а в последующем открыть его или просто взять значение из ячейки и вывести в MsgBox...не открывая найденный файл... Я попыталась организовать это таким оброзом... вроде файл ищет, но не открывает его.

Private Sub CommandButton3_Click()

fail1 = InputBox("Введи № Заказа:")
papka = "D:\"
fail = Dir(papka & "№ Заказ " & fail1 & ".xlsm")
If Len(fail) = 0 Then MsgBox "Файл не найден" 'vbCritical:
Exit Sub ' нет подходящего файла
Set Ex = CreateObject("excel.application")
Ex.Workbooks.Open Filename:=papka & "№ Заказ " & fail1 & ".xlsm"
Ex.Application.Visible = True

End Sub

[gsg]

можно попробовать так:

Sub file_open()
Dim ex As Excel.Application

Dim oFSO As New FileSystemObject
Dim oFolder As Folder
Dim oFile As File
Dim bFileExist As Boolean

Set oFSO = CreateObject("scripting.filesystemobject")

fail1 = InputBox("Введи № Заказа:")

Set oFolder = oFSO.GetFolder("d:\")

For Each oFile In oFolder.Files
    If oFile.Name = "№ заказ " & fail1 & ".xlsm" Then
        bFileExist = True
        Set ex = CreateObject("excel.application")
        ex.Workbooks.Add oFile.Path
        ex.Application.Visible = True
        Exit For
    End If
Next oFile

If bFileExist = False Then MsgBox "Файл не найден"


End Sub

[klukva200808]

огромное спасибо!!!! Все получилось!! Ура!!!