ASP通过OWC组件把网页数据导出EXECL文件,实现代码如下:

<%
'先要用regsvr32.exe msowc.dll注册owc组件(msowc.dll安装office2000后就有了,在office的安装目录下搜索*owc*.chm可找到这关于owc的帮助文档)
Dim objOWC
Dim ExeclFileName
ExeclFileName = server.mappath("ExeclText.xls")
Set objOWC = Server.CreateObject("OWC.Spreadsheet")

With objOWC
       .cells(1,1) = "以下数据来自企业财富［不锈钢报价交易平台］"
       .cells(1,5) = "订货号:No.2006072815350096014"
       .range("a1:d1").merge()
       .range("e1:g1").merge()
       .range("e1:g1").HAlignment = 3
       .range("a1:g1").rowHeight=14.25*1.33
       .range("a1:g1").Font.Name = "宋体"
       .range("a1:g1").Font.Size = 9
       .range("a1:g1").VAlignment = 1
       .range("a1:g1").Borders(1).weight =1 '仅显示下边框 1,2,3,4分别对应右，下，左，上四个边框(顺时针)
       .range("a1:g1").Borders.Color = "Black"

       .cells(2,1) = "上海精铸不锈钢制品有限公司"
       .range("a2:g2").merge()
       .range("a2:g2").Font.Name = "黑体"
       .range("a2:g2").RowHeight = 50
       .range("a2:g2").Font.Size = 14
       .range("a2:g2").HAlignment = 2
       .range("a2:g2").VAlignment = 1
       .range("a2:g2").Font.Bold = true

       .cells(3,1) = "Shang Hai Jing Zhu Bu Xiu Gang Zhi Pin You Xian Gong Si"
       .cells(4,1) = "电话:021-63609459 传真:021-63609453 地址:上海厦门路180号-3"
       .range("a3:g3").merge()
       .range("a4:g4").merge()
       .range("a3:g3").Font.Name = "Arial"
       .range("a4:g4").Font.Name = "宋体"
       .range("a3:g4").Font.Size = 10
       .range("a3:g4").RowHeight = 25
       .range("a3:g4").HAlignment = 2
       .range("a3:g4").VAlignment = 1

       .cells(5,1) = "订 货 单"
       .range("a5:g5").merge()
       .range("a5:g5").Font.Name = "黑体"
       .range("a5:g5").Font.Size = 16
       .range("a5:g5").HAlignment = 2
       .range("a5:g5").VAlignment = 1
       .range("a5:g5").RowHeight = 30*1.33
       .range("a5:g5").Font.Bold = true

       .cells(6,1) = "序号"
       .cells(6,2) = "产品名称"
       .cells(6,3) = "产品规格"
       .cells(6,4) = "单位"
       .cells(6,5) = "数量"
       .cells(6,6) = "单价(含税)"
       .cells(6,7) = "合计"       
       .range("a6:g6").Font.Name = "宋体"
       .range("a6:g6").Font.Size = 10
       .range("a6:g6").Font.Bold = True
       .range("a6:g6").VAlignment = 1
       .range("a6:g6").HAlignment = 2
       .range("a6:g6").RowHeight = 18 *1.33
       .range("e6:g6").HAlignment = 3

       For i = 1 to 5
              .cells(6+i,1) = i
              .cells(6+i,2) = "301A不锈钢无缝钢管"
              .cells(6+i,3) = "22*2.5"
              .cells(6+i,4) = "K