Edith
01 de Julio del 2008

Hay alguna forma de tomar informaci贸n de las diferentes hojas que puede tener un archivo de excel, con el c贸digo de visual. Ya eh visto sus c贸digos y noto que solo toma info de una sola hoja, pero se podr铆a ver otras hojas?

en?
01 de Julio del 2008

No s茅 a cu谩les c贸digos te refieres que has visto, pero si toman informaci贸n de una hoja, pueden tomarla de cualquiera:

busca en el c贸digo que hayas visto alguna instrucci贸n como por ejemplo:
Worksheets("NombreHoja")
o
Worksheets(脥ndiceHoja)

O es decir, una variable declarada como objHoja As Worksheet y
Set objHoja = ObjetoLibro.Worksheets("NombreHoja")

o
For Each objHoja In ObjetoLibro.Worksheets
msgbox objHoja.Name
Next

etc, etc...

__
Un saludo.

Edith
01 de Julio del 2008

hola, aqui pongo mi c贸digo para ver si me pueden ayudarme para ver como puedo leer cierta hoja de excel. gracias


Private Sub Command1_Click()
Dim Xl As Object
Dim cont As Integer
Dim objHoja As Object
Dim objetolibro As Object
cont = 2
CommonDialog1.DialogTitle = "Selecciona el archivo"
CommonDialog1.Filter = "Pictures(*.xls;*.xld)|*.xls;*.xld"
CommonDialog1.ShowOpen
Set Xl = CreateObject("Excel.Application")
Xl.Application.Workbooks.Open CommonDialog1.FileName

Xl.Application.Visible = True

Do While (xl.Application.Cells(cont, 1).Value <> "")
If xl.Application.Cells(cont, 1).Value = "etica" Then
Text1 = xl.Application.Cells(1, 1).Value
Text2 = xl.Application.Cells(1, 2).Value

End If
cont = cont + 1
Loop
Set Xl = Nothing
End Sub