Академия Специальных Курсов по Компьютерным Технологиям
    Главная страница Послать письмо
 
AskIt.ru  
   
   
   
   
   
   
 
 
  Главная / Заказные курсы / Программирование в Microsoft Excel для пользователей
 
 

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


<-- Назад Читать дальше -->

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

 

   
   
   
   
   
   
   
   
   
   
 
<-- Назад Читать дальше -->

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


 
© 2004-2016, Академия Специальных Курсов
по Информационным Технологиям
.
Все права защищены.

Разработка NevaStudio
г. Санкт-Петербург, Васильевский остров,
20-я линия, д. 7
Офис 101, 2-й этаж
Телефон: 8(812)922-47-60
E-mail: info@askit.ru