Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос выводит текст, создавая лишний новый лист - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос выводит текст, создавая лишний новый лист (Макросы/Sub)
Макрос выводит текст, создавая лишний новый лист
plank1433 Дата: Пятница, 14.08.2020, 08:29 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Доброе утро.
У меня есть макрос, который вытаскивает из Word-файла текст

Но он его выводит не в ячейки C3:С Листа3, а создает новый лист - при каждом срабатывании.
А при следующем срабатывании - создает еще один лист и т.д.

Что поменять в этом макросе, чтобы текст выводился в столбец C3:С Листа3 ?
К сообщению приложен файл: 11.doc(20.0 Kb) · 8367811.xls(44.0 Kb)
 
Ответить
СообщениеДоброе утро.
У меня есть макрос, который вытаскивает из Word-файла текст

Но он его выводит не в ячейки C3:С Листа3, а создает новый лист - при каждом срабатывании.
А при следующем срабатывании - создает еще один лист и т.д.

Что поменять в этом макросе, чтобы текст выводился в столбец C3:С Листа3 ?

Автор - plank1433
Дата добавления - 14.08.2020 в 08:29
Nic70y Дата: Пятница, 14.08.2020, 08:44 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 6506
Репутация: 1431 ±
Замечаний: 0% ±

ru13;10;03
[vba]
Код
Sub ReadEachDocParagraphs()
    Dim pWord As Object, pSheet As Worksheet, pDoc As Object
    Dim i As Long, text As String, pParagraph As Object
    'Set pSheet = ThisWorkbook.Worksheets.Add
    Set pWord = CreateObject("Word.Application")
    Set pDoc = pWord.Documents.Open(ThisWorkbook.Path & "\11.doc", True)
    For Each pParagraph In pDoc.Paragraphs
        text = Trim$(Replace$(pParagraph.Range.text, vbCr, ""))
        If text <> "" Then
            i = i + 1
            'pSheet.Cells(i, 1).Value = text
            Cells(i + 2, 3).Value = text
        End If
    Next
    pDoc.Close
    pWord.Quit
End Sub
[/vba]


Яндекс Деньги 41001841029809
 
Ответить
Сообщение[vba]
Код
Sub ReadEachDocParagraphs()
    Dim pWord As Object, pSheet As Worksheet, pDoc As Object
    Dim i As Long, text As String, pParagraph As Object
    'Set pSheet = ThisWorkbook.Worksheets.Add
    Set pWord = CreateObject("Word.Application")
    Set pDoc = pWord.Documents.Open(ThisWorkbook.Path & "\11.doc", True)
    For Each pParagraph In pDoc.Paragraphs
        text = Trim$(Replace$(pParagraph.Range.text, vbCr, ""))
        If text <> "" Then
            i = i + 1
            'pSheet.Cells(i, 1).Value = text
            Cells(i + 2, 3).Value = text
        End If
    Next
    pDoc.Close
    pWord.Quit
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 14.08.2020 в 08:44
plank1433 Дата: Пятница, 14.08.2020, 23:09 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Nic70y, спасибо.
 
Ответить
СообщениеNic70y, спасибо.

Автор - plank1433
Дата добавления - 14.08.2020 в 23:09
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос выводит текст, создавая лишний новый лист (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!