Не найден файл при переборе книг excel в цикле - VB
Формулировка задачи:
Здравствуйте. Подскажите пожалуйста, что делаю не так...Есть много файлов excel 2013(xls). файлы одной структуры. Задача стоит в том, чтобы со всех файлов в один результирующий выбрать нужные данные. Все файлы лежат в одной папке -в этой же папке я сделал файл, куда все надо выгружать. В итоговом файле добавил кнопку и написал код для неё:
Проблема появилась такая: когда пытаюсь выполнить, выдается сообщение:
Проблема появилась такая: когда пытаюсь выполнить, выдается сообщение:
" К сожалению нам не удалось найти файл D:\папка1\книга1.xls. Возможно, он был перемещен, переименован или удален?"
файл точно есть и путь выводится тот ,который должен быть... что не так?Решение задачи: «Не найден файл при переборе книг excel в цикле»
textual
Листинг программы
Sub Кнопка1_Щелчок() Dim wb As Workbook Dim Sh As Worksheet Dim i As Integer fnames = Array("Бухгалтерия_Гаврикова_О_М", "Бухгалтерия_Гребенюк Е.В.", "Бухгалтерия_Посадская И.В.", "Бухгалтерия_Усков А.В.") MsgBox CurDir For Each fnam In fnames MsgBox ActiveWorkbook.Path & vbCrLf & fnam Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д