Не найден файл при переборе книг 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.833 из 5
Похожие ответы