用ASP操作Excel时如何让其中一个单元格的数据居中显示？
如题 问题点数：20、回复次数：2Top
1 楼jspadmin（阿笨狗http://www.pifoo.com域名空间专卖cn20、com50元）回复于 2006-03-11 08:34:25 得分 10
cell.align=centerTop
2 楼love007（风中的风）回复于 2006-03-22 11:17:57 得分 10
<%
'建立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]).HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter;
next
next
response.write strList
On Error Resume Next
'释放EXCLE对象内存，这点非常重要，否则的话会产生进程
objExcel.Quit
set objExcel=Nothing
set objExcelBook=nothing
set objExcelSheet=nothing
%>
Top
