Como encontrar el nombre de las hojas

[yera2002]

Hola a todos:

Quisiera saber si alguien sabe como puedo encontrar el nombre de las hojas de un libro por visual basic, todo esto manejando la hoja de excel como una base de datos.

Hasta ahora he podido obtener el nombre de los campos del libro de excel haciendo:

SELECT * FROM [hoja1$],

Pero tambien quiero saber el nombre de las hojas.

Saludos...

[JoaoM]

Explicate; ¿Version del office? ¿estan las hjojas ocultas? ¿puedes entrar al editor VBA? (Alt+F11)

Contesta

[yera2002]

Hola:

Ok...perdon!!!! La explicacion es la siguiente. Yo acceso a esta hoja mediante un software que utiliza vbScript. Yo acceso al libro de excel de la siguiente manera:

Set ObjExcel = CreateObject("ADODB.Connection")
ObjExcel.ConnectionString = "driver={Microsoft Excel Driver (*.xls)};DBQ=" & Trim(strArchivo) & ";"
ObjExcel.Open

Una vez hecha la conexion abro recordset's como si fuera una base de datos. La version de Office sobre la cual trabajo es 2003 y 2007. Las hojas no estan ocultas. Y si puedo entrar al VBA.

Espero esto ayude...

Saludos...

[mrocf]

Recuerda, Yera, que esa forma de acceder a la información de la hoja de un libro Excel, equivale a acceder a una tabla de Access.

Por lo tanto no es esa vía quien te proporcionará la información del nombre de las hojas que componen el archivo.
Por ello intenta con:

Código PHP:

  Dim excWBook As Object, misHojas() As String, i As Byte
Set excWBook = CreateObject("Excel.Application").Workbooks.Open(strArchivo)
ReDim misHojas(1 To excWBook.Worksheets.Count)
For i = 1 To excWBook.Worksheets.Count
  misHojas(i) = excWBook.Worksheets(i).Name
Next i
excWBook.Close False 
   

Terminarás con el nombre de las hojas en el vector misHojas().
Saludos, Cacho.