带有经典ASP图表的Excel组件

Question

我使用一家名为ActiveXLS的公司使用来自Classic ASP的图表保存本机XLS文件，但它们似乎已关闭。

有人可以推荐我可以使用的替代经典asp excel组件吗？

CSV或HTML（包含XLS内容类型）导出不足以满足我的需要。

Answer 1

您可以使用Classic ASP访问MS Excel DOM。对于基于Web的环境，这种方法存在一定的局限性，但我已将其用于低容量。

以下是一些示例代码：

Set oApp = Server.CreateObject("Excel.Application")

Set oBook = oApp.Workbooks.Add
Set oSheet = oBook.ActiveSheet
Set oRange = oApp.ActiveCell

' Create the header fields
oRange.Cells(1,1) = "Column 1"
oRange.Cells(1,2) = "Column 2"

oSheet.Range(oSheet.Cells(1,1), oSheet.Cells(i,j)).Select
oApp.Selection.Columns.AutoFit
oSheet.Cells(1,1).Select

oBook.SaveAs "filename.xls"
oBook.Close
oApp.Quit

Set oApp = Nothing

这确实需要在构建这些文件的服务器上安装Excel。