Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.05.2022, 11:16   #1
Кирилл121
 
Регистрация: 04.11.2020
Сообщений: 5
По умолчанию Как из конкретной таблице извлечь строку ?

Вот таблица

1.jpg

Как из этой таблице извлечь содержимое этой колонки ?

Вот код кнопки

Код:
Private Sub CommandButton1_Click()
Dim xOutlookObj As Object



    Dim xEmail As Object
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xOutlookObj = CreateObject("Outlook.Application")
    Set xEmail = xOutlookObj.CreateItem(olMailItem)
    Set xDoc = ActiveDocument
    xDoc.Save
    With xEmail
        .Subject = "Тема ..."
        
        ' В Body передать текст из конкретной таблицы строку ?
      
        .Body = worker1
        .To = "test@.ru"
        .Importance = olImportanceNormal
        .Attachments.Add xDoc.FullName
        .Display
    End With
    Set xDoc = Nothing
    Set xEmail = Nothing
    Set xOutlookObj = Nothing
    Application.ScreenUpdating = True
End Sub
Кирилл121 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
проверить строку в таблице duh_si Microsoft Office Access 16 03.07.2013 16:42
Указать строку в таблице roxy7 БД в Delphi 2 31.01.2013 22:04
скрыть отобразить строку в таблице Dmitry1983 PHP 9 07.08.2011 12:31
Привязка макроса к конкретной таблице DJTreeno Microsoft Office Word 18 24.06.2011 15:25
Как извлечь текст из буфера в строку? Brother Win Api 3 13.11.2007 20:19