|
Здравствуйте! Передо мной стоит задача открыть файлы и перечислить список файлов excel в папке. Без знаний VBA с помощью интернета составила макрос, он работает, переписывает названия файлов в папке, но если натыкается на файл, который выдает ошибку при открытии, он прекращает работу. Ошибка — например: Помогите пожалуйста дописать код так, чтобы при открытии файла с ошибкой, макрос переходил к следующему файлу. r = Range(«A65536»).End(xlUp).Row + 1 ‘íàõîäèì ïåðâóþ ïóñòóþ ñòðîêó For Each FileItem In SourceFolder.Files If FileItem.Name Like «*» & «.xls» & «*» Then X = SourceFolder.Path |
|
|
Johny  Пользователь Сообщений: 2737 |
А зачем открывать книгу??? здесь . Изменено: Johny — 18.01.2013 12:11:08 There is no knowledge that is not power |
|
Z  Пользователь Сообщений: 6111 Win 10, MSO 2013 SP1 |
#3 18.01.2013 12:14:07
Только для вас — http://www.planetaexcel.ru/techniques/12/45/ … «Ctrl+S» — достойное завершение ваших гениальных мыслей!.. |
||
|
Johny, книгу мне открывать надо, т.к. в дальнейшем необходимо будет усложнить макрос и записать все связи из этой книги в отдельный лог, буду делать на основе данного макроса. Мой макрос работает (можете посмотреть приложенный файл), просто не получается обработать именно ошибку, т.е. на 500 строке он у меня перестает работать, т.к. очередной файл не открывается,и он сам не переходит к следующему. Z, спасибо, на основании этой статьи я как раз и написала свой макрос)))) Но ошибку мою он не обрабатывает, т.к. мне нужно обязательно именно открывать каждый файл и переходить к следующему в случае ошибки открытия. В этом и касяк, что у меня не переходит((( |
|
|
ber$erk  Пользователь Сообщений: 2735 |
по ссылке ниже в комментариях написано, что надо добавить «On Error Resume Next» Учимся сами и помогаем другим… |
|
Johny Пользователь Сообщений: 2737 |
#6 18.01.2013 12:32:22 Может, так?
There is no knowledge that is not power |
||
|
Ангелина Ткаченко Пользователь Сообщений: 25 |
#7 18.01.2013 12:37:48
ааа, не дочитала! спасибо |
||
|
Johny, огромнейшее Вам спасибо! Помогло, я пол дня мучалась! ура, спасибо! |
|
|
Еще вопрос, подскажите, пожалуйста, если среди файлов которые перебирает макрос есть файл, который запрашивает пароль при открытии, как можно проигнорировать открытие данного файла и перейти к следующему? |
|
|
Пробовала эксперементировать с Application.DisplayAlerts — не помогло… |
|
|
sva Пользователь Сообщений: 1027 |
Перед открытием фалов дописываете If Err <> 1004 Then |
|
Сделала как вы написали, всё-равно высвечивается поле для ввода пароля и пока не введешь его, или не нажмешь отмену цикл дальше не продолжается. а т.к. у меня 16 гигабайт файлов excel я хочу поставить макрос на выолнение на ночь, чтобы не нажимать в каждом файле кнопку «Отмена». Как сделать чтобы не запрашивал файл окошко с паролем? Прикрепленные файлы
|
|
|
Johny Пользователь Сообщений: 2737 |
#13 22.01.2013 16:35:02 По скрину видно, что «Только для чтения» — активная кнопка. Быть может, это поможет:
Изменено: Johny — 22.01.2013 16:36:18 There is no knowledge that is not power |
||
|
Ангелина Ткаченко Пользователь Сообщений: 25 |
#14 22.01.2013 16:57:06
Не помогло, но возможно я неверно вставила в код — вот что у меня получилось: If FileItem.Name Like «*» & «.xls» & «*» Then Application.SendKeys «{ENTER}» If Err <> 1004 Then Cells(r, 1).Formula = FileItem.Name Workbooks.Item(FileItem.Name).Activate r = r + 1 ActiveWorkbook.Close SaveChanges:=False End If |
||
|
sva Пользователь Сообщений: 1027 |
Вот вам пример. PS пароль на второй файл 1. Прикрепленные файлы
|
|
Да, спасибо большое, получилось. Я писала Password = «», а у вас WriteResPassword:=»» |
|
|
sva Пользователь Сообщений: 1027 |
Если бы сразу скрин показали, предложил бы вариант с паролем на изменение |
|
Наткнулась на еще одну проблему, никак не могу обойти((((((((((((( Помогите, пожалуйста. Уже куда только не пыталась вставить обработчик ошибок — картина та же. Я очень плохо знаю VBA, а написать этот макрос мне очень нужно. Прошу очень помочь знатоков. Вот мой код (может где-то увидете ошибку, куда можно дописать обработчик). For Each FileItem In SourceFolder.Files If Err <> 1004 Then ЭтаКнига.Activate Cells(r, 1).Formula = FileItem.Name Workbooks.Item(FileItem.Name).Activate r = r + 1 ActiveWorkbook.Close SaveChanges:=False End If End If End If X = SourceFolder.Path Next FileItem Также прилагаю архив, в нем 2 папки. В одной рабочие файлы, в другой вышеописанный косячный файл для теста. Макрос должен открывать каждый файл из папки, записывать его имя на лист (как бы вести лог) и закрывать. Папка выбирается в файле с макросом. Помогите, пожалуйста разобраться где не хватает обработчика ошибок( |
|
|
Sergei_A Пользователь Сообщений: 443 |
#19 28.01.2013 17:36:33 Попробуйте так
|
||
|
RAN  Пользователь Сообщений: 7091 |
#20 28.01.2013 23:07:26
Глюков (ошибок) не обнаружено. Все отрабатывает справно. Возможно, проблема связана с сетью. |
||
|
Ангелина Ткаченко Пользователь Сообщений: 25 |
#21 29.01.2013 09:17:59 Sergei_A, большое спасибо! Вроде помогло) |
Не так давно очередной раз столкнулся с ошибками приложения Excel при попытке включения макросов после открытия файлов .xlsm. Вспомнил, что подобные проблемы преследуют пользователей довольно давно, но чаще всего они наблюдались с Excel 2013 и Excel 2016. Характерные особенности этой группы ошибок следующие:
- Приложение Excel закрывается при открытии файла с макросами (при включенном режиме безопасности Включить все макросы);
- Ошибка приложения Excel возникает при попытке включить содержимое (нажатии соответствующей кнопки);
- Ошибка приложения Excel возникает при сохранении файла с макросами;
Ну и по горячим следам очередного инцидента, дабы не откладывать на потом, решил для себя собрать небольшой хаб по ошибкам приложения Excel с последующей модификацией, дабы опять не терять время на поиск информации в Сети и на составление облака причин.
Суть в том, что в процессе открытия файла xlsm, и при отключенных макросах, в верхней части основного окна (над таблицей), высвечивается строка уведомления: ПРЕДУПРЕЖДЕНИЕ СИСТЕМЫ БЕЗОПАСНОСТИ Запуск макросов отключен, с кнопкой включения содержимого (макросов). Как только пользователь её нажимает, Excel попросту аварийно завершается (падает) с ошибкой Программа Microsoft Excel не работает и характерным окном уведомления:
При этом было замечено, что непосредственно перед возникновением ошибки приложения Excel никаких системных обновлений и обновлений пакета Office не устанавливалось. Возможно, каким-то образом задействованы последние обновления на Office, но прямой связи я не заметил, а подробного исследования проблемы не проводил. При этом зависимости от версии операционной системы (мною лично сбои наблюдались на Windows 10 LTSC и Windows 7 Professional) так же выявлено не было. При анализе аварийного дампа приложения (*.hdmp) обычно можно увидеть подобную информацию исключения (вывод урезан):
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
. . . EXCEPTION_RECORD: (.exr —1) ExceptionAddress: 00007ff86a1e05ac (VBE7+0x00000000001405ac) ExceptionCode: c0000005 (Access violation) ExceptionFlags: 00000000 NumberParameters: 2 Parameter[0]: 0000000000000001 Parameter[1]: 0000000000000010 Attempt to write to address 0000000000000010 DEFAULT_BUCKET_ID: NULL_CLASS_PTR_WRITE PROCESS_NAME: EXCEL.EXE ERROR_CODE: (NTSTATUS) 0xc0000005 — <Unable to get error code text> EXCEPTION_CODE: (NTSTATUS) 0xc0000005 — <Unable to get error code text> EXCEPTION_CODE_STR: c0000005 EXCEPTION_PARAMETER1: 0000000000000001 EXCEPTION_PARAMETER2: 0000000000000010 WRITE_ADDRESS: 0000000000000010 . . . |
обычно это NTSTATUS с кодом c0000005 — Access violation, доступ запрещен. И чаще всего в дампе можно увидеть такой вот стек потока (вывод оптимизирован для улучшения представления):
|
. . . STACK_TEXT: 000000b9`1acfdd00 000001d3`2fb24e90 : 000001d3`5a0e0ef0 00000000`00000000 : VBE7+0x1405ac 000000b9`1acfdd08 000001d3`24c1fe20 : 00000000`00000000 000001d3`2fda9640 : 0x000001d3`2fb24e90 000000b9`1acfdd10 000001d3`6cf35760 : 000001d3`2fda9640 000001d3`045c9b30 : 0x000001d3`24c1fe20 000000b9`1acfdd18 000001d3`5a0e0ef0 : 000001d3`045c9b30 000001d3`2fcbb2b0 : 0x000001d3`6cf35760 000000b9`1acfdd20 00000000`00000000 : 000001d3`2fcbb2b0 000001d3`2fcbb318 : 0x000001d3`5a0e0ef0 . . . |
из которого единственное что понятно, так это то, что падение Excel происходит в недрах функций библиотеки vbe7.dll (среда исполнения VBA), подгруженной в адресное пространство процесса. Это указывает на проблемы с обработчиком VBA-скриптов, в контексте Excel чаще именуемых макросами.
НЕРЕШЕННОЕ: при отладке приложений из комплекта MS Office, вы не увидите имен функций в стеке вызовов, поскольку отсутствуют отладочные символы как к основным исполняемым файлам (Excel/Word/Outlook), так и к многочисленным библиотекам. Интересно, есть ли какое-либо решение?
VBA
Так что же такое VBA и для чего он предназначается?
VBA (Visual Basic for Application) — язык макропрограммирования, основанный на языке Visual Basic.
В приложениях, входящих в комплект MS Office, таких как Excel, Word, PowerPoint и Access, VBA используется для автоматизации множества рутинных задач (напр.: повторяющихся однотипных действий), позволяет создавать формы для общения с пользователем и предлагает множество иного богатого функционала. При помощи VBA доступно управление электронной таблицей посредством объектно-ориентированной модели кода/данных, при помощи VBA-кода входные данные таблиц могут быть обработаны и представлены в итоговых (результирующих) таблицах и диаграммах (графиках). Таблица становится интерфейсом кода, позволяя легко работать, изменять его и управлять расчётами. На выходе VBA проект, используемый в структурах описанных выше приложений (электронные таблицы Excel, презентации PowerPoint, базы Access), компилируется в специальный бинарный исполняемый файл, который размещается внутри файла основного формата. Применительно к Excel это файл vbaProject.bin, который располагается внутри *.xslm-файла в директории /xl, представляющий собой бинарный исполняемый файл проекта, содержащий макрос в откомпилированном (готовом к исполнению) виде.
Наиболее вероятной причиной сбоя является повреждение блока кода VBA, содержащегося в книге Excel. Об истоках этого остается только догадываться, возможно что в структуре .xlsm-файла, в процессе работы с документом, происходят какие-то [непредвиденные разработчиками] изменения, способные приводить блок кода в неработоспособное состояние.
Решение 1: вставка нового листа
Выполните приведенную последовательность действий:
- Открываем [проблемный] .xlsm-файл (файл с макросами).
- Не нажимаем кнопку Включить содержимое.
- Добавляем в книгу Excel новый лист: правая кнопка мыши на ярлыках Лист1/Лист2/Лист3 → Вставить → Лист.
- Сохраняем электронную таблицу. Закрываем Excel.
- Открываем проблемный файл заново и включаем макросы.
Решение 2: перекомпиляция проекта
Выполните последовательность действий:
- Запускаем и открываем новую книгу Excel (не ваш проблемный файл).
- Открываем меню Файл — выбираем Параметры — далее открываем Центр управления безопасностью и заходим в Параметры центра управления безопасностью.
- В разделе Параметры макросов — выставляем чекбокс Отключить все макросы с уведомлением.
- В разделе Надежные расположения — выставляем чекбокс Отключить все надежные расположения.
- В разделе Надежные документы — выставляем чекбокс Отключить надежные документы.
- Жмем везде OK. Закрываем Excel.
- Открываем [проблемный] .xlsm-файл (файл с макросами).
- Не нажимаем кнопку Включить содержимое.
- Открывает редактор Visual Basic при помощи комбинации клавиш Alt+F11. Либо можно использовать обходной маневр: в настройках включаем меню Разработчик, после этого в появившемся сверху в ленте меню Разработчик выбираем пункт Visual Basic.
- В открывшемся окне редактора Visual Basic (VBA редактор) пересохраняем проект: для этого жмем на панели инструментов кнопку Сохранить (изображение дискетки или комбинация Ctrl+S).
- Выбираем из меню Debug — выбираем пункт меню Compile VBA Project:
- Еще раз сохраняем проект кнопкой Сохранить.
- Закрываем редактор Visual Basic.
- Сохраняем файл Excel через меню Файл — опцию Сохранить (или нажатием на значок дискетки в левом верхнем углу, либо комбинация клавиш Ctrl+S).
- Возвращаем все установки безопасности, сделанные на предыдущих шагах (пункты 2-5).
- Закрываем xlsm-файл.
- Заново открываем [проблемный] файл, в верхней части, в строке статуса — включаем макросы посредством кнопки Включить содержимое.
Решение 3: добавление модуля
Дополнительное решение состоит в том, что бы внести изменения в макрос без перекомпиляции.
- Открываем [проблемный] .xlsm-файл (файл с макросами).
- Не нажимаем кнопку Включить содержимое.
- Открывает редактор Visual Basic (при помощи комбинации клавиш Alt+F11).
- Открываем меню Tools → пункт Options. В открывшемся окне переходим на вкладку General и деактивируем чекбокс Compile on Demand:
Закрываем окно Опции нажатием клавиши OK.
- В левом фрейме окна проекта (Project) спускаемся вниз, находим раздел Modules, жмем на нём правую кнопку → пункт Insert → Module:
- Далее просто закрываем окно редактора Visual Basic, сохраняем основной xslm-документ и закрываем Excel.
- Заново открываем [проблемный] файл, в верхней части, в строке статуса — включаем макросы посредством кнопки Включить содержимое.
Обработка ошибок в VBA Excel с помощью оператора On Error. Синтаксис выражений с оператором On Error. Пример кода с простым обработчиком ошибок.
On Error – это оператор, который используется для отслеживания ошибок во время исполнения кода VBA. При возникновении ошибки On Error передает информацию о ней в объект Err и включает программу обработки ошибок, начинающуюся с указанной строки.
В первую очередь, обработчик ошибок нужен для пользователей файлов Excel с кодами VBA. Любая ошибка приводит к прекращению выполнения программы, открытию редактора VBA с непонятным для пользователя сообщением или даже к полному зависанию приложения.
Обработчик ошибок позволяет завершить выполнение программы при возникновении ошибки и вывести сообщение пользователю с ее описанием.
Синтаксис выражений с On Error
Включает алгоритм обнаружения ошибок и, в случае возникновения ошибки, передает управление операторам обработчика ошибок с указанной в выражении строки. Stroka – это метка, после которой расположены операторы обработчика ошибок.
Включает алгоритм обнаружения ошибок и, в случае возникновения ошибки, передает управление оператору, следующему за оператором, вызвавшем ошибку.
Отключает любой включенный обработчик ошибок в текущей процедуре.
Простой обработчик ошибок
Шаблон простейшего обработчика ошибок:
|
Sub Primer() On Error GoTo Stroka ‘Блок операторов процедуры Exit Sub Stroka: MsgBox «Произошла ошибка: « & Err.Description End Sub |
Оператор On Error GoTo размещается в начале процедуры, метка и обработчик ошибок – в конце процедуры. Название метки можно сменить на другое, в том числе на кириллице.
Оператор Exit Sub обеспечивает выход из процедуры, если блок операторов выполнен без ошибок. Для вывода описания ошибки используется свойство Description объекта Err.
Примеры обработки ошибок
Пример 1
Деление на ноль:
|
Sub Primer1() On Error GoTo Инструкция Dim a As Double a = 45 / 0 Exit Sub Instr: MsgBox «Произошла ошибка: « & Err.Description End Sub |
Результат выполнения кода VBA Excel с обработчиком ошибок:
Пример 2
Выход за границы диапазона:
|
Sub Primer2() On Error GoTo Instr Dim myRange As Range Set myRange = Range(«A1:D4»).Offset(—2) Exit Sub Instr: MsgBox «Произошла ошибка: « & Err.Description End Sub |
Результат выполнения кода VBA Excel с оператором On Error GoTo:
Пример использования выражений On Error Resume Next и On Error GoTo 0 смотрите в статье: Отбор уникальных значений с помощью Collection.
Inside an excel macro I have a command that opens an external workbook:
Workbooks.Open (directory & filename), ReadOnly:=True
I want that in the case the filename does not exist or has a different name from the specified in the macro, to present a message box with a customized message to the user (i.e. «the filename does not exist or has a different name»), instead the defined application error:
«`Runtime error 1004… Microsoft Excel cannot access….»
How can I archieve this?
asked Mar 6, 2015 at 13:37
You can test for the existence of the file by using Dir()
Sub OpenTester()
Dim v As String
directory = "C:TestFolder"
fiilename = "ABZ.xls"
v = directory & fiilename
If Dir(v) = "" Then
MsgBox "Warning Will Robinson, warning!"
Else
Workbooks.Open (v), ReadOnly:=True
End If
End Sub
answered Mar 6, 2015 at 14:01
Gary’s StudentGary’s Student
95.3k9 gold badges58 silver badges98 bronze badges
You can try something like this:
Sub OpenFileSub()
On Error GoTo ErrHandler
Workbooks.Open (directory & Filename), ReadOnly:=True
On Error GoTo 0
ErrHandler:
MsgBox "the filename does not exist or has a different name"
End Sub
answered Mar 6, 2015 at 13:50
DubisonDubison
7505 silver badges12 bronze badges
|
Ошибка файла после запуска макроса (ов) |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
||||||||
Ответить |
