Exportar a word

[DanX03]

Hola de nuevo amig@s programadores ahora tengo este problemita:

Tengo una consulta ya realizada, lo que ahora necesito es exportar dicha consulta a un archivo de word con un formato ya establecido ¿como hago esto?

[marco_foros]

Si tienes Office instalado en el servidor, puedes manipular el documento desde tu asp.

Dim wrdApp
Dim wrdDoc

Set wrdApp = Server.CreateObject("WORD.Application")
Set wrdDoc = wrdApp.Documents.Open ("<aquí la ruta del archivo>")

wrdApp.Visible = True

wrdApp.ActiveDocument.Content.Text = "Hola Mundo" 'Con esta instrucción escribes el texto en tu documento.

Espero te sirva.

Saludos!

[DanX03]

Hola marco_foros.

Gracias por la respuesta, si me genera el documento word pero lo que hace es que todos los valores resultantes de la consulta los sobreescribe uno despues del otro, dejando solo el ultimo valor visible el codigo lo implemente de la siguiente forma:

Código ASP:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!-- #include file="variables.asp"-->
<%
narchivo = "\inetpub\wwwroot\bitacora_desarrollo\reporte_desarrollo.doc"
fechaini=request.QueryString("fechaini")
fechafin=request.QueryString("fechafin")
 
Response.Clear()
Dim wrdApp
Dim wrdDoc
 
Set wrdApp = Server.CreateObject("WORD.Application")
Set wrdDoc = wrdApp.Documents.Open(narchivo)
 
 
conectar()
 
 
sqla="select a.fecha_odt,b.cliente,a.proyecto,c.descripcion,a.realizo,clasificacion from (select fecha_odt,cliente,proyecto,"&_
    "descripcion,realizo,(case when clasificacion=1 then 'CALLCENTER' when clasificacion=2 then 'ADMINISTRATIVO' when clasificacion=3 then "&_
    "'BASE DE DATOS' end) clasificacion from desarrollo.bitacora_desarrollo where fecha_odt between convert(datetime,'"&fechaini&"',103) "&_
    "and convert(datetime,'"&fechafin&"',103)+1) a left join (select id,nombre as cliente from desarrollo.clientes09 where area=1) b on "&_
    "a.cliente=b.id left join (select id_req,descripcion,actividad from desarrollo.cat_requerimientos) c on a.descripcion=c.id_req "&_
    "order by a.clasificacion,a.fecha_odt,a.realizo"
'response.Write(sqla)
'response.End()
rs.Open sqla, conn
 
wrdApp.Visible = True
 
while not rs.eof
 
wrdApp.ActiveDocument.Content.Text = rs(0)&"<br> "
wrdApp.ActiveDocument.Content.Text = rs(1)&"<br> "
wrdApp.ActiveDocument.Content.Text = rs(2)&"<br> "
wrdApp.ActiveDocument.Content.Text = rs(3)&"<br> "
wrdApp.ActiveDocument.Content.Text = rs(4)&"<br> "
wrdApp.ActiveDocument.Content.Text = rs(5)
 
rs.movenext
wend%>
 

En donde tengo que cambiarle para que salgan los datos de la siguiente forma

----------------------------------
| Dato 1 | Dato2 | Dato3 | Dato 4 | Dato n |
----------------------------------

[marco_foros]

Te está realizando los saltos de línea con el <br> ?

Intenta con vbCrLf o con un wrdApp.Selection.TypeParagraph

Saludos!

[AlZuwaga]

cambiá esto:

Código:

wrdApp.ActiveDocument.Content.Text = rs(0)&"<br> "
wrdApp.ActiveDocument.Content.Text = rs(1)&"<br> "
wrdApp.ActiveDocument.Content.Text = rs(2)&"<br> "
wrdApp.ActiveDocument.Content.Text = rs(3)&"<br> "
wrdApp.ActiveDocument.Content.Text = rs(4)&"<br> "
wrdApp.ActiveDocument.Content.Text = rs(5)

Por esto:

Código:

tmp = rs(0)&"<br> "
tmp = tmp & rs(1)&"<br> "
tmp = tmp & rs(2)&"<br> "
tmp = tmp & rs(3)&"<br> "
tmp = tmp & rs(4)&"<br> "
tmp = tmp & rs(5)
wrdApp.ActiveDocument.Content.Text = tmp

¿Entendés la diferencia entre lo que hice y lo que tenías? Si no, avisá y se te explica.

También tené en cuanta lo que marco_foros dice acerca de los saltos de línea.

[DanX03]

Hola AlZuwaga he cambiado el texto como me lo haz indicado, pero no me genera el salto de linea ¿como o con que instruccion hago el salto de linea? ¿Podrian ponerme un ejemplo?

