ASP导出Excel数据的四种方法

 一、使用OWC

  什么是OWC?

  OWC是Office Web Compent的缩写,即Microsoft的Office Web组件,它为在Web中绘制图形提供了灵活的同时也是最基本的机制。在一个intranet环境中,如果可以假设客户机上存在特定的浏览器和一些功能强大的软件(如IE5和Office 2000),那么就有能力利用Office Web组件提供一个交互式图形开发环境。这种模式下,客户端工作站将在整个任务中分担很大的比重。

  1<%Option Explicit 
  2Class ExcelGen 
  3Private objSpreadsheet 
  4Private iColOffset 
  5
  6Private iRowOffset 
  7Sub Class_Initialize() 
  8Set objSpreadsheet = Server.CreateObject("OWC.Spreadsheet"
  9iRowOffset = 2 
 10iColOffset = 2 
 11End Sub 
 12
 13Sub Class_Terminate() 
 14Set objSpreadsheet = Nothing 'Clean up 
 15End Sub 
 16
 17Public Property Let ColumnOffset(iColOff) 
 18If iColOff > 0 then 
 19iColOffset = iColOff 
 20Else 
 21iColOffset = 2 
 22End If 
 23End Property 
 24
 25Public Property Let RowOffset(iRowOff) 
 26If iRowOff > 0 then 
 27iRowOffset = iRowOff 
 28Else 
 29iRowOffset = 2 
 30End If 
 31End Property Sub GenerateWorksheet(objRS) 
 32'Populates the Excel worksheet based on a Recordset's contents 
 33'Start by displaying the titles 
 34If objRS.EOF then Exit Sub 
 35Dim objField, iCol, iRow 
 36iCol = iColOffset 
 37iRow = iRowOffset 
 38For Each objField in objRS.Fields 
 39objSpreadsheet.Cells(iRow, iCol).Value = objField.Name 
 40objSpreadsheet.Columns(iCol).AutoFitColumns 
 41'设置Excel表里的字体 
 42objSpreadsheet.Cells(iRow, iCol).Font.Bold = True 
 43objSpreadsheet.Cells(iRow, iCol).Font.Italic = False 
 44objSpreadsheet.Cells(iRow, iCol).Font.Size = 10 
 45objSpreadsheet.Cells(iRow, iCol).Halignment = 2 '居中 
 46iCol = iCol + 1 
 47Next 'objField 
 48'Display all of the data 
 49Do While Not objRS.EOF 
 50iRow = iRow + 1 
 51iCol = iColOffset 
 52For Each objField in objRS.Fields 
 53If IsNull(objField.Value) then 
 54objSpreadsheet.Cells(iRow, iCol).Value = "" 
 55Else 
 56objSpreadsheet.Cells(iRow, iCol).Value = objField.Value 
 57objSpreadsheet.Columns(iCol).AutoFitColumns 
 58objSpreadsheet.Cells(iRow, iCol).Font.Bold = False 
 59objSpreadsheet.Cells(iRow, iCol).Font.Italic = False 
 60objSpreadsheet.Cells(iRow, iCol).Font.Size = 10 
 61End If 
 62iCol = iCol + 1 
 63Next 'objField 
 64objRS.MoveNext 
 65Loop 
 66End Sub Function SaveWorksheet(strFileName) 
 67
 68'Save the worksheet to a specified filename 
 69On Error Resume Next 
 70Call objSpreadsheet.ActiveSheet.Export(strFileName, 0
 71SaveWorksheet = (Err.Number = 0
 72End Function 
 73End Class 
 74
 75Dim objRS 
 76Set objRS = Server.CreateObject("ADODB.Recordset"
 77objRS.Open "SELECT * FROM xxxx""Provider=SQLOLEDB.1;Persist Security 
 78
 79Info=True;User ID=xxxx;Password=xxxx;Initial Catalog=xxxx;Data source=xxxx;" 
 80Dim SaveName 
 81SaveName = Request.Cookies("savename")("name"
 82Dim objExcel 
 83Dim ExcelPath 
 84ExcelPath = "Excel\" & SaveName & ".xls" 
 85Set objExcel = New ExcelGen 
 86objExcel.RowOffset = 1 
 87objExcel.ColumnOffset = 1 
 88objExcel.GenerateWorksheet(objRS) 
 89If objExcel.SaveWorksheet(Server.MapPath(ExcelPath)) then 
 90'Response.Write "<html><body bgcolor='gainsboro' text='#000000'>已保存为Excel文件. 
 91
 92<a href='" & server.URLEncode(ExcelPath) & "'>下载</a>" 
 93Else 
 94Response.Write "在保存过程中有错误!" 
 95End If 
 96Set objExcel = Nothing 
 97objRS.Close 
 98Set objRS = Nothing 
 99%>  
100
101

  二、用Excel的Application组件在客户端导出到Excel或Word

  注意:两个函数中的“data“是网页中要导出的table的 id

<input type="hidden" name="out_word" onclick="vbscript:buildDoc" value="导出到word" class="notPrint">
<input type="hidden" name="out_excel" onclick="AutomateExcel();" value="导出到excel" class="notPrint"> 

 

<SCRIPT LANGUAGE="javascript"> 
!-- 
function AutomateExcel() 

// Start Excel and get Application object. 
var oXL = new ActiveXObject("Excel.Application"); 
// Get a new workbook. 
var oWB = oXL.Workbooks.Add(); 
var oSheet = oWB.ActiveSheet; 
var table = document.all.data; 
var hang = table.rows.length; 

var lie = table.rows(0).cells.length; 

// Add table headers going cell by cell. 
for (i=0;i<hang;i++

for (j=0;j<lie;j++

oSheet.Cells(i
+1,j+1).value = table.rows(i).cells(j).innerText; 



oXL.Visible 
= true
oXL.UserControl 
= true

//--> 
/SCRIPT>  

2. 导出到Excel代码

<script language="javascript">
function exportExcel(atblData)
{
 if (typeof(EXPORT_OBJECT)!="object")
   {
     document.body.insertAdjacentHTML("afterBegin","<OBJECT style='display:none' classid=clsid:0002E510-0000-0000-C000-000000000046 id=EXPORT_OBJECT></Object>");
   }
 with (EXPORT_OBJECT){
          DataType = "HTMLData";
          HTMLData =atblData.outerHTML;
      try{
           ActiveSheet.Export("C:\\sortTEL.xls",0);
  alert('导出EXCEL文档完毕');
          }
  catch (e)
  {
               alert('导出Excel表失败,请确定已安装Excel2000(或更高版本),并且没打开同名xls文件');
  }
            }
 }
</script>
<center><input type="button" value="导出以上数据为Excel文档" onclick="exportExcel(tblData)"></center>

 

  导出到Word代码

<script language="vbscript"> 
Sub buildDoc 
set table 
= document.all.data 
row 
= table.rows.length 
column 
= table.rows(1).cells.length 

Set objWordDoc 
= CreateObject("Word.Document"

objWordDoc.Application.Documents.Add theTemplate, False 
objWordDoc.Application.Visible
=True 

Dim theArray(
20,10000
for i=0 to row-1 
for j=0 to column-1 
theArray(j
+1,i+1= table.rows(i).cells(j).innerTEXT 
next 
next 
objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore(
"综合查询结果集"//显示表格标题 

objWordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore(
""
Set rngPara 
= objWordDoc.Application.ActiveDocument.Paragraphs(1).Range 
With rngPara 
.Bold 
= True //将标题设为粗体 
.ParagraphFormat.Alignment = 1 //将标题居中 
.Font.Name = "隶书" //设定标题字体 
.Font.Size = 18 //设定标题字体大小 
End With 
Set rngCurrent 
= objWordDoc.Application.ActiveDocument.Paragraphs(3).Range 
Set tabCurrent 
= ObjWordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,row,column) 

for i = 1 to column 

objWordDoc.Application.ActiveDocument.Tables(
1).Rows(1).Cells(i).Range.InsertAfter theArray(i,1
objWordDoc.Application.ActiveDocument.Tables(
1).Rows(1).Cells(i).Range.ParagraphFormat.alignment=1 
next 
For i 
=1 to column 
For j 
= 2 to row 
objWordDoc.Application.ActiveDocument.Tables(
1).Rows(j).Cells(i).Range.InsertAfter theArray(i,j) 
objWordDoc.Application.ActiveDocument.Tables(
1).Rows(j).Cells(i).Range.ParagraphFormat.alignment=1 
Next 
Next 

End Sub 
/SCRIPT>  

  三、直接在IE中打开,再存为EXCEL文件

  把读出的数据用<table>格式,在网页中显示出来,同时,加上下一句即可把EXCEL表在客客户端显示。

<%response.ContentType ="application/vnd.ms-excel"%> 

  注意:显示的页面中,只把<table>输出,最好不要输出其他表格以外的信息。

  四、导出以半角逗号隔开的csv

  用fso方法生成文本文件的方法,生成一个扩展名为csv文件。此文件,一行即为数据表的一行。生成数据表字段用半角逗号隔开。(有关fso生成文本文件的方法,在此就不做介绍了)

  CSV文件介绍 (逗号分隔文件)

  选择该项系统将创建一个可供下载的CSV 文件; CSV是最通用的一种文件格式,它可以非常容易地被导入各种PC表格及数据库中。

  请注意即使选择表格作为输出格式,仍然可以将结果下载CSV文件。在表格输出屏幕的底部,显示有 "CSV 文件"选项,点击它即可下载该文件。

  如果您把浏览器配置为将您的电子表格软件与文本(TXT)/逗号分隔文件(CSV) 相关联,当您下载该文件时,该文件将自动打开。下载下来后,如果本地已安装EXCEL,点击此文件,即可自动用EXCEL软件打开此文件。

posted on 2005-07-07 15:26  Eric Zhang  阅读(3794)  评论(0编辑  收藏  举报

导航