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'
Espero os sea util,
PepLluis, PD. No olvideis importar el espacio de nombres de 'Office.Interop'
Search
Subscribe