marco_foros no se como manejar vbCrLf o wrdApp.Selection.TypeParagraph, me podrias poner la sintaxis por favor

[AlZuwaga]

Iniciado por marco_foros

Te está realizando los saltos de línea con el <br> ?

Intenta con vbCrLf o con un wrdApp.Selection.TypeParagraph

Saludos!

Necesitás más ayuda acerca de lo que dijo marco_foros?

[DanX03]

Iniciado por AlZuwaga

Necesitás más ayuda acerca de lo que dijo marco_foros?

Si por favor

[AlZuwaga]

Pues... reemplazá cada aparición de "<br> " con VBCrLf (y si no funciona con wrdApp.Selection.TypeParagraph, pero esto lo desconozco totalmente)

[DanX03]

Entonces esperare a marco_foros, ya que he remplazado cada <br> con VBCrLf y me sigue mostrando el mismo resultado

[AlZuwaga]

ojo que yo dije "<br> ", comillas incluidas. Anyway... y si marcos_foro no aparece? Te quedás ahí esperando por toda la eternidad? Amigo, intente hacer las cosas, investigue, prueba y error.

[DanX03]

Iniciado por AlZuwaga

ojo que yo dije "<br> ", comillas incluidas.

Yo lo reemplace con todo y comillas y sigue mostrando el mismo resultado

Iniciado por Alzuwaga

Anyway... y si marcos_foro no aparece? Te quedás ahí esperando por toda la eternidad? Amigo, intente hacer las cosas, investigue, prueba y error.

Yo sigo intentando hasta encontrar el resultado, ya que no puedo depender de otra persona a que resuelva mi problema.

[marco_foros]

Como dijo el buen AlZuwaga, tienes que reemplazar "<br>" (incluyendo las comillas) por vbCrLf.

Arma el texto como te comentó AlZuwaga y al final sólo lo mandas a word, quedando así:

Código:

tmp = rs(0) & vbCrLf
tmp = tmp & rs(1) & vbCrLf
tmp = tmp & rs(2) & vbCrLf
tmp = tmp & rs(3) & vbCrLf
tmp = tmp & rs(4) & vbCrLf
tmp = tmp & rs(5)

wrdApp.ActiveDocument.Content.Text = tmp

Te comento que esto lo he hecho y me imprimió los saltos de línea, justo como armé el texto, así que no deberías tener problemas con esto.

Saludos!!

[DanX03]

He encontrado una posible respuesta:

Código ASP:

<%
response.ContentType ="application/msword"
fechaini=request.QueryString("fechaini")
fechafin=request.QueryString("fechafin")%>
<!--#include file="variables.asp"-->
<html>
<head>
<title>Word Test</title>
<meta name="Author" content="Acme Toys">
</head>
<style type="text/css">
 
.BigTitle {
font-family: Verdana, Sans-Serif;
font-size: 20pt;
font-weight: bold;
color: #004080;
}
 
.UserDetails {
font-family: Courier New, Monospace;
font-size: 12pt;
}
 
</style>
<body>
<%conectar()
 
 
sqla="select a.fecha_odt,b.cliente,a.proyecto,c.descripcion,a.realizo,clasificacion from (select fecha_odt,cliente,proyecto,"&_
    "descripcion,realizo,(case when clasificacion=1 then 'CALLCENTER' when clasificacion=2 then 'ADMINISTRATIVO' when clasificacion=3 then "&_
    "'BASE DE DATOS' end) clasificacion from desarrollo.bitacora_desarrollo where fecha_odt between convert(datetime,'"&fechaini&"',103) "&_
    "and convert(datetime,'"&fechafin&"',103)+1) a left join (select id,nombre as cliente from desarrollo.clientes09 where area=1) b on "&_
    "a.cliente=b.id left join (select id_req,descripcion,actividad from desarrollo.cat_requerimientos) c on a.descripcion=c.id_req "&_
    "order by a.clasificacion,a.fecha_odt,a.realizo"
'response.Write(sqla)
'response.End()
rs.Open sqla, conn
 
'wrdApp.Visible = True
%>
<table width="100%">
  <tr>
    <td width="25%">Asunto</td>
    <td width="25%">Detalle</td>
    <td width="25%">Responsable</td>
    <td width="25%">Fecha Compromiso</td>
  </tr>
<%while not rs.eof%>
  <tr>
    <td><%=rs(1)%></td>
    <td><%=rs(3)%></td>
    <td><%=rs(4)%></td>
    <td><%=rs(0)%></td>
  </tr>
<%rs.movenext
wend%>
</table>
</p>
</body>
 
</html>
 

Solo que si le agrego este include

Código ASP:

<!--#include file="reporte_desarrollo.doc"-->
 

