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

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

При работе над данным курсовым проектом были получены следующие результаты:

изучены возможности формирования файла данных в формате. csv;

изучены возможности макросов и способы их разработки;

изучены возможности пакета MS Excel по обработке данных;

разработана презентация, отражающая ход выполнения работы.

Список использованных источников

1. Гришина Е.А., Прикладная информатика. Минск: "Выш. шк.", 2003. - с.325.

2. Куперштейн В.И., Современные информационные технологии в делопроизводстве и управлении. - СПб.: БХВ - Санкт - Петербург, 1999. - 256 с.

3. Морозевич А.Н., Прикладная информатика. Учебное пособие, Минск: "Выш. шк.", 2003. - с.335.

4. Орлов С.А., Технологии разработки программного обеспечения. Разработка сложных программных систем. Учебник для вузов. - Питер, 2002. - 327 с.

5. Симонович С.В., Информатика для юристов и экономистов, СПб.: Питер, 2003. - с.688.

Приложение Б

Sub Макрос1 ()

'

' загрузить

'

'

With ActiveSheet. QueryTables. Add (Connection: = _

"TEXT; D: samolet. csv" _

, Destination: =Range ("$A$3"))

. Name = "samolet"

. FieldNames = True

. RowNumbers = False

. FillAdjacentFormulas = False

. PreserveFormatting = True

. RefreshOnFileOpen = False

. RefreshStyle = xlInsertDeleteCells

. SavePassword = False

. SaveData = True

. AdjustColumnWidth = True

. RefreshPeriod = 0

. TextFilePromptOnRefresh = False

. TextFilePlatform = 1251

. TextFileStartRow = 1

. TextFileParseType = xlDelimited

. TextFileTextQualifier = xlTextQualifierDoubleQuote

. TextFileConsecutiveDelimiter = False

. TextFileTabDelimiter = False

. TextFileSemicolonDelimiter = True

. TextFileCommaDelimiter = False

. TextFileSpaceDelimiter = False

. TextFileColumnDataTypes = Array (1, 2, 1, 2, 1, 1)

. TextFileTrailingMinusNumbers = True

. Refresh BackgroundQuery: =False

End With

Columns ("A: A"). ColumnWidth = 23.43

Columns ("A: A"). ColumnWidth = 32.86

Columns ("A: A"). ColumnWidth = 28.29

Columns ("B: B"). ColumnWidth = 21.86

Columns ("C: C"). ColumnWidth = 14.71

Columns ("E: E"). ColumnWidth = 11.43

Columns ("E: E"). ColumnWidth = 15

Columns ("A: A"). ColumnWidth = 20.14

Columns ("F: F"). ColumnWidth = 9.57

Range ("A2: F2"). Select

With Selection

. HorizontalAlignment = xlGeneral

. VerticalAlignment = xlBottom

. WrapText = True

. Orientation = 0

. AddIndent = False

. IndentLevel = 0

. ShrinkToFit = False

. ReadingOrder = xlContext

. MergeCells = False

End With

With Selection

. HorizontalAlignment = xlCenter

. VerticalAlignment = xlBottom

. WrapText = True

. Orientation = 0

. AddIndent = False

. IndentLevel = 0

. ShrinkToFit = False

. ReadingOrder = xlContext

. MergeCells = False

End With

Selection. Font. Bold = True

Range ("A1: F1"). Select

With Selection

. HorizontalAlignment = xlCenter

. VerticalAlignment = xlBottom

. WrapText = False

. Orientation = 0

. AddIndent = False

. IndentLevel = 0

. ShrinkToFit = False

. ReadingOrder = xlContext

. MergeCells = False

End With

Selection. Merge

Selection. Font. Bold = True

Selection. Font. Size = 12

Range ("A2: F24"). Select

Selection. Borders (xlDiagonalDown). LineStyle = xlNone

Selection. Borders (xlDiagonalUp). LineStyle = xlNone

With Selection. Borders (xlEdgeLeft)

. LineStyle = xlContinuous

. ColorIndex = 0

. TintAndShade = 0

. Weight = xlThin

End With

With Selection. Borders (xlEdgeTop)

. LineStyle = xlContinuous

. ColorIndex = 0

. TintAndShade = 0

. Weight = xlThin

End With

With Selection. Borders (xlEdgeBottom)

. LineStyle = xlContinuous

. ColorIndex = 0

. TintAndShade = 0

. Weight = xlThin

End With

With Selection. Borders (xlEdgeRight)

. LineStyle = xlContinuous

. ColorIndex = 0

. TintAndShade = 0

. Weight = xlThin

End With

With Selection. Borders (xlInsideVertical)

. LineStyle = xlContinuous

. ColorIndex = 0

. TintAndShade = 0

. Weight = xlThin

End With

With Selection. Borders (xlInsideHorizontal)

. LineStyle = xlContinuous

. ColorIndex = 0

. TintAndShade = 0

. Weight = xlThin

End With

With Selection

. HorizontalAlignment = xlGeneral

. VerticalAlignment = xlBottom

. Orientation = 0

. AddIndent = False

. IndentLevel = 0

. ShrinkToFit = False

. ReadingOrder = xlContext

. MergeCells = False

End With

With Selection

. HorizontalAlignment = xlCenter

. VerticalAlignment = xlBottom

. Orientation = 0

. AddIndent = False

. IndentLevel = 0

. ShrinkToFit = False

. ReadingOrder = xlContext

. MergeCells = False

End With

Range ("A2"). Select

ActiveCell. FormulaR1C1 = "Максимальная высота полета"

Range ("B2"). Select

ActiveCell. FormulaR1C1 = "Название"

Range ("C2"). Select

ActiveCell. FormulaR1C1 = "Количество"

Range ("D2"). Select

ActiveCell. FormulaR1C1 = "Примечание"

Range ("E2"). Select

ActiveCell. FormulaR1C1 = "Количество пассажиров"

Range ("F2"). Select

ActiveCell. FormulaR1C1 = "Экипаж"

Range ("A1: F1"). Select

ActiveCell. FormulaR1C1 = "Самолеты аэропорта"

Range ("B9"). Select

End Sub

Размещено на Allbest.ru