Em vez de apresentar os dados da Web em tabelas HTML, pode fornecer aos utilizadores com a opção de apresentar os dados no Microsoft Excel. Este artigo demonstra como criar uma página Web com dados tabulares obtidos a partir do Microsoft SQL Server e compô-lo no Excel dentro do browser, associando o conteúdo da página Web com o tipo MIME no Excel.
A seguir juntamente com os passos e para testar os resultados, necessita do seguinte:
- Microsoft Windows NT Server 4.0, SP3
- Microsoft Internet Information Server (IIS), versão 4.0 ou posterior
- Microsoft SQL Server 6.5 ou posterior
- Microsoft Excel 97, Excel 2000 e Excel 2002
Procedimentos passo a passo
- Criar um DSN de sistema denominado "pubs" utilizando o ODBC aplicação de painel de controlo. Configure o DSN para referenciar o SQL Server local, utilizar a autenticação do SQL Server e utilizar "pubs" como a base de dados predefinido. O ID de início de sessão predefinido na base de dados pubs é sa , sem palavra-passe.
- Utilize Notepad.exe para criar um ficheiro denominado XlTest.asp no directório de raiz do IIS (por exemplo, inetpub\wwwroot) e adicione o seguinte:
<%@ 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>
- Guarde XlTest.asp e, em seguida, visualizá-lo a partir de um browser cliente. Por exemplo, http:// MyServer /XlTest.asp (substituir MyServer com o nome do servidor.)
Se o Microsoft Excel 97 estiver instalado no computador cliente, o Microsoft Excel apresenta os dados dentro do browser.
Artigo: 199841 - Última revisão: quinta-feira, 15 de Julho de 2004 - Revisão: 5.4
A informação contida neste artigo aplica-se a:
- Microsoft Visual InterDev 6.0 Standard Edition
- Microsoft Internet Information Server 4.0
- Serviços de informação Internet 5.0 da Microsoft
- Microsoft Excel 97 Standard Edition
- Microsoft Excel 2000 Standard Edition
- Microsoft Excel 2002 Standard Edition
- Microsoft Office Excel 2003
| kbmt kbhowto KB199841 KbMtpt |
Tradução automáticaIMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo:
199841
(http://support.microsoft.com/kb/199841/en-us/
)