Que es donde tengo el formato con encabezado y pie de pagina definidos, solo abre el documento sin ningun valor.

[marco_foros]

¿Y cómo piensas introducir los valores en el archivo?

Yo intenté esto, pero con un archivo de Excel y si utilizas la instrucción response.ContentType ="application/msword", tu página será vaciada, por así decirlo, en un archivo de word, pero este archivo será creado, no será la plantilla que deseas utilizar, y hasta donde sé, no hay forma de ligar tu plantilla con el archivo que te generará.

Si quieres abrir el archivo original y sobre él colocar información, tendrás que hacerlo desde el lado del servidor para trabajarlo (con las instrucciones que te puse) o crear un script con VBScript (de preferencia) para abrirlo desde el equipo del cliente, lo cual es un poco más complicado porque el cliente deberá tener el archivo de la plantilla en su equipo... ¿¿¿y si no lo tuviese???

Si quieres crear el archivo desde 0, tendrás que chutarte el código para crear la plantilla y vaciar la información.

Esto es lo que tuve que hacer yo para solucionar mi problema. Tal vez esté equivocado pero lo intenté y sólo así me funcionó; y no creo que haya mucha diferencia entre el excel y el word para estos casos.

Ya no entiendo bien qué es lo que requieres o cuál fue el problema que tuviste para crearlo como te comenté en el primer post que hice al respecto.

Si deseas visualizarlo, sólo tienes que colocar un wrdApp.Visible = True

Espero te sirva la información. Investígale y verás que encontrarás la mejor solución a lo que requieres.

Saludos!

[DanX03]

Iniciado por marco_foros

Ya no entiendo bien qué es lo que requieres o cuál fue el problema que tuviste para crearlo como te comenté en el primer post que hice al respecto.

Mi problema es que tengo una planilla de word ya establecida, a la cual se le deben insertar los datos provenientes de la consulta dada, lo he intentando con las instrucciones que me haz dado, pero al abrir el archivo los datos los va sobreescribiendo mostrandome siempre el ultimo, he solucionado la parte del salto de linea. Este es el codigo con las instruciones dadas anteriormente:

Código ASP:

<%
'response.ContentType ="application/msword"
Dim wrdApp
Dim wrdDoc
 
Set wrdApp = Server.CreateObject("WORD.Application")
Set wrdDoc = wrdApp.Documents.Open ("\inetpub\wwwroot\bitacora_desarrollo\reporte_desarrollo.doc")
 
wrdApp.Visible = True
fechaini=request.QueryString("fechaini")
fechafin=request.QueryString("fechafin")%>
<!--#include file="variables.asp"-->
<html>
<head>
<title>Word Test</title>
<meta name="Author" content="Acme Toys">
</head>
<style type="text/css">
 
.BigTitle {
font-family: Verdana, Sans-Serif;
font-size: 20pt;
font-weight: bold;
color: #004080;
}
 
.UserDetails {
font-family: Courier New, Monospace;
font-size: 12pt;
}
 
</style>
<body>
<%conectar()
 
 
sqla="select a.fecha_odt,b.cliente,a.proyecto,c.descripcion,a.realizo,clasificacion from (select fecha_odt,cliente,proyecto,"&_
    "descripcion,realizo,(case when clasificacion=1 then 'CALLCENTER' when clasificacion=2 then 'ADMINISTRATIVO' when clasificacion=3 then "&_
    "'BASE DE DATOS' end) clasificacion from desarrollo.bitacora_desarrollo where fecha_odt between convert(datetime,'"&fechaini&"',103) "&_
    "and convert(datetime,'"&fechafin&"',103)+1) a left join (select id,nombre as cliente from desarrollo.clientes09 where area=1) b on "&_
    "a.cliente=b.id left join (select id_req,descripcion,actividad from desarrollo.cat_requerimientos) c on a.descripcion=c.id_req "&_
    "order by a.realizo,a.fecha_odt"
'response.Write(sqla)
'response.End()
rs.Open sqla, conn
 
wrdApp.Visible = True
%>
<table width="100%">
<%while not rs.eof%>
  <tr>
    <td><%wrdApp.ActiveDocument.Content.Text =rs(1)f%></td>
    <% wrdApp.Selection.TypeParagraph%>
    <td><%wrdApp.ActiveDocument.Content.Text =rs(3)%></td>
    <% wrdApp.Selection.TypeParagraph%>
    <td><%wrdApp.ActiveDocument.Content.Text =rs(4)%></td>
    <% wrdApp.Selection.TypeParagraph%>
    <td><%wrdApp.ActiveDocument.Content.Text =rs(0)%></td>
    <% wrdApp.Selection.TypeParagraph%>
  </tr>
<%rs.movenext
wend%>
</table>
</p>
</body>
 
</html>