Информационные технологииStfw.Ru 🔍

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

RU.EXCEL
🕛 04.07.2006, 15:28
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

Visual Basic   Теги:

Читать IT-новости в Telegram
Информационные технологии
Мы в соцсетях ✉