Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 27.10.2017, 15:41   #1
Broiler21
Новичок
 
Регистрация: 21.10.2017
Сообщений: 2
Репутация: 10
По умолчанию [VB] Копирование из Word в Excel: нужно переместить текст закладок из Word в определенные ячейки Excel.

Мне нужно переместить текст закладок из 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
Пожалуйста, оформляйте Ваш код согласно правилам.
Broiler21 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Копирование значения из ячейки excel в word ольгаг Общие вопросы .NET 0 25.05.2016 23:25
Копирование таблиц из excel в word junkey9009 Microsoft Office Excel 1 23.01.2012 20:53
Копирование таблицы Excel в MS-Word rakushka108 Microsoft Office Word 2 13.04.2011 09:45
Копирование таблицы Excel в MS-Word rakushka108 Microsoft Office Excel 0 13.04.2011 02:27
Копирование Word из в Excel Юрийpirs2008 Microsoft Office Excel 2 31.12.2008 06:11


13:34.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru