Code:
Private Sub Command1_Click() Dim oXLApp As Excel.Application Dim strPath As String strPath = "PathToWorksheet" Set oXLApp = New Excel.Application Set oxlBook = oXLApp.Workbooks.Open(strPath) Set Worksheet = oXLApp.Worksheets(1) oXLApp.Visible = True 'If you want to open the workbook End Sub
Leave a comment: