Visual studio feeds

All Visual Studio blogs in one place

Subscribe

Enter your email address:

Delivered by FeedBurner

Increase your website traffic with Attracta.com

Google+

Contact

Email:
Subject:
Message:
Anti-spam: How many eyes has a typical person?

Follow us on FB

Search

Como rellenar una hoja Excel, directamente de los 'datapoints' de un Chart

AddThis Social Bookmark Button
Esta seria la idea: Imports Microsoft.Office.Interop         ' Definir Aplicacion, Hoja y Rango         Dim oXL As Excel.Application         Dim oWB As Excel.Workbook         Dim oRg As Excel.Range         ' Iniciar excel y obtener objeto "aplicacion"         oXL = New Excel.Application         ' Ajustar propiedades a tu gusto         oXL.Visible = True         oXL.DisplayAlerts = False         ' Obtener una nueva hoja         oWB = oXL.Workbooks.Add         ' Trabajar con la hoja 1         Dim ws As Excel.Worksheet = DirectCast(oWB.Worksheets(1), Excel.Worksheet)         ws.Cells(1, 1) = "Titulo 1"         Dim Col As Integer = 2         Dim Row As Integer         ' Imaginando un LineChar con fecha y valor... distribuir series en columnas         For Each s As Charting.Series In LineChar2D1.chart1.Series             ws.Cells(1, Col) = s.Name             Row = 2             For Each p As Charting.DataPoint In LineChar2D1.chart1.Series(s.Name).Points                 'Fecha en Columna 1, valores en columnas contiguas                 ws.Cells(Row, 1) = Date.FromOADate(p.XValue)                 ws.Cells(Row, Col) = p.YValues(0).ToString("N2")                 Row += 1             Next             Col += 1         Next         ' Ajustar aspecto final         oRg = CType(ws.Columns("A", Type.Missing), Excel.Range)         oRg.AutoFit() No olvideis que en chart tambien disponemos de la utilidad 'Points.DataBindXY' para procesarlos en bloque ;-)
Espero os sea util,
PepLluis, PD. No olvideis importar el espacio de nombres de 'Office.Interop'

Home