Как избежать ошибку 1004?

[Серёга0629]

есть 2 файла, идёт поиск по файлу (Вид 130 131 132 125 аперель),(Вид 130 131 132 125 март), по 2-м листам: В132, и В132, выберается максимальное значение с деопазона А1:А300. и записывается в файл проба.
но если добавить код на заведомо несуществующий файл, то выдаёт ошибку: Run-time 1004/ Application-degined or jbject-defined error

как мне избежать эту ошибку? Спасибо)



Sub PoiskMaksDiapazonDrygaiKniga()
ChDir "C:\Documents and Settings\s.fischenko\Ðàáî÷èé ñòîë\âî 125,130,131,132"
Workbooks.Open Filename:= _
"C:\Documents and Settings\s.fischenko\Ðàáî÷èé ñòîë\âî 125,130,131,132\Âèä 130 131 132 125 àïðåëü.xls"
Sheets("Â132").Activate
'Worksheets("Ëèñò1").Select
ActiveSheet.Range("A1:A300").Select
Selection.Find(Application.Max(Sele ction)).Copy
Workbooks("Ïðîáà.xls").Worksheets(" Ëèñò1").Activate
Sheets("Ëèñò1").Range("A1").PasteSp ecial
Workbooks("Âèä 130 131 132 125 àïðåëü.xls").Sheets("Â131").Activat e
ActiveSheet.Range("A1:A300").Select
Selection.Find(Application.Max(Sele ction)).Copy
Workbooks("Ïðîáà.xls").Worksheets(" Ëèñò1").Activate
Sheets("Ëèñò1").Range("A2").PasteSp ecial
Workbooks("Âèä 130 131 132 125 àïðåëü.xls").Close
Application.CutCopyMode = False ' î÷èùàåò áóôåð îáìåíà
ChDir "C:\Documents and Settings\s.fischenko\Ðàáî÷èé ñòîë\âî 125,130,131,132"
Workbooks.Open Filename:= _
"C:\Documents and Settings\s.fischenko\Ðàáî÷èé ñòîë\âî 125,130,131,132\Âèä 130 131 132 125 ìàðò.xls"
Sheets("Â132").Activate
'Worksheets("Ëèñò1").Select
ActiveSheet.Range("A1:A300").Select
Selection.Find(Application.Max(Sele ction)).Copy
Workbooks("Ïðîáà.xls").Worksheets(" Ëèñò1").Activate
Sheets("Ëèñò1").Range("B1").PasteSp ecial
Workbooks("Âèä 130 131 132 125 ìàðò.xls").Sheets("Â131").Activ ate
ActiveSheet.Range("A1:A300").Select
Selection.Find(Application.Max(Sele ction)).Copy
Workbooks("Ïðîáà.xls").Worksheets(" Ëèñò1").Activate
Sheets("Ëèñò1").Range("B2").PasteSp ecial
Workbooks("Âèä 130 131 132 125 ìàðò.xls").Close
Application.CutCopyMode = False

ChDir "C:\Documents and Settings\s.fischenko\Ðàáî÷èé ñòîë\âî 125,130,131,132"
Workbooks.Open Filename:= _
"C:\Documents and Settings\s.fischenko\Ðàáî÷èé ñòîë\âî 125,130,131,132\Âèä 130 131 132 125.xls"
Sheets("Â132").Activate
'Worksheets("Ëèñò1").Select
ActiveSheet.Range("A1:A300").Select
Selection.Find(Application.Max(Sele ction)).Copy
Workbooks("Ïðîáà.xls").Worksheets(" Ëèñò1").Activate
Sheets("Ëèñò1").Range("C1").PasteSp ecial
Workbooks("Âèä 130 131 132 125.xls").Sheets("Â131").Activate
ActiveSheet.Range("A1:A300").Select
Selection.Find(Application.Max(Sele ction)).Copy
Workbooks("Ïðîáà.xls").Worksheets(" Ëèñò1").Activate
Sheets("Ëèñò1").Range("C2").PasteSp ecial
Workbooks("Âèä 130 131 132 125.xls").Close
Application.CutCopyMode = False
End Sub

