Excel

[Гость]

Нашел на сайте статью, как из БД отправить в Эксель, но это немного не то, что надо.
Подскажите, как конкретно в какую-то ячейку файла Эксель загрузить конкретное значение.
Спачибо заранее.

[Denis_Grankin]

sub Excel_run
Set MsExcel = GetObject("Excel.Application")
On Error GoTo Error1
If MsExcel Is Nothing Then
Set MsExcel = CreateObject("Excel.Application")
If MsExcel Is Nothing Then
MsgBox "Microsoft Excel не найден.", vbCritical
Exit Sub
End If
End If
MsExcel.Workbooks.Add "c:\xls\template.xls"
MsExcel.ActiveSheet.Range("A1") = "Значение"
Set MsExcel = Nothing
Exit Sub
Error1:
MsgBox err.Description, vbCritical
MsExcel.Quit
End If
Set MsExcel = Nothing
end sub

[Алексей К.]

Можно еще записывать в ячейки и так
MsExcel.ActiveSheet.cells(x,y) = "Значение"
x - № строки y - № столбца

[Гость]

спасибо