Vba 07
0 likes489 views
Документ охватывает использование Excel для программирования, включая формулы, работу с MS Word и базами данных, а также создание настроенных диаграмм. Он объясняет, как локализованные версии Excel могут влиять на функции и методы программирования, а также предоставляет примеры кода для использования объектных моделей. Документ также обсуждает различные способы работы с базами данных через ADO и QueryTables.
Vba 07
- 1. Модуль 7. Отдельные аспекты программировании в Excel
- 2. О чем мы узнаем Использование формул Работа с документами MS Word из Excel Обращение к базам данных Создание и настройка диаграмм
- 3. Английский или русский Excel? • Проблемы в локализованных версиях • В ячейках – локализованные функции • =сумм(A1:A10) • Программно – оригинальные • Range("B1").Formula = "=sum(A1:A10)"
- 4. Формулы в ячейках • объект Application.WorksheetFunction • более 250 функций рабочего листа • Dim num_F As Integer num_F = InputBox("Введите число") MsgBox ("Факториал числа " & num_F & " равен " & _ WorksheetFunction.Fact(num_F)) • объекты Range, как аргументы функций • все расчеты - в VBA, а на лист - лишь готовые значения
- 5. Работа с MS Word из MS Excel • подключение соотв. объектной модели через Tools | Reference • Возможность работать с объектами Word • Dim obj_Word As Word.Application Dim obj_WDoc As Word.Document … Set obj_Word = New Word.Application obj_Word.Visible = True Set obj_WDoc = obj_Word.Documents.Add 16_02.xlsm obj_WDoc.Activate … obj_Word.Selection.TypeText (str_Str) obj_Word.Selection.TypeParagraph
- 6. Работа с MS Excel из MS Word • Полностью аналогично VBA_16.1.pdf
- 7. Работа с БД • Нужно иметь БД • Database.accdb в корне диска D • различные инструменты • Метод OpenDatabase рабочего листа • Коллекция QueryTables и объект QueryTable (ADO)
- 8. Метод OpenDatabase • OpenDatabase(Filename, CommandText, Command Type, BackgroundQuery, ImportDataAs) • Filename - имя БД • CommandText - Текст запроса. • CommandType - тип запроса • xlCmdCube (куб), xlCmdList (список), xlCmdSql (SQL), xlCmdTable (таблица). • BackgroundQuery - фоновая обработка данных или обычная • ImportDataAs - способ импорта • xlPivotTableReport • xlQueryTable
- 9. Метод OpenDatabase Workbooks.OpenDatabase _ Filename:="D:Database.accdb", _ CommandText:="Покупки", _ CommandType:=xlCmdTable, _ BackgroundQuery:=True, _ ImportDataAs:=xlQueryTable Workbooks.OpenDatabase _ Filename:="C:Database.accdb", _ CommandText:="Покупки", _ CommandType:=xlCmdTable, _ BackgroundQuery:=True, _ ImportDataAs:=xlPivotTableReport
- 10. ADO • Коллекция QueryTables объектов QueryTable • Метод Add • WorkBook.QueryTables.Add(Connection, Destination) • Параметр Connection • объект ADODB.Recordset • Destination – объект Range, который указывает на диапазон,куда будет добавлена QueryTable • левая верхняя ячейка вставляемой таблицы таблицы
- 11. ADO • объектная модель ADO • Tools | References, Microsoft ActiveX Data Object x.x Library • Объект ADODB • Объект ADODB.Connection • свойствоConnectionString • метод Open • объект ADODB.RecordSet • метод Open
- 12. Пример Dim obj_Query As QueryTable Set obj_ADORec = New ADODB.Recordset Dim obj_ADOConn As ADODB.Connection obj_ADORec.Open _ Dim obj_ADORec As ADODB.Recordset Source:="SELECT * FROM Покупки", _ ActiveConnection:=obj_ADOConn Set obj_Query = _ Set obj_ADOConn = New ADODB.Connection ActiveSheet.QueryTables.Add _ obj_ADOConn.ConnectionString = _ (obj_ADORec, Range("A5")) "Provider=Microsoft.ACE.OLEDB.12.0;" & _ obj_Query.Refresh "Data Source=C:Database.accdb« obj_ADOConn.Open
- 13. Советы • Необходимо знание SQL • Есть специфика строк подключения и особенности работаы с каждой БД http://connectionstrings.com
- 14. Работа с диаграммами • Объект Chart • Для добавления диаграммы - метод AddChart коллекции Shapes • ActiveSheet.Shapes.AddChart • метод SetSourceData • свойство CharType • более 70 значений типа xlChartType
- 15. Пример 'Для хранения ссылки ActiveSheet.Shapes.AddChart.Select 'на диаграмму Set obj_Chart = ActiveChart Dim obj_Chart As Chart 'Настраиваем исходные данные 'Для хранения ссылки на 'для диаграммы 'диапазон входных значений obj_Chart.SetSourceData _ Dim obj_Range As Range Source:=obj_Range, _ Set obj_Range = Selection PlotBy:=xlRows 'Добавляем новую диаграмму и 'Устанавливаем тип для диаграммы 'тут же выделяем ее obj_Chart.ChartType = xlLine 16_06.xlsm
- 16. Практика: примеры кода Изучите содержимое файлов 16_nn.xlsm в папке …Students !
- 17. Подводим итоги • Формулы Excel можно использовать в VBA • VBA позволяет работать с Word из Excel и наоборот • Работать с БД можно либо через QueryTables, либо через ADO • Объект Chart позволяет программно создавать диаграммы и настраивать их параметры
- 18. Вопросы?
- 19. Контрольные вопросы • В чем состоит проблема локализованных версий Excel? • Что нужно сделать, чтобы в Excel использовать объектную модель Word? • Какими способами можно получить данные из БД? • Как добавить данные на лист в виде сводной таблицы? • Какой метод какого объекта вы будете использовать, чтобы добавить на лист диаграмму?