[IgorGO]

не добавлять "код на заведомо несуществующий файл"

[Серёга0629]

мне надо 1 раз написать прогу и всё, мне надо уйти от её обслуживания, месяцев же 12, мне и надо в проге пробить все 12 месяцев, может какой-то цикл проверки файлов(есть они или нет) создать

[Серёга0629]

Сделать бы цикл проверки файлов, если он есть, то выполняется действия, если его нет то пропускается действие с его участием.

[kuklp]

Сообщение от Серёга0629

Сделать бы цикл проверки файлов, если он есть, то выполняется действия, если его нет то пропускается действие с его участием.

Так сделайте, кто мешает. Вот Вам ЮДФ для проверки существования файла:

Function FileExists(FName) As Boolean
' Возвращает ИСТИНА, если файл существует
    FileExists = (Dir(FName) <> "")
End Function

[Watcher_1]

Что мешает написать

On Error Resume Next

%))))

[Серёга0629]

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

Что мешает написать

On Error Resume Next

%))))

если вставить эту строку, то есть файл или нет, ставятся левые значения, от куда не пойму

[Серёга0629]

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

Так сделайте, кто мешает. Вот Вам ЮДФ для проверки существования файла:

Function FileExists(FName) As Boolean
' Возвращает ИСТИНА, если файл существует
    FileExists = (Dir(FName) <> "")
End Function

что-то не получается воспользоваться(у меня уровень знаний низкий, что для вас легко, для меня затруднительно)

[Серёга0629]

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

Что мешает написать

On Error Resume Next

%))))

Прогресс! если файла нет, пишет свои значения(почёмуто он ищет максимум в файле Проба на Листе1 и записывает в ячейки C1 и C2, 2 одинаковых значения), если файл есть, то пишет, то что надо)

[Серёга0629]

Помогите!!!!!!
..................
ChDir "C:\Documents and Settings\s.fischenko\Ðàáî÷èé ñòîë\âî 125,130,131,132"
Workbooks.Open Filename:= _
"C:\Documents and Settings\s.fischenko\Ðàáî÷èé ñòîë\âî 125,130,131,132\Вид 130 131 132 125 март.xls"
Sheets("Â132").Activate
'Worksheets("Лист1").Select
ActiveSheet.Range("A1:A300").Select
Selection.Find(Application.Max(Sele ction)).Copy
Workbooks("Проба.xls").Worksheets(" Лист1").Activate
Sheets("Лист1").Range("B1").PasteSp ecial
Workbooks("Вид 130 131 132 125 март.xls").Sheets("Â131").Activate
ActiveSheet.Range("A1:A300").Select
Selection.Find(Application.Max(Sele ction)).Copy
Workbooks("Проба.xls").Worksheets(" Лист1").Activate
Sheets("Ëèñò1").Range("B2").PasteSp ecial
Workbooks("Вид 130 131 132 125 март.xls").Close
Application.CutCopyMode = False



ChDir "C:\Documents and Settings\s.fischenko\Ðàáî÷èé ñòîë\âî 125,130,131,132"
On Error Resume Next
Workbooks.Open Filename:= _
"C:\Documents and Settings\s.fischenko\Ðàáî÷èé ñòîë\âî 125,130,131,132\fffffffffffffffffff .xls"
Workbooks("fffffffffffffffffff.xls" ).Sheets("Â132").Range("A1:A300").S electFind(Application.Max(Selection )).Copy
Workbooks("Ïðîáà.xls").Worksheets(" Ëèñò1").Activate
Sheets("Ëèñò1").Range("C1").PasteSp ecial
Workbooks("fffffffffffffffffff.xls" ).Sheets("Â131").Range("A1:A300").S electFind(Application.Max(Selection )).Copy
Workbooks("Ïðîáà.xls").Worksheets(" Ëèñò1").Activate
Sheets("Ëèñò1").Range("C2").PasteSp ecial
Workbooks("fffffffffffffffffff.xls" ).Close
Application.CutCopyMode = False

а если сделать так, то ставится последнее значение из файла Вид 130 131 132 125 март. Буфер обмена почему-то не отчищается, Почему?