Передача данных между приложениями по технологии DDE

Страницы работы

3 страницы (Word-файл)

Содержание работы

Министерство образования и науки РФ

ГОУВПО «Комсомольский-на-Амуре государственный технический университет»

Кафедра МОП ЭВМ

Лабораторная работа №1

«Передача данных между приложениями по технологии DDE»

Выполнил: Рогозин В.А.

Группа: 4ВС-1

Проверил: Тихомиров В.А.

Комсомольск-на-Амуре

2006

Задание.

В среде Excel написать модуль, который  открывает управляющую форму, и выполняет следующие действия:

1.  Открывает канал связи по протоколу DDE с уже открытым приложением Word.

2.  Получает  по технологии DDE абзац текстовой информации из Word в Excel.

3.  Передает по технологии DDE, набранную в Excel, текстовую (или цифровую) информацию в документ Word.

4.  Из среды Excel дистанционно выполняет в документе Word любую внутреннюю команду Word (например – предварительный просмотр документа).

5.  Закрывает  канала связи DDE.

Внешний вид формы.

Процедуры для элементов формы.

Dim canal As Integer

Dim c As Integer

Открытие канала передачи данных

Private Sub otkrit_Click()

canal = DDEInitiate(WinWord, "D:\book.doc")

Me.nomer.Text = canal

End Sub

Закрытие канала передачи данных

Private Sub zakrit_Click()

For i = 0 To 100

DDETerminate (i)

Next

Me.nomer.Text = "null"

End Sub

Получение данных из документа

Private Sub poluchit_Click()

Cells(1, 1) = DDERequest(canal, "zakladka")

TextBox1.Text = Cells(1, 1)

Cells(1, 1) = " "

End Sub

Передача данных в документ

Private Sub otpravit_Click()

Cells(1, 2) = TextBox2

DDEPoke canal, "Text", Cells(1, 2)

Cells(1, 2) = " "

End Sub

Выполнение действий

Private Sub deistvie_Click()

c = Me.spisok.ListIndex

If c = -1 Then MsgBox "Выберите действие", , "Ошибка!"

Select Case c

Case 0: DDEExecute canal, "[FilePrintPreview]"

Case 1: DDEExecute canal, "[FileSave]"

Case 2: DDEExecute canal, "[FileClose]"

End Select

End Sub

Заполнение списка действий.

Private Sub UserForm_Initialize()

Me.spisok.AddItem "предпросмотр"

Me.spisok.AddItem "сохранить"

Me.spisok.AddItem "закрыть"

End Sub

Похожие материалы

Информация о работе

Тип:
Отчеты по лабораторным работам
Размер файла:
37 Kb
Скачали:
0