Viewing an Excel file from Access database

This is a useful little subroutine, as it opens a file (given as a parameter) into Excel, and displays it, without having to have the Excel reference set.  However, do make sure that the Microsoft DAO 3.6 Object Library is set.  It works with Access 2000 and later.

Sub OpenExcelFile(ExcelFileName) 
Dim xlApp as Object
Dim xlWorkBook as Object
Set xlApp = CreateObject(”Excel.Application”)
Set xlWorkbook = xlApp.Workbooks.Open(ExcelFileName)
xlApp.DisplayAlerts = False
xlApp.visible = True
End Sub

This entry was posted on 20/12/2010 at 01:58 pm and is filed under Code. You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response or trackback from your own site.