Private Sub VigXL_Click()
Dim ExcelSheet As Object
' такое объявление переменных wb и ws потребует наличия ссылки на библиотеку excel
' если описать просто как as object, то ссылки не потребуется
Dim wb As Workbook
Dim ws As Worksheet
' получаем ссылку на объект Excel
Set ExcelSheet = CreateObject("Excel.application")
' устанавливаем свойство SheetsInNewWorkbook равным 1 (это означает что во вновь создаваемой книге будет 1 лист , в принципе это можно не делать)
ExcelSheet.SheetsInNewWorkbook = 1
' в коллекцию Workbooks добавляем новый объект (Workbook) одновременно сохраняя ссылку на него в переменной wb
Set wb = ExcelSheet.Workbooks.Add
' получаем ссылку на 1-й лист (Worksheet ) в созданной книге одновременно сохраняя ссылку на него в переменной ws
Set ws = wb.Worksheets(1)
'для ячейки с адресом 1,1 вызываем метод CopyFromRecordset передавая в качестве параметра наш рекордсет
ws.Cells(1, 1).CopyFromRecordset RST
' закрывам Workbook вызывая метод Close
wb.Close
Закрываем excel с помощью метода Quit
ExcelSheet.Quit
End Sub
|