Code not working

[jj1]

Private Sub Command126_Click()
Dim objexcel As Excel.Application
Dim objworkbook As Excel.Workbook
Dim objxlsheet As Worksheet
Set objexcel = CreateObject("Excel.Application")


' Set objworkbook = objexcel.Workbooks.Open("C:\MSEXCEL_TEST" & "\" & "test.xlsx")
Set objworkbook = objexcel.Workbooks.Open(CurrentProject.Path & "\" & "Excel.xlsx")
Set objxlsheet = objworkbook.ActiveSheet
Set objexcel = Nothing
End Sub

[ranman256]

1. you didnt say which part is not working
Did you add the EXCEL object library in vbe, menu, tools, references?

Private Sub EditXL()
Dim xl As excel.Application
Set xl = CreateObject("excel.application")
With xl
   .Visible = True
   .Workbooks.Open "C:\MSEXCEL_TEST\test.xlsx"
End With
Set xl = Nothing
end sub