ExcelWriter LE
De Wiki Locaweb
|
Com o componente ExcelWriter LE você pode gerar planilhas do Microsoft Excel no seu navegador dinamicamente. Segue abaixo um exemplo de como gerar uma planilha com fórmula e gráficos. Arquivo: excel.asp(exemplo) <% Set xlw = Server.CreateObject("Softartisans.ExcelWriter") 'Cria o objeto do worksheet Set ws = xlw.Worksheets(1) 'Mostra a versão do componente ws.Cells("D22").Value = "Versão do componente" ws.Cells("D23").Value = xlw.versionex 'Informe o conteúdo de cada célula ws.Cells("A1").Value = "Locaweb" ws.Cells("A2").Value = "Email Locaweb" ws.Cells("A3").Value = "LocaVoz" ws.Cells("D2").Value = "Total" 'Informe o valor de cada célula ws.Cells("B1").Value = "98" ws.Cells("B2").Value = "55" ws.Cells("B3").Value = "31" 'Adicionando a fórmula que irá somar o total de visitas ws.Cells("E2").Formula = "=B1+B2+B3" 'Cria o objeto do gráfico Set Chart =ws.charts.add(saxlsColumnChart,6,4,1,20,8) 'Características do gráfico, como tamanho, título e legenda. Chart.ShowLegend = True Chart.Title = "Visitas" Chart.CategoryAxis.Title = "Categoria" Chart.ValueAxis.Title = "Valores" Chart.SeriesCollection.Add "B1:B3" Chart.SeriesCollection(1).Name = "Locaweb" Chart.SeriesCollection(2).Name = "Email Locaweb" Chart.SeriesCollection(3).Name = "LocaVoz" xlw.Save Server.MapPath("chart.xls"), saOpenInPlace Response.Redirect ("chart.xls") Set Chart = Nothing Set ws = Nothing Set xlw = Nothing %> Obs: Deve-se conceder permissão de escrita para a pasta onde o arquivo será gravado. Atenção: Somente temos disponível o componente do ExcelWriter na versão LE. Veja também
Links |
|
