Макрос из worda B excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Макрос из 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 с формулами =)

Ответить

Hugo

Дата: Среда, 18.03.2015, 23:18 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3690

Репутация: 790 ±

Замечаний: 0% ±

365

Возможно.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Dersarius

Дата: Среда, 18.03.2015, 23:21 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Подскажите пожалуйста, как такое чудо сделать

Ответить

Hugo

Дата: Четверг, 19.03.2015, 00:08 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3690

Репутация: 790 ±

Замечаний: 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

Ответить

Макрос из worda B excel (Макросы/Sub)

Страница 1 из 1
1