Как с помощью VBA открыть файл Excel

В статье «Как с помощью VBA скопировать данные из одной книги в другую» был рассмотрен код открытия одной книги Excel из другой. Пердположем, что по ходу выполнения макроса нам приходится открывать/закрывать книгу неоднократно, либо наш файл находится где-то глубоко на сетевом диске, либо мы обращаемся к группе файлов находящихся в одной директории. В этих и ряде других случаев нам может оказаться полезной операция ввода переменной, которая будет хранить весь адрес целиком либо какую-то часть адреса. Назовем эту переменную «adr», далее мы можем присвоить переменной путь в самом коде, а можем присвоить значение ячейки листа, в которую пропишем этот путь (так мы можем упростить работу с файлом пользователю, который не хочет лезть в Макрос), тогда наш код будет выглядеть так:

Sub Название_Макроса()

Sheets («Лист1»).Select

adr = Cells (1, 1)     'В ячейке А1 на Лист 1 пропишем путь к файлу.
ChDir adr
Workbooks.Open Filename:= adr & «Имя Файла.xls», Password:="123456789"
End Sub
Если файл запаролен, применяем Password:="123456789".

Мы очень надеемся, что наша статья помогла Вам в решении Вашей проблемы. Будем благодарны, если Вы нажмете +1 и/или Мне нравится внизу данной статьи или поделитесь с друзьями с помощью кнопок расположенных ниже.

Спасибо за внимание.

Поделиться:
3 Комментария
  • Александр says:

    Подскажите, почему у меня может не работать этот макрос? Пишет Path not found. Хотя тот же путь указанный явно — работает и открывает необходимый файл.

    Спасибо.

    • excel says:

      Путь необходимо указать со слэшем в конце.

      Кавычки должны быть двойные " у меня на сайте они в виде елочек

  • Яна says:

    Подскажите как сделать данную таблицу! припомощи макроса, это возможно? Отмечаем мышкой ячейку в столбике А например А5 и нажимаем кнопку «Копировать в журнал»

    Действия: копируются ячейки, строки 5, в «Журнал Актов» в свободную строку в данном случае В8 и в заданные ячейки.

Добавить комментарий

Ваш e-mail не будет опубликован. Все поля обязательны для заполнения.