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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос из worda B excel - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Макрос из worda B excel (Макросы/Sub)
Макрос из worda B excel
Dersarius Дата: Среда, 18.03.2015, 23:05 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Ребят, а вообще возможно такое с макросом.

Что бы макрос открыл папку где лежат файлы word, дал возможность выбрать файл и скопировал все данные из worda в открытый файл excel от куда была команда.
Ну или что то примерное =)

Часто копирую в ручную из ворда весь лист и вставляю в exсel, там автоматом с листа1 генерируется инфа в лист2 с формулами =)
 
Ответить
СообщениеРебят, а вообще возможно такое с макросом.

Что бы макрос открыл папку где лежат файлы word, дал возможность выбрать файл и скопировал все данные из worda в открытый файл excel от куда была команда.
Ну или что то примерное =)

Часто копирую в ручную из ворда весь лист и вставляю в exсel, там автоматом с листа1 генерируется инфа в лист2 с формулами =)
Автор - Dersarius
Дата добавления - 18.03.2015 в 23:05
Hugo Дата: Среда, 18.03.2015, 23:18 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3708
Репутация: 792 ±
Замечаний: 0% ±

365
Возможно.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеВозможно.
Автор - Hugo
Дата добавления - 18.03.2015 в 23:18
Dersarius Дата: Среда, 18.03.2015, 23:21 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Подскажите пожалуйста, как такое чудо сделать %)
 
Ответить
СообщениеПодскажите пожалуйста, как такое чудо сделать %)
Автор - Dersarius
Дата добавления - 18.03.2015 в 23:21
Hugo Дата: Четверг, 19.03.2015, 00:08 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3708
Репутация: 792 ±
Замечаний: 0% ±

365
Как вариант (проверено на моём файле):
[vba]
Код
Sub Макрос1()

      Dim flag As Boolean
      Dim WordApp As Object

      On Error Resume Next
      Set WordApp = GetObject(, "word.application")
      If WordApp Is Nothing Then Set WordApp = CreateObject("word.application"): flag = True
      On Error GoTo 0

      With WordApp
          With .Documents.Open("c:\test.doc")

              .tables(1).Range.Copy
              ActiveSheet.Paste

              .Close False
          End With
      End With

      If flag Then WordApp.Quit

      Set WordApp = Nothing

End Sub
[/vba]
"открыл папку где лежат файлы word, дал возможность выбрать файл" из лени не прописывал - сперва нужно наладить вообще копирование данных, эти "шашечки" позже можно добавить.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Сообщение отредактировал Hugo - Четверг, 19.03.2015, 00:10
 
Ответить
СообщениеКак вариант (проверено на моём файле):
[vba]
Код
Sub Макрос1()

      Dim flag As Boolean
      Dim WordApp As Object

      On Error Resume Next
      Set WordApp = GetObject(, "word.application")
      If WordApp Is Nothing Then Set WordApp = CreateObject("word.application"): flag = True
      On Error GoTo 0

      With WordApp
          With .Documents.Open("c:\test.doc")

              .tables(1).Range.Copy
              ActiveSheet.Paste

              .Close False
          End With
      End With

      If flag Then WordApp.Quit

      Set WordApp = Nothing

End Sub
[/vba]
"открыл папку где лежат файлы word, дал возможность выбрать файл" из лени не прописывал - сперва нужно наладить вообще копирование данных, эти "шашечки" позже можно добавить.
Автор - Hugo
Дата добавления - 19.03.2015 в 00:08
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Макрос из worda B excel (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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