Помогите перевести на VBA

[aidar_i]

Помогите решить проблему!

Есть файл 700-H_319_05032010.xls
как сделать так чтобы при команде workbooks.open он воспринимал только код 319 который посередине т.е. *****_319_****.xls ???? Какая команда отсеивает ненужное значение?

Помогите плз

[SAS888]

Какая команда отсеивает ненужное значение?

Например, так:

MsgBox Split([A1], "_")(1)

Где в ячейке "A1" - Ваше значение.

А с открытием файла, мне не понятно. Если есть файл "700-H_319_05032010.xls" (кстати, где его искать?), то открывать нужно файл "319.xls" ?
Если же требуется просмотреть все xls-файлы в папке, например, "C:\Temp", и при совпадении "*_319_*" открыть его, то можно так:

Sub DirFunctionExample()
    Dim myPath As String, myName As String, Wb As Workbook
    myPath = "C:\Temp\": myName = Dir(myPath & "*.xls")
    Do While myName <> ""
        If myName Like "*_319_*" Then
            Set Wb = Workbooks.Open(Filename:=myPath & myName)
            'Ваши действия
        End If
        myName = Dir
    Loop
End Sub

P.S. Чтобы не угадывать, что же Вам все-таки нужно - задавайте вопрос конкретно. Не скупитесь на слова.
Не мешает и соблюдать правила раздела.

[kipish_lp]

Пишу сюда, потому что тема похожая. Необходимо из всех книг в папке скопировать листы с определенным названием в один лист открытой книги. Например, в папке 3 книги, в них по 4 листа, везде одинаковые таблицы с разными данными. Названия листов: 1, 2, 4 (допустим 3 не надо). Надо скопировать в текущую открытую книгу, но данные не подряд, а задать какая колонка в какую (1в5, 2в4, 3в7, в колонку 4 скопировать значение ячейки А3 копируемого листа). Каждые новые данные помещаются ниже предыдущих. В посте №20 не поняла, где можно задать диапазон ячеек для копирования и вставки, а в посте №9 удобно то, что видно какой файл берем, но, чтобы брать след лист, надо в макросе менять.

[SAS888]

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

P.S. Еще лучше - создайте новую тему.