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

Можно ли из программы на 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 

1.

Аноним

22 ноября 2004, 13:03:53

Помогите с экспортом mdb в Excel из VB
как экспортировать из VB 6 mdb в excel аналогично как это делается в Access (DoCmd TransferSpreadsheet)?