SoloCodigo

Programación Web y Scripting => PHP => Mensaje iniciado por: neorent en Martes 21 de Noviembre de 2006, 14:44

Título: Excel Y Php
Publicado por: neorent en Martes 21 de Noviembre de 2006, 14:44
que tal amigos del foro como estan, bueno les comento me parece que este ya lo habia posteado, pero no tuve mucha suerte, les explico lo que ocurre, necesito abrir un archivo excel especifico, cual tiene un formato especifico, lo que yo necesito es poder abrir ese archivo y pasarle los datos, no es necesario grabar en el solo que me muestre los datos ya que es como una plantilla para imprimir el cual se imprime y se cierra sin necesidad de guardarlo, bueno en visual basic, yo podia abrirlo y pasarle los datos, pero en php tambien trato de abrirlo pero no me muestra los valores, he probado como cinco metodos y ninguno hace lo que quiero, ya que si hago otro que trabaja con header me abre el archi pero seria algo si tengo excel.xls, el me abre exce.xls, tonces no me abre el archivo que quiero, tonces mi pregunta es alguien sabe como puedo hacer para poder abrir el archivo que yo quiero y ademas que me muestre los que yo quiero en el por ejemplo quiero abrir el archivo y en la celda C linea 14 que me muestre "HOLA MUNDO" ni siquiera eso me sale jejeje, bueno amigo gracias de ante mano por leer este post y espero me puedan echar la manito cuidense mucho adios.
Título: Re: Excel Y Php
Publicado por: LeGatoRojo en Martes 21 de Noviembre de 2006, 20:39
No recuerdo en nombre de la libreria, pero hay varias en la red que sirven perfectamente para solucionar este problema...
Título: Re: Excel Y Php
Publicado por: neorent en Miércoles 22 de Noviembre de 2006, 13:15
Darktigerhell, tienes toda la razon he buscado mucho y por eso mismo postie el problema ya que incluso con esas librerias no me abre bien el excel, realice una programa en visual basic ya que la base es access y que cuando hago click en el link me carga el programa, peor lo que m gustaria saber si alguien sabe como tomar un valor pasado por url de php a visual basic, no se si pueda pero si alguien sabe seria genial muchas gracias a todos por la ayuda que esten muy bien adios
Título: Re: Excel Y Php
Publicado por: Altareum en Miércoles 22 de Noviembre de 2006, 19:03
Si el servidor en donde está es windows, podes usar las funciones de COM y .Net que trae php, esta usa las propias dll de office (si mal no recuerdo)...

http://ar.php.net/manual/es/ref.com.php (http://ar.php.net/manual/es/ref.com.php)

Altareum.
Título: Re: Excel Y Php
Publicado por: neorent en Miércoles 22 de Noviembre de 2006, 21:16
Altareum, muchas gracias por la pagina, bueno te cuento que mi server donde corre tanto al apgina web y la pequeña aplicacion es windows, entonces yo queria pasarle un valor por url tal y como cuando pasamos un valor para otra pagina y luego la recivimos con get, correcto bueno yo queria hacer eso que si hacia un link hacia mi archivo ejecutable me pregunta si lo quiero descargar o abrir y bueno le digo que lo abra y que en un text me coloque el valor que envie por url no se si me explique bien o si no se puede, bueno el programa esta echo en visual basic 6.0 si quieren le dejo el code de donde mando el valor por url.

Código: Text
  1.  
  2. <th align='center'><span class='style13'><a href='Imprime Folio.exe'>Click Aqui</a></span></th>
  3.  
  4.  
y quiero esto que si resulta pero no se como tomar el valor
Código: Text
  1.  
  2. <th align='center'><span class='style13'><a href='Imprime Folio.exe?var=$id'>Click Aqui</a></span></th>
  3.  
  4.  
y este es el codigo de mi programa echo en visual
Código: Text
  1.  
  2. Dim base As Database
  3. Dim b As Recordset
  4.  
  5. Private Sub Command1_Click()
  6.  
  7. End Sub
  8.  
  9. Private Sub Command2_Click()
  10. End
  11. End Sub
  12.  
  13. Private Sub Command3_Click()
  14. b.MoveFirst
  15. Dim ApExcel As Variant
  16. Set ApExcel = CreateObject("Excel.application")
  17. ApExcel.Visible = True
  18. ApExcel.Workbooks.Open ("\\pc_soporte\c$\soporte\Formulario de Soporte Tecnico a Terreno.xls")
  19. Do While b.EOF = False
  20.     If b("folio_atencion") = Text1.Text Then
  21.         Text2.Text = b("usuario_atencion")
  22.         Text3.Text = b("direccion_depto")
  23.         ApExcel.cells(1, 1).Font.Size = 12
  24.         ApExcel.cells(8, 7).formula = b("folio_atencion")
  25.         ApExcel.cells(9, 4).formula = b("usuario_atencion") 'nombre usuario
  26.         ApExcel.cells(9, 7).formula = b("fono_anexo") 'fono anexo
  27.         ApExcel.cells(10, 4).formula = b("direccion_depto") 'direccion
  28.         ApExcel.cells(10, 7).formula = b("n_oficina") 'oficina
  29.         ApExcel.cells(11, 7).formula = b("tecnico_asignado") 'tecnico
  30.         ApExcel.cells(14, 3).formula = b("problema_descrito") 'problema
  31.         b.MoveNext
  32.     Else
  33.         b.MoveNext
  34.     End If
  35. Loop
  36. Set ApExcel = Nothing
  37. End Sub
  38.  
  39. Private Sub Form_Load()
  40. Set a = OpenDatabase("\\pc_soporte\c$\soporte\db_soporte.mdb") 'ASIGNO A LA VARIABLE "A" LA DIRECCION DE DONDE SE ENCUENTRA LA BASE DE DATOS
  41. Set b = a.OpenRecordset("maestro_atenciones") 'ASIGNO A LA VARIABLE "B" LA TABLA DE LA BASE DE DATOS LA CUAL UTILIZARA
  42. If b.RecordCount = 0 Then
  43.     MsgBox "No Existen Registros", vbInformation, "Por Favor Ingrese"
  44. Else
  45.     b.MoveFirst
  46. End If
  47. End Sub
  48.  
  49. Private Sub Form_Unload(Cancel As Integer)
  50. Command2_Click
  51. End Sub
  52.  
  53.  
