|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
08.07.2011, 12:50 | #1 |
Форумчанин
Регистрация: 21.04.2011
Сообщений: 128
|
Как избежать ошибку 1004?
есть 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 |
08.07.2011, 13:03 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
не добавлять "код на заведомо несуществующий файл"
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
08.07.2011, 13:42 | #3 |
Форумчанин
Регистрация: 21.04.2011
Сообщений: 128
|
мне надо 1 раз написать прогу и всё, мне надо уйти от её обслуживания, месяцев же 12, мне и надо в проге пробить все 12 месяцев, может какой-то цикл проверки файлов(есть они или нет) создать
|
08.07.2011, 16:09 | #4 |
Форумчанин
Регистрация: 21.04.2011
Сообщений: 128
|
Сделать бы цикл проверки файлов, если он есть, то выполняется действия, если его нет то пропускается действие с его участием.
|
08.07.2011, 16:43 | #5 | |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
Цитата:
Код:
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
|
08.07.2011, 17:49 | #6 |
Форумчанин
Регистрация: 22.06.2011
Сообщений: 325
|
Что мешает написать
Код:
Заказать макрос можно на сайте http://excel4you.ru/
|
11.07.2011, 10:03 | #7 |
Форумчанин
Регистрация: 21.04.2011
Сообщений: 128
|
|
11.07.2011, 10:23 | #8 | |
Форумчанин
Регистрация: 21.04.2011
Сообщений: 128
|
Цитата:
что-то не получается воспользоваться(у меня уровень знаний низкий, что для вас легко, для меня затруднительно) |
|
11.07.2011, 10:39 | #9 |
Форумчанин
Регистрация: 21.04.2011
Сообщений: 128
|
Прогресс! если файла нет, пишет свои значения(почёмуто он ищет максимум в файле Проба на Листе1 и записывает в ячейки C1 и C2, 2 одинаковых значения), если файл есть, то пишет, то что надо)
Последний раз редактировалось Серёга0629; 11.07.2011 в 11:27. |
11.07.2011, 12:05 | #10 |
Форумчанин
Регистрация: 21.04.2011
Сообщений: 128
|
Помогите!!!!!!
.................. 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 март. Буфер обмена почему-то не отчищается, Почему? |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
как избежать подвисания | Juffin | Общие вопросы Delphi | 12 | 18.05.2011 23:41 |
Как избежать повтор строк в тексте | Federal | Помощь студентам | 3 | 19.10.2010 14:38 |
Как избежать Selection? | Мультипликатор | Microsoft Office Word | 10 | 21.06.2010 17:15 |
Бот - как избежать слежки? | boris-blade | Win Api | 9 | 28.12.2009 09:11 |
как избежать кэширования в Опере | rolling | PHP | 3 | 01.12.2009 18:34 |