VBA ссылка на Excel

[kost_alex 0]

Здравствуйте.

Я написал программу на VBA для SolidWorks.

Теперь мне надо кинуть координаты точек (массив) в Excel.

Тот скудный пример, который я нашел в Хелпе не работает.

Подскажите, как мне активизировать Excel и записать значения в ее ячейки.

Заранее спасибо.

[ssv22 16]

Вот посмотри, только это на VB написано:

Public xl As Excel.Application ' Excel

Public wb As Excel.Workbook

Public wbs As Excel.Workbooks

Public ws As Excel.Worksheet

Public Sub ExpExcel()

'======================================================= иициализация Excel

If xl Is Nothing Then

Set xl = CreateObject("Excel.Application")

Else

Set xl = GetObject(, "Excel.Application")

End If

xl.Visible = True

' новый файл Excel`a на базе своего шаблона

fileTMPL = "F:\Program Files\SolidWorks\data\templates\SpA4_1.xlt"

If Dir(fileTMPL) <> "" Then

Set wb = xl.Workbooks.Add(fileTMPL)

Else

'Set wb = xl.Workbooks.Add

MsgBox "Файл шаблона не найден!", , "Error587!"

Set xl = Nothing

Exit Sub

End If

On Error Resume Next

Set ws = wb.Worksheets("Sheet1")

Set ws = wb.Worksheets("Лист1")

'======================== END of иициализация Excel

'======================= пишем в Excel:

ws.Range("B1").Value = "Comp Name from FM"

ws.Range("C1").Value = "Configuration"

ws.Range("D1").Value = "File of compоnent"

ws.Range("E1").Value = "Quantity"

ws.Range("F1").Value = "Pid"

'======================= форматирование ...

Worksheets("Лист1").Columns("A").ColumnWidth = 5 ' № п/п

Worksheets("Лист1").Columns("B").ColumnWidth = 33 ' name

'.... more...

end sub

[kost_alex 0]

Спасибо.

Пример помог найти, где я ошибся.

В Солиде нельзя описать переменные типа Excel.*

А все остальное в принципе работает в этой проге.