Помогите кто чем сможет!!! Очень нужна помощь!!!!
Построение графика функции, используя Visual Basic и Excel. Курсовая работа.
CODE |
Dim oExcel As Object Dim oBook As Object Dim oSheet As Object 'Открыть новую книгу Excel Set oExcel = CreateObject("Excel.Application") Set oBook = oExcel.Workbooks.Add 'Добавить данные в ячейки первого листа новой книги Set oSheet = oBook.Worksheets(1) oSheet.Range("A1").Value = "Last Name" oSheet.Range("B1").Value = "First Name" oSheet.Range("A1:B1").Font.Bold = True oSheet.Range("A2").Value = "Doe" oSheet.Range("B2").Value = "John" 'Сохранить книгу и закрыть Excel oBook.SaveAs "C:\Book1.xls" oExcel.Quit |