Как с помощью 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 не будет опубликован. Все поля обязательны для заполнения.

×
Рекомендуем посмотреть