我现在的思路是这样的:
先建立excel对象
Set xlsApp = server.CreateObject("Excel.Application")
Set xlsWorkBook = xlsApp.Workbooks.Add
Set xlsSheet = xlsWorkBook.Sheets(1)
然后可以进行一系列的操作,比如:
for k=1 to 10
xlsSheet.Cells(2+k, 10).Value = k
next
xlsSheet.Columns(1).ColumnWidth = 2
xlsSheet.Columns(2).ColumnWidth = 3
还有就是创建图表:
xlsSheet.ChartObjects.Add xlsSheet.Columns(2).Left, xlsSheet.Rows(8).Top, 603, 332
Set xlsChart = xlsSheet.ChartObjects(1).Chart
然后对图表对象进行操作,省略大部分程序
xlsChart.ChartType = 51 'xlColumnClustered
……
最后用文件对象删除目标文件,并保存当前文件
Set fsExcel=server.CreateObject("Scripting.FileSystemObject")
filename=server.MapPath(".") & "\MyExcelFile.xls"
if fsExcel.FileExists(filename) then
fsExcel.DeleteFile filename, true
end if
xlsSheet.SaveAs filename
xlsApp.quit
Response.Write "<script language=javascript>window.location.replace('MyExcelFile.xls')</script>"