Средства разработки приложений


Можно ли из программы на Visual Basic создать рабочую книгу Excel?


Q: Можно ли из программы на Visual Basic создать рабочую книгу Excel?

A: Да, можно…..

Пример того, как из Visual Basic'a через OLE запустить 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

  ' Сохраняем книгу
  If vbNullString = Dir(sDirName, vbDirectory) Then Exit Function

  objWbNewBook.SaveAs (sDirName + "\" + sWbName + ".xls")
  CreateXlBook = True

  ' Освобождение памяти
  Set objWbNewBook = Nothing
  objXLApp.Quit
  Set objXLApp = Nothing
  CreateXlBook = True

End Function

Hint: Tested and approved with MS Visual Basic 4.0 Enterprise Edition

Coрyright(c) 1997 by Andrew Kirienko.
E-Mail:
FidoNet: 2:5020/239.21

А также огромное спасибо:

Michael Zemlaynukha, (2:5015/4.9@FidoNet, )
-  за полезные замечания и здоровую критику этого FAQ'а

 


Начало  Назад  Вперед



Книжный магазин