Programación Web y Scripting > PHP
Excel Y Php
neorent:
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.
LeGatoRojo:
No recuerdo en nombre de la libreria, pero hay varias en la red que sirven perfectamente para solucionar este problema...
neorent:
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
Altareum:
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
Altareum.
neorent:
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 --- <th align='center'><span class='style13'><a href='Imprime Folio.exe'>Click Aqui</a></span></th> y quiero esto que si resulta pero no se como tomar el valor
--- Código: Text --- <th align='center'><span class='style13'><a href='Imprime Folio.exe?var=$id'>Click Aqui</a></span></th> y este es el codigo de mi programa echo en visual
--- Código: Text --- Dim base As DatabaseDim b As Recordset Private Sub Command1_Click() End Sub Private Sub Command2_Click()EndEnd Sub Private Sub Command3_Click()b.MoveFirstDim ApExcel As VariantSet ApExcel = CreateObject("Excel.application")ApExcel.Visible = TrueApExcel.Workbooks.Open ("\\pc_soporte\c$\soporte\Formulario de Soporte Tecnico a Terreno.xls")Do While b.EOF = False If b("folio_atencion") = Text1.Text Then Text2.Text = b("usuario_atencion") Text3.Text = b("direccion_depto") ApExcel.cells(1, 1).Font.Size = 12 ApExcel.cells(8, 7).formula = b("folio_atencion") ApExcel.cells(9, 4).formula = b("usuario_atencion") 'nombre usuario ApExcel.cells(9, 7).formula = b("fono_anexo") 'fono anexo ApExcel.cells(10, 4).formula = b("direccion_depto") 'direccion ApExcel.cells(10, 7).formula = b("n_oficina") 'oficina ApExcel.cells(11, 7).formula = b("tecnico_asignado") 'tecnico ApExcel.cells(14, 3).formula = b("problema_descrito") 'problema b.MoveNext Else b.MoveNext End IfLoopSet ApExcel = NothingEnd Sub Private Sub Form_Load()Set a = OpenDatabase("\\pc_soporte\c$\soporte\db_soporte.mdb") 'ASIGNO A LA VARIABLE "A" LA DIRECCION DE DONDE SE ENCUENTRA LA BASE DE DATOSSet b = a.OpenRecordset("maestro_atenciones") 'ASIGNO A LA VARIABLE "B" LA TABLA DE LA BASE DE DATOS LA CUAL UTILIZARAIf b.RecordCount = 0 Then MsgBox "No Existen Registros", vbInformation, "Por Favor Ingrese"Else b.MoveFirstEnd IfEnd Sub Private Sub Form_Unload(Cancel As Integer)Command2_ClickEnd Sub eso gracias a todos ojala me puedan ayudar adios
Navegación
[#] Página Siguiente
Ir a la versión completa