'===================================================================

'Открытие (назначение) файла

Function fun_FileOpen(ByVal strFileName As String) As Workbook

Set fun_FileOpen = Workbooks.Open(Filename:=strFileName, ReadOnly:=True)

End Function

'-------------------------------------------------------------------

Макрос открытия файла в 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

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