Visual Basic - hojas en excel

buen dia, me puede indicar como saber la cantidad de hojas que existen dentro de un libro de excel. desde vb por codigo

gracias

Adjunto ejemplo.

Debes adicionar la referencia Microsoft excel Library

este seria el codigo.


Private Sub Command1_Click()
contarhojasexcel
End Sub

Sub contarhojasexcel()
Dim vbaplexc As New Excel.Application
filename = "c:pago.xls"
'filename es la ruta completa del archivo xls.
vbaplexc.Workbooks.Open (filename)
MsgBox vbaplexc.ActiveWorkbook.Sheets.Count
vbaplexc.Application.Workbooks.Close

End Sub

amigo tengo este codigo:

Dim oex As Object
Dim obook As Object
Dim osheet As Object
Dim a As Integer, X As Integer
Dim i As Long
obook.Application.DisplayAlerts = False
Set oex = CreateObject("excel.application")
Set obook = oex.Workbooks.Add(App.path & "planillascheques.xls")
oex.Visible = True

a = obook.ActiveWorkbook.Sheets.Count

no me funciona me puedes ayudar a descubrir la falla, necesito asignar el valor a una variable tu codigo funciona, pero necesito obtener el resultado en una variable
gracias

Pues solo has en vez del MSGBOX solo cambias a

a= ************************

Pilas Es lo mismo usa mi codigo asi no lo uses como Mensaje si no como Variable

Avisame que paso.

cuando te respondi ya lo habia intentado pero no lo toma eso es lo que no entiendo y para responder a jorge utilizo add y no open, esto es para abrir una copia del archivo original para resguardar el formato que tengo en las hojas del libro si el usuario graba el libro no afectara la plantilla inicial

Hola, creo que el error esta en que colocaste

oex.Workbooks.Add
en lugar de
oex.Workbooks.Open

Nota: Add se utiliza para agregar un libro nuevo vacio(no estoy seguro).

Saludos y suerte.

jorge utilizo add y no open, esto es para abrir una copia del archivo original para resguardar el formato que tengo en las hojas del libro si el usuario graba el libro no afectara la plantilla inicial

ya resolvi el problema en mi secuencia de codigo el quite ActiveWorkbook y funciono la captura en una variable