En lugar de mostrar los datos Web en tablas HTML, puede proporcionar a los usuarios con la opción de mostrar los datos en Microsoft Excel. En este artículo muestra cómo crear una página Web con datos tabulares obtenidos de Microsoft SQL Server y procesarlo en Excel dentro del explorador al asociar el contenido de página Web con el tipo MIME en Excel.
Para seguir los pasos y comprobar los resultados, necesita lo siguiente:
- Microsoft Windows NT Server 4.0, Service Pack 3
- Microsoft Internet Information Server (IIS), versión 4.0 o posterior
- Microsoft SQL Server 6.5 o posterior
- Microsoft Excel 97, Excel 2000 y Excel 2002
Procedimientos paso a paso
- Crear un DSN de sistema llamado "pubs" mediante el ODBC subprograma del panel de control. Configurar el DSN para hacer referencia a su servidor SQL Server local, utilizar la autenticación de SQL Server y utilizar "pubs" como la base de datos predeterminada. El ID de inicio de sesión predeterminado a la base de datos pubs es sa , sin contraseña.
- Utilice Bloc de notas para crear un archivo denominado XlTest.asp en su directorio particular de IIS (por ejemplo, inetpub\wwwroot) y agregue lo siguiente:
<%@ Language=VBScript %>
<%
'Change HTML header to specify Excel's MIME content type
Response.Buffer = TRUE
Response.ContentType = "application/vnd.ms-excel"
%>
<HTML>
<BODY>
Here is the info you requested.<p>
<%
' Create ADO Connection object
dim myConnection
set myConnection = CreateObject("ADODB.Connection")
' Open SQL Server Pubs database...
' myConnection.Open "DSN=pubs;UID=sa"
' Get a recordset of info from Authors table...
sqlStr = "SELECT au_fname,au_lname,phone FROM authors"
set rsAuthors = myConnection.Execute(sqlStr)
%>
<!-- Our table which will be translated into an Excel spreadsheet -->
<TABLE WIDTH=75% BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR>
<TD><font size=+2>First Name</font></TD>
<TD><font size=+2>Last Name</font></TD>
<TD><font size=+2>Phone</font></TD>
</TR>
<!-- server-side loop adding Table entries -->
<% do while not rsAuthors.EOF %>
<TR>
<TD><%=rsAuthors("au_fname")%></TD>
<TD><%=rsAuthors("au_lname")%></TD>
<TD><%=rsAuthors("phone")%></TD>
</TR>
<% rsAuthors.MoveNext
loop
' Clean up
rsAuthors.Close
set rsAuthors = Nothing
myConnection.Close
set myConnection = Nothing
%>
</TABLE>
</BODY>
</HTML>
- Guardar XlTest.asp y, a continuación, véala desde un explorador del cliente. Por ejemplo, http:// MyServer /XlTest.asp (reemplace MyServer con el nombre del servidor).
Si Microsoft Excel 97 está instalado en el equipo cliente, Microsoft Excel muestra los datos dentro del explorador.
Id. de artículo: 199841 - Última revisión: jueves, 15 de julio de 2004 - Versión: 5.4
La información de este artículo se refiere a:
- Microsoft Visual InterDev 6.0 Standard Edition
- Microsoft Internet Information Server 4.0
- Servicios de Microsoft Internet Information Server 5.0
- Microsoft Excel 97 Standard Edition
- Microsoft Excel 2000 Standard Edition
- Microsoft Excel 2002 Standard Edition
- Microsoft Office Excel 2003
| kbmt kbhowto KB199841 KbMtes |
Traducción automáticaIMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés):
199841
(http://support.microsoft.com/kb/199841/en-us/
)