Содержание
Открыть файл Excel
Эта функция ниже откроет файл Excel с Access VBA.
Перед использованием функции обязательно добавьте ссылку на Библиотека объектов Microsoft Excel перейдя в Инструменты> Ссылки и проверка Библиотека объектов Microsoft Excel.
Открытая функция OpenExcelFile (strFilePath As String) As Boolean 'Требуется: Инструменты> Ссылки: Добавить ссылку на библиотеку объектов Microsoft Excel Dim appExcel как Excel.Application Dim myWorkbook как Excel.Workbook Установить appExcel = CreateObject ("Excel.Application") Установить myWorkbook = appExcel.Workbooks.Open (strFilePath) appExcel.Visible = True 'Сделайте что-нибудь или просто оставьте Open Set appExcel = Nothing Set myWorkbook = Nothing End Function' Пример использования Sub OpenExcelFile_Example () Вызов OpenExcelFile ("C: \ Users \ StevePC2 \ Downloads \ test.xlsx ") End Sub
Открыть документ Word с помощью Access VBA
Сначала установите ссылку на библиотеку Word для среды Access VBA.
Примечание: Вы можете сделать это в VBE, выбрав «Инструменты»> «Ссылки» и отметив «Библиотека объектов Microsoft Word 15.0».
Следующий код позволит вам открыть документ Word с помощью Access:
Dim WordDoc As Object Set WordDoc = CreateObject ("Word.Application") WordDoc.Visible = True WordDoc.Documents.Open "C: \ Users \ Taryn \ Desktop \ BusinessDocument.docx" Установить WordDoc = Nothing
Или вы можете адаптировать описанную выше функцию «Открыть файл Excel», чтобы создать функцию для открытия документа Word из Access VBA.
