VB + Excel

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