谁有在asp 中使用 excel 的例子. 现在给分上限是32，怎样能多给？ 我想给320！
想在 asp 中添加 excel appliction, 用于在 web 上使用 xls 文件。
本来用 cell 组件的，但他没开放 save as execl file 的接口。
大家有没有范例 和 excel 的打印,设定表线，单元格属性等的函数接口参考资料？
我有好多分， 谁帮我，我一定给你追加分，
问题点数：50、回复次数：1Top
1 楼blueice0120（蓝冰）回复于 2002-02-06 23:20:17 得分 50
Line 1: Dim xlWorkSheet
Line 2: Dim xlApplication
Line 3: Set xlApplication = Server.CreateObject("Excel.Application")
Line 4: xApplication.Visible = False
Line 5: xlApplication.Workbooks.Add
Line 6: Set xlWorksheet = xlApplication.Worksheets(1)
Line 7: xlWorksheet.Cells(1,1).Value = "Year"
Line 8: xlWorksheet.Cells(1,1).Interior.ColorIndex = 5
Line 9: xlWorksheet.Cells(1,2).Value = "Region"
Line 10: xlWorksheet.Cells(1,2).Interior.ColorIndex = 5
Line 11: xlWorksheet.Cells(1,3).Value = "Sales"
Line 12: xlWorksheet.Cells(1,3).Interior.ColorIndex = 5
Line 13: iRow = 2
Line 14: If Not oRS.EOF Then
Line 15: Do Until oRS.EOF
Line 16: For i = 0 To oRS.fields.Count-1
Line 17: xlWorksheet.Cells(iRow,i + 1).Value = oRS.fields(i)
Line 18: xlWorkSheet.Cells(iRow,i + 1).Interior.ColorIndex =4
Line 19: Next
Line 20: iRow = iRow + 1
Line 21: oRS.MoveNext
Line 22: Loop
Line 23: End If
Line 24: strFile = GenFileName()
Line 25: xlWorksheet.SaveAs Server.MapPath(".") & "" & strFile & ".xls"
Line 26: xlApplication.Quit '' Close the Workbook
Line 27: Set xlWorksheet = Nothing
Line 28: Set xlApplication = Nothing
Line 29: Response.Write("Click < A HRef=" & strFile & ".xls >Here< /A >
to Line 30: get XLS file")
第1行和第2行，确定所使用的 Excel对象的维数。
第3行，创建Excel对象。同样，为了工作正确，web服务器上也必须有Excel。
第4行，将Excel的可见性设置为false，这样它就没有界面了。
第5行和第6行，增加一个容纳工作表的工作簿，然后将当前工作表设置成第一个工作表(这是Excel 在默认状态下创建的)。 还可以用 Worksheet对象的Add 函数增加一个新的工作表， 这就允许你的 Excel 文件中有多个工作表。
第8-12行，创建工作表的标题。在这个例子中，我们把每个单元的值都设置成适当的标题，而且把内部 颜色设置成兰色。你还可以用Range对象同时修改多个单元。
第13-23行，提供从记录集装载所有数据的循环。因为第一行中包含标题，我就在电子数据表的 第二行开始数据。里面的 For循环把每一列装载到行中，并把内部颜色设置为绿色。外部循环则为 每一行在记录集中进行循环。
第24行， 通过调用GenFileName()函数，与CSV用同样的函数来创建唯一的文件名。
第25行，进行电子表格的实际保存。可以将表格存储为 Excel中指定的多种格式。
下面的3行进行对象的整理。作为一个好的ASP程序员，就一定要整理所有的对象。
最后，我把到 Excel文件的链接放在页面上以便下载。
Top
