Использование Excel в других приложениях MS Office - презентация, доклад, проект скачать

Нажмите для полного просмотра!

Использование Excel в других приложениях MS Office, слайд №1

Использование Excel в других приложениях MS Office, слайд №2

Использование Excel в других приложениях MS Office, слайд №3

Использование Excel в других приложениях MS Office, слайд №4

Использование Excel в других приложениях MS Office, слайд №5

Использование Excel в других приложениях MS Office, слайд №6

Использование Excel в других приложениях MS Office, слайд №7

Использование Excel в других приложениях MS Office, слайд №8

Использование Excel в других приложениях MS Office, слайд №9

Использование Excel в других приложениях MS Office, слайд №10

Содержание ▲

Вы можете ознакомиться и скачать презентацию на тему Использование Excel в других приложениях MS Office. Доклад-сообщение содержит 10 слайдов. Презентации для любого класса можно скачать бесплатно. Если материал и наш сайт презентаций Mypresentation Вам понравились – поделитесь им с друзьями с помощью социальных кнопок и добавьте в закладки в своем браузере.

Слайды и текст этой презентации

Слайд 1

Описание слайда:

РХТУ им. Д.И. Менделеева Каф. ИКТ Курс создал: ст. преп. A.М. Васецкий

Слайд 2

Описание слайда:

Использование Excel в других приложениях MS Office ‘Включение Excel из другого приложения Sub OpenExcelObj() Dim appExcel As Object 'Приложение Excel Dim wbExcel As Object 'Рабочая книга Excel Dim wsExcel As Object 'Рабочий лист Dim Res As Double Set appExcel = CreateObject("Excel.Application") Set wbExcel = appExcel.Workbooks.Add Set wsExcel = wbExcel.activesheet

Слайд 3

Описание слайда:

Работаем с Excel With appExcel ‘Так включается надстройка .AddIns("Поиск решения ").Installed = True .Visible = True End With With wsExcel .Range("a1").Formula = "=b1*b1-4" .Range("B1") = 10 ‘Подбор параметра .Range("a1").GoalSeek Goal:=0, _ ChangingCell:=.Range("b1") Res = .Range("b1").Value End With

Слайд 4

Описание слайда:

Завершаем работу с объектом appExcel.DisplayAlerts = False wbExcel.Close appExcel.DisplayAlerts = True ‘Очищаем память, хотя и не обязательно Set wbExcel = Nothing Set appExcel = Nothing Msgbox Res End sub

Слайд 5

Описание слайда:

Внедрение объекта Excel на слайд

Слайд 6

Описание слайда:

Работа с Internet Explorer

Слайд 7

Описание слайда:

Продолжение Start = Timer Do While IE.Busy 'Ожидаем загрузки Do While Timer < Start + Fin DoEvents Loop Loop Exit Sub 100: If Err.Number = 462 Then Set IE = CreateObject("InternetExplorer.Application") 'просто пользователь закрыл IE. ‘Открываем заново Resume End Sub Прим. IE в коде не закрывается! (IE.Quit)

Слайд 8

Описание слайда:

Получение данных из объекта IE.Document IE.LocationURL – адрес страницы .Clear: Удаляет текущий документ из окна или фрейма .body.innerhtml – содержит строковое значение HTML- кода страницы внутри тегов <body> .charset – кодировка страницы .Readystate – состояние загрузки. complete – закончена .images – коллекция изображений .links – коллекция ссылок в документе .links(1).href – URL 1-й ссылки

Слайд 9

Описание слайда:

Проверка типов Controls Public Function test(UForm As Object) As Boolean Dim cnt As Control test = True For Each cnt In UForm.Controls If TypeName(cnt) = "TextBox" Then If cnt.Value = "" Then test = False End If Next cnt End Function