игнорирование ошибок

[frantic150]

Дело в следующем:
есть папка, где много файлов (ексель) с именами: "1", "2", "4", "7" и так до "100".
Но суть, в том, что нет, например, файлов с именами 3, 5, 14, 29 и т.д.
Задача состоит в том, чтобы с помощью макроса перенести все имена файлов в колонку
В итоге мы должны иметь следующее:
1
2
4
7
10
15
...
100

Или же нужен просто цикл, где по очереди будут открываться/закрываться эти книги (1,2,4,5..100)
То есть нужен макрос, где будут игнорироваться ошибки "Не удалось найти "C:\Documents\"4".xls" и т.д

[motorway]

По идее, для этого используется On Error Resume Next

[frantic150]

Сообщение от motorway

По идее, для этого используется On Error Resume Next

как им пользоваться?

[Dophin]

дык Вам что надо то?

получить имена файлов из папки? это метод Dir()

открыть произвольные имена? тогда? как верно замечено выше, - on error resume next

[frantic150]

надо получить имена файлов в папке
помогите написать макрос

[Dophin]

Sub Filename()
Dim Directory As String '
Dim f As String
Dim r As Integer

Directory = ("c:\vba\Коэф-ы недели\") 'сюда нужную папку
f = Dir(Directory)
Do While f <> ""
r = r + 1
Cells(r, 1) = f ' будет выводиться на активный лист в столбец А
f = Dir()
Loop


End Sub

вот пожалуйста