关于ASP输出Excel时画框线的方法
如何给单元格画上框线，谢谢 问题点数：20、回复次数：3Top
1 楼terrylujie（）回复于 2006-03-04 16:17:39 得分 0
upTop
2 楼love007（风中的风）回复于 2006-03-22 11:19:54 得分 0
<%
'建立Excel.Application对象
dim objExcel,strRange
dim objExcelSheets,objExcelBook,objExcelSheet
'判断是否存在
if Isobject(objExcel) then
objExcel.Quit
set objExcel=nothing
end if
'创建EXCEL对象
set objExcel=CreateObject("Excel.Application")
'打开Excel模板
objExcel.Workbooks.Open(server.mappath("Excel\Book1.xls")) '打开Excel
objExcel.DisplayAlerts = true
objExcel.Application.Visible = true
set objExcelBook = objExcel.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
On Error Resume Next
'---------得到excel有多少行和多少列数据
dim rowCount,CellCount,strList
'-----得到当前EXCEL已经有的行数
rowcount = objExcelSheet.UsedRange.Rows.Count
'-----得到当前EXCEL已经有的列数
cellCount= objExcelSheet.UsedRange.Columns.Count
for i=1 to rowcount
for j=1 to cellCount
'设置边框
objExcelSheet.get_Range(objExcelSheet.Cells[i,j], objExcelSheet.Cells[i,j]).Borders.Weight = Excel.XlBorderWeight.xlThin;
objExcelSheet.get_Range(objExcelSheet.Cells[RowIndex,ColumnIndex], objExcelSheet.Cells[RowIndex,ColumnIndex]).Borders.Color = System.Drawing.Color.Gray.ToArgb();
next
next
response.write strList
On Error Resume Next
'释放EXCLE对象内存，这点非常重要，否则的话会产生进程
objExcel.Quit
set objExcel=Nothing
set objExcelBook=nothing
set objExcelSheet=nothing
%>Top
3 楼love007（风中的风）回复于 2006-03-22 11:20:43 得分 0
错了
<%
'建立Excel.Application对象
dim objExcel,strRange
dim objExcelSheets,objExcelBook,objExcelSheet
'判断是否存在
if Isobject(objExcel) then
objExcel.Quit
set objExcel=nothing
end if
'创建EXCEL对象
set objExcel=CreateObject("Excel.Application")
'打开Excel模板
objExcel.Workbooks.Open(server.mappath("Excel\Book1.xls")) '打开Excel
objExcel.DisplayAlerts = true
objExcel.Application.Visible = true
set objExcelBook = objExcel.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
On Error Resume Next
'---------得到excel有多少行和多少列数据
dim rowCount,CellCount,strList
'-----得到当前EXCEL已经有的行数
rowcount = objExcelSheet.UsedRange.Rows.Count
'-----得到当前EXCEL已经有的列数
cellCount= objExcelSheet.UsedRange.Columns.Count
for i=1 to rowcount
for j=1 to cellCount
'设置边框
objExcelSheet.get_Range(objExcelSheet.Cells[i,j], objExcelSheet.Cells[i,j]).Borders.Weight = Excel.XlBorderWeight.xlThin;
'设置边框颜色
objExcelSheet.get_Range(objExcelSheet.Cells[i,j], objExcelSheet.Cells[i,j]).Borders.Color = System.Drawing.Color.Gray.ToArgb();
next
next
response.write strList
On Error Resume Next
'释放EXCLE对象内存，这点非常重要，否则的话会产生进程
objExcel.Quit
set objExcel=Nothing
set objExcelBook=nothing
set objExcelSheet=nothing
%>
Top
