Imports Microsoft.Office.Interop.Excel

Module Module1

Sub Main()

Dim app As New Application Dim wb = app.Workbooks.Add

Dim ws As Worksheet = wb.Worksheets(1) Dim r = ws.Range("A1")

r.Value = "Hello!" app.Visible = True

End Sub

End Module

Module Module1

Sub Main()

Dim ea As Object

ea = CreateObject("Excel.Application") ea.Workbooks.Add() ea.Range("A1").Value = "Месяц" ea.Range("A2").Value = "Март" ea.Range("A3").Value = "Апрель" ea.Range("A4").Value = "Май" ea.Range("A5").Value = "Июнь" ea.Range("A6").Value = "Июль" ea.Range("B1").Value = "Продажи" ea.Range("B2").Value = 138 ea.Range("B3").Value = 85 ea.Range("B4").Value = 107 ea.Range("B5").Value = 56 ea.Range("B6").Value = 34 ea.Charts.Add()

With ea.ActiveChart

.ChartType = 51

.setSourceData(ea.Sheets("Лист1").Range("A1:B6"), PlotBy:=2)

.HasLegend = False

.HasTitle = True

.ChartTitle.Characters.text = "Продажи за пять месяцев"

.Axes(1, 1).HasTitle = True

.Axes(1, 1).AxisTitle.Characters.Text = "Месяцы"

.Axes(2, 1).HasTitle = True

.Axes(2, 1).AxisTitle.Characters.Text = "Уровни продаж"

.Export("D:\excel.jpg") End With

ea.Visible = True End Sub

End Module

Файл: D:\excel.jpg

Module Module1

Sub Main()

Dim ea As Object

ea = CreateObject("Excel.Application") ea.Workbooks.Add() ea.Range("A1").Value = "Месяц" ea.Range("A2").Value = "Март" ea.Range("A3").Value = "Апрель" ea.Range("A4").Value = "Май" ea.Range("A5").Value = "Июнь" ea.Range("A6").Value = "Июль" ea.Range("B1").Value = "Продажи" ea.Range("B2").Value = 138 ea.Range("B3").Value = 85 ea.Range("B4").Value = 107 ea.Range("B5").Value = 56 ea.Range("B6").Value = 34 ea.Charts.Add()