Visual Basic for Application задача номер раз

[Drek]

Не знаю как сделать скрипт:
Сначала нужно найти файл с расширением xls или xlsx в заданной папке.
Если он существует открыть его.
Найти столбец с именем Test Если такой столбец есть то закрыть ексель скопировать файл в другую папку и а из начальной папки удалить.
Помогите плиз

[EducatedFool]

Sub test()
    папка1 = "E:\Excel\": папка2 = "D:\": файл = "алгоритм.xls"
    On Error Resume Next
    ' открываем файл, и на первом листе ищем в первой строке "Test"
    x = GetObject(папка1 & файл).Worksheets(1).Rows(1).Find("Test").Column
    GetObject(папка1 & файл).Close False    ' закрываем файл без сохранения
    If Err = 0 Then    ' ошибки не было - значит, столбец найден
        Name папка1 & файл As папка2 & файл  ' перемещаем файл в папку2
    End If
End Sub

[Drek]

Спасибо. Но есть ещё одна проблема. Я не знаю имя файла.
Тобишь я знаю папку в которой есть этот файл но я не знаю его имени. он в этой папке единственный файл с расширением xls
И ещё одно дополнение что файлы могут быть как xls так и xlsx

[Serge_Bliznykov]

excel какой?
можете такой код попробовать:

    Dim myName As String    
    myName = Dir("C:\ИМяВашейПапки\" & "*.xls*") 'Подставьте Ваш путь к файлу.
    Do While myName <> ""

          ... тут обработка файла с именем myName ....

         myName = Dir
    Loop

[Drek]

excel 2003 - 2007

[Drek]

myName = Dir("C:\ИМяВашейПапки\" & "*.xls*")

Не работает.

[Drek]

Всё, разобрался. Спасибо. Работает.