MyTetra Share
Делитесь знаниями!
Workbooks.Open Filename
16.03.2019
23:43
Текстовые метки: Workbooks.Open, Get
Раздел: !Закладки - VBA - Разобрать

Макрос открытия файла в Excel


Для начала запишем полный путь с названием файла, который и будем открывать с помощью макроса, например, в ячейке A1 на Листе 1 (название типа C:\Documents and Settings\Открытие_файла.xlsx).

Далее заходим в редактор VBA (нажимаем комбинацию клавиш Alt + F11) и записываем в модуль следующий макрос:


Sub Open_file() 'Макрос открытия файла

FilePath = Sheets("Лист1").Cells (1,1) 'Забираем полный путь к файлу из ячейки A1 на листе "Лист1"

Workbooks.Open Filename:= FilePath 'Открытие файла

End Sub


Sub Open_file() 'Макрос открытия файла

FilePath = Sheets("Лист1").Cells (1,1) 'Забираем полный путь к файлу из ячейки A1 на листе "Лист1"

Workbooks.Open Filename:= FilePath 'Открытие файла

End Sub


Можно также прописать дополнительные параметры открытия файла, рассмотрим основные из них:

•UpdateLinks — обновление внешних ссылок в файле;

•ReadOnly — открытие файла в режиме чтения;

•Password — пароль для открытия защищенной книги;

•WriteResPassword — пароль для внесения изменений в защищенную от записи книгу.




Sub Open_file()

FilePath = Sheets("Лист1").Cells (1,1)

Workbooks.Open Filename:= FilePath, UpdateLinks:=False, ReadOnly:=True 'Открытие файла под чтением без обновления ссылок

End Sub



Sub Open_file()

FilePath = Sheets("Лист1").Cells (1,1)

Workbooks.Open Filename:= FilePath, UpdateLinks:=False, ReadOnly:=True 'Открытие файла под чтением без обновления ссылок

End Sub


Например, данный макрос будет открывать файл в режиме чтения (т.е. без возможности вносить изменения в текущую версию) без обновления внешних ссылок в файле.

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования