Заключение

В последнее время на производстве широко используются программы для упрощения обработки данных, в частности программы для расчета данных жилищно – коммунальных услуг , позволяющие значительно ускорить расчеты. Поэтому исследование функций и разработка проектов автоматизированных приложений актуально и востребовано.

В данной курсовой работе мы разработали автоматизированное приложение для подготовки документа «Квитанция ЖКХ» на бланке с помощью VBA.

Приобрели навыки осуществления интеграций популярных приложений, входящих в пакет MS Office операционной системы Windows XP,7,8.1 MS Excel и MS Word.

При написании курсового проекта нами была изучена специальная литература, включающая в себя статьи и учебники по информационным технологиям, описаны теоретические аспекты и раскрыты ключевые понятия исследования, рассмотрено практическое применение программ для создания и заполнения документов связанных с автоматизацией расчетов данных в профессиональной деятельности организации.

Список использованной литературы

1. Информационные технологии. Учебное пособие. / Под ред. А. К. Волкова. –М.: Издательство "ИНФРА-М", 2001 г.

2. Петрунин, Ю. Ю. Информационные технологии анализа данных. – М.: КДУ, 2008.

3. Информационные технологии управления: Учебное пособие. Под редакцией Ю. М. Черкасова. Москва. Издательство "ИНФРА-М". 2004 г.

4. Острейковский, В. А. Информатика. –М.: Издательство "Высшая школа", 2004 г.

5. Курс правовой информатики. Гаврилов О. А. –М.: Издательство "ИНФРА-М", 2006 г.

6. Михеева, Е. В. Практикум по информатике. – М.: Академия, 2004.

Приложение

Программный код

Private objWord As Word.Application

Private Sub UserForm_Initialize()

Dim File As String

File = ThisWorkbook.Path & "\Квитанция ЖКХ.doc"

Set objWord = CreateObject("Word.Application")

With objWord

.Visible = True

.Documents.Open Filename:=File

End With

End Sub

Private Sub CommandButton1_Click()

Dim A As String

Dim B As String

Dim C As String

Dim D As String

Dim E As String

Dim F As Double

Dim G As Double

A = CStr(TextBox1.Text)

B = CStr(TextBox2.Text)

C = CStr(TextBox3.Text)

D = CStr(TextBox4.Text)

E = CStr(TextBox5.Text)

F = CDbl(TextBox6.Text)

G = CDbl(TextBox7.Text)

With objWord.ActiveDocument

.TextBox1.Text = A

.TextBox11.Text = B

.TextBox12.Text = C

.TextBox13.Text = D

.TextBox14.Text = E

.TextBox15.Text = F

.TextBox16.Text = G

.TextBox17.Text = F + G

End With

End Sub

Private Sub CommandButton2_Click()

objWord.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges

objWord.Application.Quit

Set objWord = Nothing

End Sub

25