请问如何用请问如何用 javascriptjavascript 把数据转把数据转 EXCELEXCEL 的饼图输出的饼图输出 html38611html38611请问如何用 javascript 把数据转 EXCEL 的饼图输出 html.txt11 生命是盛开的花朵，它绽放得美丽，舒展，绚丽多资；生命是精美的小诗，清新流畅，意蕴悠长；生命是优美的乐曲，音律和谐，宛转悠扬；生命是流淌的江河，奔流不息，滚滚向前请问如何用javascript 把数据转 EXCEL 的饼图输出用 javascript 把数据导出到 EXCEL 并生产统计图 柱状图Press the button to start 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, 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 oSheet = 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“).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 = “=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 Quarterly 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 E1, 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 the 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. oResizeRange = 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 = -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