Перемещение текста из Word в Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перемещение текста из Word в Excel (Макросы/Sub)

broiler21

Дата: Пятница, 27.10.2017, 14:49 | Сообщение № 1

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

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

Сообщений: 13

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

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

Excel 2010

Мне нужно переместить текст закладок из Word в определенные ячейки Excel. Пока получается программа, которая из Word открывает нужный файл Excel. Но ничего не копирует. В чем у меня ошибка (ниже - то, что я написал)?

Sub Êíîïêà1_Ùåë÷îê()

End Sub

Private Sub CommandButton1_Click()
Dim exDoc As Object
Dim ÏëàíÂûïóñêà As String
Dim MainSheets As String

Dim exApp As New Excel.Application
exApp.Visible = True
exApp.Workbooks.Add ThisDocument.Path & "\ÏëàíÂûïóñêà.xlsm"
MainSheets = "Âûïóñê èçäåëèÿ"

Set exApp = CreateObject("Excel.Application")
On Error Resume Next

Çàäàíèå2 = ThisWorkbook.Name
Const my_wdGoToBookmark = -1

With exApp.Selection
.GoTo What:=my_wdGoToBookmark, Name:="ç1"
.TypeText Workbooks(ÏëàíÂûïóñêà).Worksheets(MainSheets).Range("A6").Text
.GoTo What:=my_wdGoToBookmark, Name:="ç1"
.TypeText Workbooks(ÏëàíÂûïóñêà).Worksheets(MainSheets).Range("A7").Text
.GoTo What:=my_wdGoToBookmark, Name:="ç1"
.TypeText Workbooks(ÏëàíÂûïóñêà).Worksheets(MainSheets).Range("A8").Text

End With

Set exApp = Nothing
Set exDoc = Nothing
End Sub

broiler

Ответить

_Boroda_

Дата: Пятница, 27.10.2017, 15:36 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16674

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

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

2003; 2007; 2010; 2013 RUS

- Прочитайте Правила форума
- Приложите файл в формате Excel размером до 100кб согласно п.3 Правил форума
- Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перемещение текста из Word в Excel (Макросы/Sub)

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