Lectura via lenguage script?

05/11/2006 - 21:59 por gato2006chile | Informe spam
Tengo un codigo php que lee archivos excel en una tabla html, el codigo
funciona bien solo para ciertos tipos de archivos, aparentemente
aquellos que solo poseen los nombre de las hojas con su valores de default.

¿Como sera posible referenciar mediante una sentencia odbc a cada una de
las hojas que posee el libro?.

Estoy usando: "select * from [Hoja1$]"

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
06/11/2006 - 03:19 | Informe spam
hola, 'anonimo/a' !

Tengo un codigo php que lee archivos excel en una tabla html
el codigo funciona bien solo para ciertos tipos de archivos
aparentemente aquellos que solo poseen los nombre de las hojas con su valores de default.
Como sera posible referenciar mediante una sentencia odbc a cada una de las hojas que posee el libro?.
Estoy usando: "select * from [Hoja1$]"



1) para el ejemplo de la instruccion 'select' para una conexion por 'odbc' que estas usando...
el nombre de la hoja que TU -por codigo- le estas 'pasando' es tambien una presuncion de que se llame -> Hoja1
igual podrias cambiarlo por -> Sheet1 [si el libro hubiera sido creado en una version de excel en ingles] :))

2) el 'problema' vendria si NO conoces ni el numero de hojas ni sus nombres [ya no digamos los nombres 'por omision/idioma'] ;)

3) el siguiente ejemplo de codigo vba [p.e. desde excel] te avisa en un cuadro de mensajes los nombres de las hojas de 'X' libro...
podrias hacer adaptaciones para la construccion del nombre de 'X' hoja que le vas a pasar a la sentencia de tu consulta :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ macro para leer los nombres de las hojas en un libro cerrado __
-> IMPORTANTE: establece primero en tu proyecto de macros una referencia a la libreria...
-> Microsoft ADO Ext. x.x for DDL and Security
== en un modulo de codigo 'normal' =Sub Nombres_hojas()
Dim Libro As ADOX.Catalog, Hoja As ADOX.Table, Archivo As String, Msj As String
Set Libro = New ADOX.Catalog
Archivo = "Ruta y\Sub-carpetas a tu\Archivo cerrado.xls"
Libro.ActiveConnection = _
"Provider=MSDASQL.1;Data Source=Excel Files;Initial Catalog=" & Archivo
For Each Hoja In Libro.Tables
If Right(Hoja.Name, 1) = "$" Then
If Msj <> "" Then Msj = Msj & vbCr
Msj = Msj & Left(Hoja.Name, Len(Hoja.Name) - 1)
End If
Next
MsgBox Msj
Set Libro = Nothing
End Sub
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida