• Viernes 15 de Noviembre de 2024, 10:02

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - Kaisser

Páginas: [1]
1
JSP/Servlets / Combinar Varios Documentos Xml Y Xsl
« en: Viernes 20 de Julio de 2007, 14:36 »
Hola a todos.

Ya aprendí como combinar un xml con su correspondiente xsl en el servidor gracias a ustedes.

Ahora quisiera combinar un XML con un XSL y que este al leer el XML y ver que hace referencias a otros XSL´s poder procesarlos con el primer XSL.

Algo así:

/ XSL
XML --- > XSL -- XSL
\ XSL

El XML necesita de varios XSL y para poder usarlos todos uso un XSL de control.

¿Cómo se puede hacer? A ver si alguien me puede pasar algún enlace para aprender como hacerlo.

Muchas gracias, un saludo.

2
VBA / Re: Exportar Hojas De Excel A Word
« en: Miércoles 24 de Enero de 2007, 13:30 »
Hola, pues parece que ya lo he resuelto.

 Aquí pongo todo, por si a alguien le es útil, no es gran cosa, pero bueno:

Código: Text
  1.  
  2.    
  3. '=========================
  4. 'EXPORTAR DE EXCEL A WORD.
  5. '=========================
  6.  
  7. On Error Resume Next
  8. 'Nos situamos en el documento word en la posición que queremos que  vaya la hoja de excel con un bookmar
  9. appWD.Selection.Application.ActiveDocument.Bookmarks("Hoja_Inicio").Select
  10.  
  11. 'Bucle para ir insertando todas las hojas del documento excel
  12. Excel.Sheets("DATOS GENERALES").Select
  13.  
  14. Dim Contador As Integer
  15. Contador = Excel.Sheets.Count
  16.  
  17. Dim Indice As Integer
  18. Indice = 1
  19.  
  20. Do While Contador > 0
  21.  
  22.     'Selecciono una hoja
  23.     Excel.Sheets(Indice).Select
  24.    
  25.     'Cierro excel                                                  
  26.     Excel.Application.DisplayAlerts = False
  27.     Excel.Application.SaveWorkspace
  28.     Excel.Application.Quit
  29.    
  30.     Excel.Application.DisplayAlerts = True
  31.    
  32.     'Importo la hoja
  33.    
  34.     appWD.Application.Selection.InlineShapes.AddOLEObject ClassType:="Excel.Sheet.8", Filename:="\\....\doc.xls", LinkToFile:=False, DisplayAsIcon:=False
  35.    
  36.    
  37.     'Puede pedir autorización para usar macros, es cuestión de bajar la seguridad.
  38.    
  39.    
  40.     'Abro de nuevo excel y borro la hoja que he exportado
  41.      On Local Error Resume Next
  42.      Set Excel = CreateObject("excel.application")
  43.      Excel.Workbooks.Open "\\...\documento.xls"
  44.  
  45.      Excel.Workbooks(1).Activate
  46.      
  47.      
  48.         If Err Then
  49.             MsgBox Err.Number, Err.Description, "Error al abrir ."
  50.             Excel.Close
  51.         End If
  52.         Excel.Visible = True
  53.    
  54.        
  55.     'Selecciono una hoja
  56.     Excel.Sheets(Indice).Select
  57.    
  58.  
  59.  
  60.     If Contador <> 1 Then                                           'Preguntar antes de abrir Excel, por que sino hay que borrar es tonteria abrir
  61.         Excel.Application.DisplayAlerts = False
  62.         Excel.ActiveWindow.SelectedSheets.Delete
  63.         Excel.Application.DisplayAlerts = True
  64.     End If
  65.    
  66.    
  67.    ' Excel.Visible = True
  68.    
  69.     'Actualizo indices
  70.    ' Indice = Indice + 1
  71.    
  72.     Contador = Contador - 1
  73. Loop
  74.  
  75.  
  76.  
  77. 'Excel.Application.Selection.InlineShapes.AddOLEObject ClassType:="Excel.Sheet.8", Filename:="\\...\documento.xls", LinkToFile:=False, DisplayAsIcon:=False
  78.    
  79.    
  80.    If Error Then
  81.     ' MsgBox Error       'HAY ALGÚN ERROR, PERO EL TEMA FUNCIONA :P
  82.    End If
  83.    
  84.  
  85.    
  86.    
  87.     'Cerramos las aplicaciones de Word y Excel.
  88.     appWD.Quit
  89.     Excel.Application.Quit
  90.  
  91.  
  92.  


 Es una autentica chapuza, por que abro varias veces Excel y lo cierro, pero no va mal del todo   :kicking:

 Un saludo.

3
VBA / Re: Exportar Hojas De Excel A Word
« en: Miércoles 24 de Enero de 2007, 10:13 »
Vaya, tengo un problema.

 La macro de Word para importar el Excel tiene este código:

Código: Text
  1.  Excel.Application.Selection.InlineShapes.AddOLEObject ClassType:="Excel.Sheet.8", Filename:="\\...\Archivo.xls", LinkToFile:=False, DisplayAsIcon:=False
  2.  

 El caso es que eso se hace desde Word, con Excel cerrado y claro, yo había pensado en un bucle para recorrer las hojas de word e ir exportandolas y claro, si tengo que tener Excel cerrado........ mal asunto  :(


 A ver si alguien me puede ayudar.


 Salu2

4
VBA / Exportar Hojas De Excel A Word
« en: Miércoles 24 de Enero de 2007, 09:29 »
Hola a todos.

 Tengo un documento en excel compuesto por más de 1 hoja y quiero exportar dichas hojas a un documento de word.

 Bueno, haciendolo a mano y grabando todo en una macro tengo la solución a lo que quiero, pero........ el caso es que sólo me importa la primera hoja del documento excel.  <_<
 
 ¿Cómo puedo exportar todas?    


 Otra cosilla, luego tengo que pasar todo a PDF,  que es más fácil, pasar excel a pdf y word a pdf y unirlos ordenadamente en un gran pdf o pasar todo a word y luego a pdf. (Pregunta enredada, pero lo comento por si es más fácil).

 Un saludo y gracias.

5
Visual Basic 6.0 e inferiores / Leer Lo Que Se Escribe En El Teclado
« en: Miércoles 6 de Septiembre de 2006, 13:04 »
Hola a todoooss.


 Tengo un problema de duplicidad de tareas.

 En una página web tecleo una serie de datos y en un programa propio tecleo más o menos los mismos.

 Mi necesidad es:  Quiero capturar todos los datos que se tecleen en el teclado mientras se rellenan los cajetines de la web.

 ¿Alguna idea?

 Muchas gracias, un saludo.

Pd: también me interesaría algo que hiciera lo contrario, que partiendo de una base de datos me rellenase los cajetines de una web. ¿se puede?

6
VBA / Escribir Texto En Word Desde Visual.
« en: Miércoles 6 de Septiembre de 2006, 09:55 »
Hola a todos  :hola: , soy nuevo por estos lares y espero aprender MUCHO.

 Tengo un problema (que original, ¿no? ).

 Bueno, resulta que estoy automatizando la creación de unas memorias de proyectos en word.
 
 En dichas memorias, hay una parte fija y una parte variable. Pues bien, mi problema es que al escribir la parte variable el texto no queda bien colocado. Con esto me refiero a que hay partes de la memoria que son independientes y deben empezar en hojas nuevas y claro, si la parte variable es poca, puede que se rellene poco de una hoja y la siguiente empiece en esa misma hoja ó que se rellene media hoja y la siguiente, el titulo de la siguiente, quede muy arriba,..... hay varios casos.

 Lo que quiero es saber en que línea estoy y así calcular si me queda mucho espacio, el justo, demasiado,..... y así cuadrarlo todo.

 Necesito: Línea de word en la que estoy.

 Muchas gracias de antemano, un saludo.

Páginas: [1]