Programación Web y Scripting > PHP

 Excel Y Php

<< < (2/2)

su -:
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 y se hizo  :P

Bueno, ahora para PHP tenes que leer esto:
http://www-128.ibm.com/developerworks/xml/...ry/os-phpexcel/

F_Tanori:
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 --- &#60;? &#036;NomArchivo=getcwd().&#34;&#092;archivo_excel&#34;; //Sin extencion &#036;oExcel=new com('Excel.application');&#036;oExcel-&#62;Workbooks-&#62;Open(&#036;NomArchivo); &#036;oExcel-&#62;Range(&#34;A1&#34;)-&#62;Value = 'Soy un registro';&#036;oExcel-&#62;Range(&#34;B1&#34;)-&#62;Value = 'Insertado';&#036;oExcel-&#62;Range(&#34;C1&#34;)-&#62;Value = 'Desde PHP';   &#036;i = &#036;oExcel-&#62;Workbooks-&#62;Count;&#036;oExcel-&#62;Workbooks(&#036;i)-&#62;Activate;&#036;oExcel-&#62;ActiveWorkbook-&#62;Save;&#036;oExcel-&#62;ActiveWorkbook-&#62;Close;&#036;oExcel-&#62;Quit; //Destruir el objeto&#036;oExcel=null;;?&#62;  
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/



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 ---&#60;?......//Obtener ID y guardarlo en un archivo &#036;id =&#036;_GET['id'];  &#036;archivo_salida = &#34;archivo.txt&#34;; &#036;archivo = fopen(&#036;archivo_salida,&#34;w&#34;); fputs( &#036;archivo,&#036;id); fclose( &#036;archivo); .. .. ..?&#62; 
[VB]


--- Código: Text ---Function ObtenerID()Dim Num As Integer, id As Integer Num = FreeFile    Open &#34;c:&#092;servidor&#092;www&#092;archivo.txt&#34; For Input As #Num        If Not EOF(Num) Then            Input #Num, id        End If    Close #Num    id = IIf(id = 0, 0, id)  ' Ya tenemos el ID :) ah utilizar.... ObtenerID = idEnd Function 

Saludos espero te ayude

neorent:
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

Navegación

[0] Índice de Mensajes

[*] Página Anterior