Abrir Objeto excel 2013 con Visual basic en access 2013

[Lba]

Estimados

Como puedo hacer esto en office 2013, en Office 2007 me funciona bien:

Dim hoja As Object
.
.
.
ha = "ruta" & ".xlsx"

Set fs = CreateObject("Scripting.FileSystemObject")

stAppName = ha
Set hoja = CreateObject("excel.application")
hoja.Application.Workbooks.Open (stAppName)


Me dice "Se requiere un objeto"


Gracias

Atte.
Lba

[darthalu]

Buenas,

Prueba así:

Dim xls As Object

Set xls = CreateObject("excel.application")
xls.Visible = True
xls.Workbooks.Open ("ruta" & ".xls")