《请问如何用javascript把数据转excel的饼图输出html38611》由会员分享,可在线阅读,更多相关《请问如何用javascript把数据转excel的饼图输出html38611(6页珍藏版)》请在金锄头文库上搜索。
1、请问如何用请问如何用 javascriptjavascript 把数据转把数据转 EXCELEXCEL 的饼图输出的饼图输出 html38611html38611请问如何用 javascript 把数据转 EXCEL 的饼图输出 html.txt11 生命是盛开的花朵,它绽放得美丽,舒展,绚丽多资;生命是精美的小诗,清新流畅,意蕴悠长;生命是优美的乐曲,音律和谐,宛转悠扬;生命是流淌的江河,奔流不息,滚滚向前请问如何用javascript 把数据转 EXCEL 的饼图输出用 javascript 把数据导出到 EXCEL 并生产统计图 柱状图Press the button to start
2、Excel and display quarterly data. Function CreateNamesArray() Create an array to set multiple values at once. Dim saNames(5, 2) saNames(0, 0) = “John“ saNames(0, 1) = “Smith“ saNames(1, 0) = “Tom“ saNames(1, 1) = “Brown“ saNames(2, 0) = “Sue“ saNames(2, 1) = “Thomas“ saNames(3, 0) = “Jane“ saNames(3
3、, 1) = “Jones“ saNames(4, 0) = “Adam“ saNames(4, 1) = “Johnson“ CreateNamesArray = saNames End Function function AutomateExcel() / Start Excel and get Application object. var oXL = new ActiveXObject(“Excel.Application“); oXL.Visible = true; / Get a new workbook. var oWB = oXL.Workbooks.Add(); var oS
4、heet = oWB.ActiveSheet; / Add table headers going cell by cell. oSheet.Cells(1, 1).Value = “First Name“; oSheet.Cells(1, 2).Value = “Last Name“; oSheet.Cells(1, 3).Value = “Full Name“; oSheet.Cells(1, 4).Value = “Salary“; / Format A1:D1 as bold, vertical alignment = center. oSheet.Range(“A1“, “D1“).
5、Font.Bold = true; oSheet.Range(“A1“, “D1“).VerticalAlignment = -4108; /xlVAlignCenter / Create an array to set multiple values at once. / Fill A2:B6 with an array of values (from VBScript). oSheet.Range(“A2“, “B6“).Value = CreateNamesArray(); / Fill C2:C6 with a relative formula (=A2 oRng.Formula =
6、“=A2 / Fill D2:D6 with a formula(=RAND()*100000) and apply format. oRng = oSheet.Range(“D2“, “D6“); oRng.Formula = “=RAND()*100000“; oRng.NumberFormat = “$0.00“; / AutoFit columns A:D. oRng = oSheet.Range(“A1“, “D1“); oRng.EntireColumn.AutoFit(); / Manipulate a variable number of columns for Quarter
7、ly Sales Data. DispalyQuarterlySales(oSheet); / Make sure Excel is visible and give the user control / of Excels lifetime. oXL.Visible = true; oXL.UserControl = true; function DispalyQuarterlySales(oWS) var iNumQtrs, sMsg, iRet; / Number of quarters to display data for. iNumQtrs = 4; / Starting at E
8、1, fill headers for the number of columns selected. var oResizeRange = oWS.Range(“E1“, “E1“).Resize(1,iNumQtrs); oResizeRange.Formula = “=“Q“ / Change the Orientation and WrapText properties for the headers. oResizeRange.Orientation = 38; oResizeRange.WrapText = true; / Fill the interior color of th
9、e headers. oResizeRange.Interior.ColorIndex = 36; / Fill the columns with a formula and apply a number format. oResizeRange = oWS.Range(“E2“, “E6“).Resize(5,iNumQtrs); oResizeRange.Formula = “=RAND()*100“; oResizeRange.NumberFormat = “$0.00“; / Apply borders to the Sales data and headers. oResizeRan
10、ge = oWS.Range(“E1“, “E6“).Resize(6,iNumQtrs); oResizeRange.Borders.Weight = 2; / xlThin / Add a Totals formula for the sales data and apply a border. oResizeRange = oWS.Range(“E8“, “E8“).Resize(1,iNumQtrs); oResizeRange.Formula = “=SUM(E2:E6)“; / 9 = xlEdgeBottom oResizeRange.Borders(9).LineStyle =
11、 -4119; /xlDouble oResizeRange.Borders(9).Weight = 4; /xlThick / Add a Chart for the selected data. oResizeRange = oWS.Range(“E2:E6“).Resize(5,iNumQtrs); var oChart = oWS.Parent.Charts.Add(); oChart.ChartWizard(oResizeRange, -4100, null, 2); / -4100 = xl3dColumn oChart.SeriesCollection(1).XValues = oWS.Range(“A2“, “A6“); for (iRet = 1; iRet