Visual Basic - hojas en excel

Life is soft - evento anual de software empresarial
   
Vista:

hojas en excel

Publicado por gustavo (218 intervenciones) el 26/06/2008 16:34:55
buen dia, me puede indicar como saber la cantidad de hojas que existen dentro de un libro de excel. desde vb por codigo

gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de andres

RE:hojas en excel

Publicado por andres (702 intervenciones) el 26/06/2008 18:47:48
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:hojas en excel

Publicado por gustavo (218 intervenciones) el 26/06/2008 19:20:20
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres

RE:hojas en excel

Publicado por Andres  (702 intervenciones) el 26/06/2008 20:15:49
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:hojas en excel

Publicado por gustavo (218 intervenciones) el 26/06/2008 21:12:54
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:hojas en excel

Publicado por Jorge (14 intervenciones) el 26/06/2008 20:28:39
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:hojas en excel

Publicado por gustavo (218 intervenciones) el 26/06/2008 21:27:20
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar