|
<%@ Language=VBScript %>
<%
response.write("Tutorial 26<br>")
response.write("----------<br>")
Set workbook = Server.CreateObject("EasyXLS.ExcelDocument")
workbook.easy_addWorksheet_2("First tab")
workbook.easy_addWorksheet_2("Second tab")
workbook.easy_addChart_2("Pivot chart")
Set xlsFirstTable = workbook.easy_getSheetAt(0).easy_getExcelTable()
xlsFirstTable.easy_getCell(0,0).setValue("Sale agent")
xlsFirstTable.easy_getCell(0,0).setDataType(DATATYPE_STRING)
xlsFirstTable.easy_getCell(0,1).setValue("Sale country")
xlsFirstTable.easy_getCell(0,1).setDataType(DATATYPE_STRING)
xlsFirstTable.easy_getCell(0,2).setValue("Month")
xlsFirstTable.easy_getCell(0,2).setDataType(DATATYPE_STRING)
xlsFirstTable.easy_getCell(0,3).setValue("Year")
xlsFirstTable.easy_getCell(0,3).setDataType(DATATYPE_STRING)
xlsFirstTable.easy_getCell(0,4).setValue("Sale amount")
xlsFirstTable.easy_getCell(0,4).setDataType(DATATYPE_STRING)
xlsFirstTable.easy_getRowAt(0).setBold(true)
xlsFirstTable.easy_getCell(1,0).setValue("John Down")
xlsFirstTable.easy_getCell(1,1).setValue("USA")
xlsFirstTable.easy_getCell(1,2).setValue("June")
xlsFirstTable.easy_getCell(1,3).setValue("2010")
xlsFirstTable.easy_getCell(1,4).setValue("550")
xlsFirstTable.easy_getCell(2,0).setValue("Scott Valey")
xlsFirstTable.easy_getCell(2,1).setValue("United Kingdom")
xlsFirstTable.easy_getCell(2,2).setValue("June")
xlsFirstTable.easy_getCell(2,3).setValue("2010")
xlsFirstTable.easy_getCell(2,4).setValue("2300")
xlsFirstTable.easy_getCell(3,0).setValue("John Down")
xlsFirstTable.easy_getCell(3,1).setValue("USA")
xlsFirstTable.easy_getCell(3,2).setValue("July")
xlsFirstTable.easy_getCell(3,3).setValue("2010")
xlsFirstTable.easy_getCell(3,4).setValue("3100")
xlsFirstTable.easy_getCell(4,0).setValue("John Down")
xlsFirstTable.easy_getCell(4,1).setValue("USA")
xlsFirstTable.easy_getCell(4,2).setValue("June")
xlsFirstTable.easy_getCell(4,3).setValue("2011")
xlsFirstTable.easy_getCell(4,4).setValue("1050")
xlsFirstTable.easy_getCell(5,0).setValue("John Down")
xlsFirstTable.easy_getCell(5,1).setValue("USA")
xlsFirstTable.easy_getCell(5,2).setValue("July")
xlsFirstTable.easy_getCell(5,3).setValue("2011")
xlsFirstTable.easy_getCell(5,4).setValue("2400")
xlsFirstTable.easy_getCell(6,0).setValue("Steve Marlowe")
xlsFirstTable.easy_getCell(6,1).setValue("France")
xlsFirstTable.easy_getCell(6,2).setValue("June")
xlsFirstTable.easy_getCell(6,3).setValue("2011")
xlsFirstTable.easy_getCell(6,4).setValue("1200")
xlsFirstTable.easy_getCell(7,0).setValue("Scott Valey")
xlsFirstTable.easy_getCell(7,1).setValue("United Kingdom")
xlsFirstTable.easy_getCell(7,2).setValue("June")
xlsFirstTable.easy_getCell(7,3).setValue("2011")
xlsFirstTable.easy_getCell(7,4).setValue("700")
xlsFirstTable.easy_getCell(8,0).setValue("Scott Valey")
xlsFirstTable.easy_getCell(8,1).setValue("United Kingdom")
xlsFirstTable.easy_getCell(8,2).setValue("July")
xlsFirstTable.easy_getCell(8,3).setValue("2011")
xlsFirstTable.easy_getCell(8,4).setValue("360")
set xlsPivotTable = Server.CreateObject("EasyXLS.PivotTables.ExcelPivotTable")
xlsPivotTable.setName("Sales")
xlsPivotTable.setSourceRange"First tab!$A$1:$E$9", workbook
xlsPivotTable.setLocation_2("A3:G15")
xlsPivotTable.addFieldToRowLabels("Sale agent")
xlsPivotTable.addFieldToColumnLabels("Year")
xlsPivotTable.addFieldToValues "Sale amount", "Sale amount per year", PIVOTTABLE_SUBTOTAL_SUM
xlsPivotTable.addFieldToReportFilter("Sale country")
xlsPivotTable.setOutlineForm()
xlsPivotTable.setStyle(PIVOTTABLE_PIVOTTABLE_PIVOT_STYLE_MEDIUM_9)
Set xlsWorksheet = workbook.easy_getSheet("Second tab")
xlsWorksheet.easy_addPivotTable(xlsPivotTable)
set xlsPivotChart1 = Server.CreateObject("EasyXLS.PivotTables.ExcelPivotChart")
xlsPivotChart1.setSize 600, 300
xlsPivotChart1.setLeftUpperCorner_2("A10")
xlsPivotChart1.easy_setChartType(CHART_CHART_TYPE_PYRAMID_BAR)
xlsPivotChart1.getChartTitle().setText("Sales")
xlsPivotChart1.setPivotTable(xlsPivotTable)
xlsWorksheet.easy_addPivotChart(xlsPivotChart1)
set xlsPivotChart2 = xlsPivotChart1.Clone()
xlsPivotChart2.setSize 970, 630
Set xlsChartSheet = workbook.easy_getSheet("Pivot chart")
xlsChartSheet.easy_setExcelChart(xlsPivotChart2)
response.write("Writing file: C:\Samples\Tutorial26 - pivot chart in Excel.xlsx<br>")
workbook.easy_WriteXLSXFile("C:\Samples\Tutorial26 - pivot chart in Excel.xlsx")
if workbook.easy_getError() = "" then
response.write("File successfully created.")
else
response.write("Error encountered: " + workbook.easy_getError())
end if
workbook.Dispose
%>
|