Índice
Abrir arquivo do Excel
Esta função abaixo irá abrir um arquivo Excel com o Access VBA.
Antes de usar a função, certifique-se de adicionar uma referência a Biblioteca de objetos do Microsoft Excel indo para Ferramentas> Referências e verificando Biblioteca de objetos do Microsoft Excel.
Função pública OpenExcelFile (strFilePath As String) As Boolean 'Obrigatório: Ferramentas> Referências: Adicionar referência à biblioteca de objetos do Microsoft Excel Dim appExcel As Excel.Application Dim myWorkbook As Excel.Workbook Set appExcel = CreateObject ("Excel.Application") Set myWorkbook = appExcel.Workbooks.Open (strFilePath) appExcel.Visible = True 'Faça algo ou apenas deixe aberto Set appExcel = Nothing Set myWorkbook = Nothing End Function' Exemplo de uso Sub OpenExcelFile_Example () Chame OpenExcelFile ("C: \ Users \ StevePC2 \ Downloads \ test.xlsx ") End Sub
Abra o documento do Word usando o Access VBA
Primeiro, defina uma referência à Biblioteca do Word para o ambiente VBA do Access.
Observação: Você faria isso no VBE acessando Ferramentas> Referências e marcando Microsoft Word 15.0 Object Library.
O código a seguir permitirá que você abra seu documento do Word usando o Access:
Dim WordDoc As Object Set WordDoc = CreateObject ("Word.Application") WordDoc.Visible = True WordDoc.Documents.Open "C: \ Users \ Taryn \ Desktop \ BusinessDocument.docx" Set WordDoc = Nothing
Ou você pode adaptar a função Abrir arquivo do Excel acima para criar uma função para abrir um documento do Word a partir do Access VBA.
