4. Переменные, операторы, константы

Лабораторная работа 4.1 Работа с переменными и операторами

Переменные и операторы в макросах VBA в Excel, операторы конкатенации

Задание:

1.     Создайте новую книгу Excel и сохраните ее как C:\LabVariablesOperators.xls. Введите в ячейки A1, A2 и A3 этой книги любые значения.

2.     Откройте редактор Visual Basic в Excel и создайте в этой книге новый стандартный модуль.

3.     При помощи меню Tools | References добавьте в ваш проект ссылку на библиотеку Microsoft Word 11.0 Object Library.

4.     Введите в созданном вами стандартном модуле следующий код:

Public Sub FromExcelToWord()

    MsgBox Range("A1").Text

    MsgBox Range("A2").Text

    MsgBox Range("A3").Text

    Dim oWord As Word.Application

    Dim oDoc As Word.Document

    Set oWord = CreateObject("Word.Application")

    oWord.Visible = True

    Set oDoc = oWord.Documents.Add()

    oDoc.Activate

    oWord.Selection.TypeText "Вставляемый текст"

End Sub

Этот код должен выводить в окна сообщений значения ячеек A1, A2 и A3, а затем открыть Word и впечатать в начало нового документа строку "Вставляемый текст".

5.     Убедитесь, что код работает без ошибок.

Задание:

Измените код этой процедуры таким образом, чтобы вместо строки "Вставляемый текст" выводились значения ячеек A1, A2 и A3 вместе.

Решение:

Итоговый код может выглядеть так:

Public Sub FromExcelToWordAnswer()

    Dim sA1, sA2, sA3, sText As String

    sA1 = Range("A1").Text

    sA2 = Range("A2").Text

    sA3 = Range("A3").Text

    sText = sA1 & " " & sA2 & " " & sA3

    Set oWord = CreateObject("Word.Application")

    oWord.Visible = True

    Set oDoc = oWord.Documents.Add()

    oDoc.Activate

    oWord.Selection.TypeText sText

End Sub

Получить учебные материалы по этому курсу