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