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

Вход

Регистрация

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

 

= Мир MS Excel/сохранить данные из диапазона в WORD - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » сохранить данные из диапазона в WORD (Макросы/Sub)
сохранить данные из диапазона в WORD
Ёжж Дата: Пятница, 04.03.2016, 09:08 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 28
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Добрый день! Подскажите, как сохранить данные из диапазона A1:E51 (с учетом фильтра) в WORD? Простое копирование не подойдет.
[moder]Если Вас просят переименовать тему, значит нужно ее переименовать, а не создавать дубль![/moder]
К сообщению приложен файл: 4680513.xlsx(13Kb)


Сообщение отредактировал Manyasha - Пятница, 04.03.2016, 10:27
 
Ответить
СообщениеДобрый день! Подскажите, как сохранить данные из диапазона A1:E51 (с учетом фильтра) в WORD? Простое копирование не подойдет.
[moder]Если Вас просят переименовать тему, значит нужно ее переименовать, а не создавать дубль![/moder]

Автор - Ёжж
Дата добавления - 04.03.2016 в 09:08
Roman777 Дата: Пятница, 04.03.2016, 10:18 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 700
Репутация: 75 ±
Замечаний: 20% ±

Excel 2007, Excel 2013
Ёжж, тут можно найти Готовое решение


Много чего не знаю!!!!
 
Ответить
СообщениеЁжж, тут можно найти Готовое решение

Автор - Roman777
Дата добавления - 04.03.2016 в 10:18
KuklP Дата: Пятница, 04.03.2016, 10:26 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 1994
Репутация: 435 ±
Замечаний: 0% ±

[vba]
Код
Sub www()
    Dim wO As Object
    Set wO = CreateObject("word.application")
    Sheets("Заявка").Range("A1:E51").SpecialCells(12).Copy
    With Sheets("Лист1").[a1]
        .PasteSpecial Paste:=xlPasteColumnWidths
        .Parent.Paste Worksheets("Лист1").[a1]
    End With
    Sheets("Лист1").Range("A1:E" & Sheets("Лист1").[a65536].End(xlUp).Row + 3).Copy
    wO.documents.Add
    wO.Selection.Paste
    wO.Visible = True
    Set wO = Nothing
End Sub
[/vba]


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение[vba]
Код
Sub www()
    Dim wO As Object
    Set wO = CreateObject("word.application")
    Sheets("Заявка").Range("A1:E51").SpecialCells(12).Copy
    With Sheets("Лист1").[a1]
        .PasteSpecial Paste:=xlPasteColumnWidths
        .Parent.Paste Worksheets("Лист1").[a1]
    End With
    Sheets("Лист1").Range("A1:E" & Sheets("Лист1").[a65536].End(xlUp).Row + 3).Copy
    wO.documents.Add
    wO.Selection.Paste
    wO.Visible = True
    Set wO = Nothing
End Sub
[/vba]

Автор - KuklP
Дата добавления - 04.03.2016 в 10:26
krosav4ig Дата: Воскресенье, 06.03.2016, 00:04 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1336
Репутация: 533 ±
Замечаний: 0% ±

Excel 2007, 2013
еще вариант
кладем оба файла из архива в одну папку, открываем файл согласовано.doc
К сообщению приложен файл: doc.zip(21Kb)


(_)Õvõ(_)
 
Ответить
Сообщениееще вариант
кладем оба файла из архива в одну папку, открываем файл согласовано.doc

Автор - krosav4ig
Дата добавления - 06.03.2016 в 00:04
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » сохранить данные из диапазона в WORD (Макросы/Sub)
Страница 1 из 11
Поиск:

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