利用ASP將HTML格式數據傳輸給Excel（2）

2019-11-18 20:29:08

字體：大中小

來源：轉載

供稿：網友

建立HTML表格
首先建立asp主頁，將該主頁添加到Visual InterDev項目中，文件名為ContentType.asp，如同圖 A
。然后將代碼A所顯示的代碼添加到主頁中，第一行代碼可以將所涉及主頁的mime type轉變為Excel mime type。下面幾行代碼將啟動我們早先建立的組件以獲取ADOR記錄區的數據。這些代碼如同ListingA中所顯示將在記錄區循環處理并建立一個HTML表格，該表格包括雇員表中每行的記錄。

代碼 A:Code for adding new ASP page to Visual InterDev PRoject
<%@ Language=VBScrapplication/vnd.ms-excel"%>

<%
Dim objEmployee, rs

set objEmployee=server.CreateObject("EmpReport.Employee")

Set rs = objEmployee.GetEmployee()

'Draw a Table

%>
<TABLE>
<TR>
<TD><STRONG><FONT FACE="" size=4>Employee
Report</FONT></STRONG></TD>
</TR>
<TR>
<TD>Employee Id</TD>
<TD>First Name</TD>
<TD>Last Name</TD>
<TD>Title</TD>
</TR>
    <%
Do while not rs.eof
%>
<TR>
<TD>
            <%=rs("EmployeeId")%></TD>
<TD>
            <%=rs("LastName")%></TD>
<TD>
            <%=rs("FirstName")%></TD>
<TD>
            <%=rs("Title")%></TD>
</TR>
    <%
rs.movenext
loop
%></TABLE>

完成輸入代碼后，保存并瀏覽該主頁。該主頁如同圖 B 。注意該電子表格中的所有行并未實行任何格式化處理。當我們使用Excel VBA組件創立工作表格時，我們可以利用VBA方式對表格加以調整。但是，在使用HTML方式下對表格加以通常的格式化處理是比較困難的，除非你能方便地顯示和讀取HTML表格的有關數據。利用ASP主頁技術我們能夠做到這一點，而且可以實現目前Microsoft Excel所支持的所有功能，其中包括SUM功能。需要注意的是，利用HTML創立的工作表格中沒有包括一些標準的標示符號，例如<HTML> 及<BODY>。當我們建立與Excel工作表格互換數據的HTML表格時，盡量不要在ASP主頁中使用<HTML>,<BODY>,<HEAD>等標示符號，因為Excel工作表格通常無法正確這些標示符號。