Управление Excel таблицами

[hamsid]

Народ, помогите мне нужно знать как:
1) Создавать и сохранять Excel таблицу;
2) Управлять содержимым отдельной ячейки;
Кстати, у меня не макрос, а полноценная программа...

 

[andrey24]

В первую очередь добавьте к VB-приложению ссылку к Microsoft Excel 11.0 Object Library (команда Project|References, у меня "Microsoft Excel 11.0", у вас может быть другая версия).
К примеру код функции CreateXlBook для создания экземпляра Excel:

' CreateXlBook
' Вызывает MS Excel, создает рабочую книгу с именем sWbName с одним
' единственным рабочим листом. Рабочая книга будет сохранена в каталоге
' sDirName. В случае успеха возвращает True, в противном случае - False.
'
Public Function CreateXlBook(sWbName As String, sDirName) As Boolean
' MS Excel hidden instance
Dim objXLApp As Object
Dim objWbNewBook As Object
CreateXlBook = False
Set objXLApp = CreateObject("Excel.Application")
If objXLApp Is Nothing Then Exit Function
' В новой рабочей книге создавать только один рабочий лист
objXLApp.SheetsInNewWorkbook = 1
Set objWbNewBook = objXLApp.Workbooks.Add
If objWbNewBook Is Nothing Then Exit Function
objXLApp.ActiveCell(1, 1) = "Столбец 1"
objXLApp.ActiveCell(1, 3) = "Столбец 3"

' Сохраняем книгу
objWbNewBook.SaveAs (sDirName + "\" + sWbName + ".xls")
' Освобождение памяти
Set objXLApp = Nothing
objWbNewBook.Close
CreateXlBook = True

End Function

Private Sub Command1_Click()
CreateXlBook "Моя книга", "Папка с Excel-ем"
End Sub

В заведомо созданной папке Папка с Excel-ем появится файл Моя книга.