eso gracias a todos ojala me puedan ayudar adios
Título: Re: Excel Y Php
Publicado por: su - en Jueves 23 de Noviembre de 2006, 01:31
Y Dios dijo hagase Larry Wall y Larry se hizo.
Larry dijo, hagase Perl y Perl se hizo.
H.Merijn Brand dijo: Por medio y gracias a Perl que se haga Spreadsheet::Read (http://search.cpan.org/~hmbrand/Spreadsheet-Read-0.17/Read.pm) y se hizo  :P

Bueno, ahora para PHP tenes que leer esto:
http://www-128.ibm.com/developerworks/xml/...ry/os-phpexcel/ (http://www-128.ibm.com/developerworks/xml/library/os-phpexcel/)
Título: Re: Excel Y Php
Publicado por: F_Tanori en Jueves 23 de Noviembre de 2006, 08:13
Hola

Yo lo he usado de esta manera, tienes que estar instalado el excel :) (algo obvio)
para que este registrado el objeto, en visual haces esto (y veo que lo usas en tu codigo)

CreateObject('Excel.application') <--- en VB

equivalente a

com('Excel.application'); <------ en PHP

Código: Text
  1.  
  2. &#60;?
  3.  
  4. &#036;NomArchivo=getcwd().&#34;&#092;archivo_excel&#34;; //Sin extencion
  5.  
  6. &#036;oExcel=new com('Excel.application');
  7. &#036;oExcel-&#62;Workbooks-&#62;Open(&#036;NomArchivo);
  8.  
  9. &#036;oExcel-&#62;Range(&#34;A1&#34;)-&#62;Value = 'Soy un registro';
  10. &#036;oExcel-&#62;Range(&#34;B1&#34;)-&#62;Value = 'Insertado';
  11. &#036;oExcel-&#62;Range(&#34;C1&#34;)-&#62;Value = 'Desde PHP';
  12.  
  13.  
  14.  &#036;i = &#036;oExcel-&#62;Workbooks-&#62;Count;
  15. &#036;oExcel-&#62;Workbooks(&#036;i)-&#62;Activate;
  16. &#036;oExcel-&#62;ActiveWorkbook-&#62;Save;
  17. &#036;oExcel-&#62;ActiveWorkbook-&#62;Close;
  18. &#036;oExcel-&#62;Quit;
  19.  
  20. //Destruir el objeto
  21. &#036;oExcel=null;;
  22. ?&#62;
  23.  
  24.  

Algo asi como lo recomendo Altareum, segun entendi

Hay una libreria que creo que es a la que se refiere Darktigerhell

http://sourceforge.net/projects/phpexcelreader/ (http://sourceforge.net/projects/phpexcelreader/)



Si aun asi quieres seguir ejecutando la aplicacion de visual basic, te sugiero, grabes el valor de la variable en un archivo, y despues lees el archivo desde visual basic

[PHP]

Código: Text
  1. &#60;?
  2. ..
  3. ..
  4. ..
  5. //Obtener ID y guardarlo en un archivo
  6.  &#036;id =&#036;_GET['id'];
  7.  
  8.  &#036;archivo_salida = &#34;archivo.txt&#34;;
  9.  &#036;archivo = fopen(&#036;archivo_salida,&#34;w&#34;);
  10.  fputs( &#036;archivo,&#036;id);
  11.  fclose( &#036;archivo);
  12.  ..
  13.  ..
  14.  ..
  15. ?&#62;
  16.  

[VB]

Código: Text
  1. Function ObtenerID()
  2. Dim Num As Integer, id As Integer
  3.  
  4. Num = FreeFile
  5.     Open &#34;c:&#092;servidor&#092;www&#092;archivo.txt&#34; For Input As #Num
  6.         If Not EOF(Num) Then
  7.             Input #Num, id
  8.         End If
  9.     Close #Num
  10.  
  11.   id = IIf(id = 0, 0, id)
  12.  
  13. ' Ya tenemos el ID :) ah utilizar....
  14.  
  15. ObtenerID = id
  16. End Function
  17.  


Saludos espero te ayude
Título: Re: Excel Y Php
Publicado por: neorent en Jueves 23 de Noviembre de 2006, 21:18
gracias a todos por la super ayuda que me brindaron, y me funciona ok pronto subo el code para que vean como quedo y sorry por postear este problema de nuevo pero necesitaba la ayuda urgente gracias