Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.01.2016, 10:34   #1
UbeiBobra
Пользователь
 
Регистрация: 03.09.2014
Сообщений: 39
По умолчанию Добавление строк в таблицу

Добрый день, помогите пожалуйста сделать вот такую штуку: в excel по нажатию на кнопку заполняется документ word данными из excel
Как с помощью макроса добавить например пять идентичных строк в таблицу?
Изображения
Тип файла: gif 1.GIF (8.4 Кб, 46 просмотров)
UbeiBobra вне форума Ответить с цитированием
Старый 25.01.2016, 12:40   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Цитата:
Сообщение от UbeiBobra Посмотреть сообщение
Добрый день, помогите пожалуйста сделать вот такую штуку: в excel по нажатию на кнопку заполняется документ word данными из excel
Так "штука" уже есть или надо написать "нам", а тогда еще и
Цитата:
Сообщение от UbeiBobra Посмотреть сообщение
добавить например пять идентичных строк в таблицу?
?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 25.01.2016, 12:57   #3
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

готовое решение
http://excelvba.ru/programmes/FillDocuments
EducatedFool вне форума Ответить с цитированием
Старый 25.01.2016, 13:07   #4
UbeiBobra
Пользователь
 
Регистрация: 03.09.2014
Сообщений: 39
По умолчанию

"Штука" есть, нужно чтобы вы подсказали как программно добавить строку в таблице с такимже текстом как и в первой
UbeiBobra вне форума Ответить с цитированием
Старый 25.01.2016, 15:56   #5
AndVGri
Форумчанин
 
Регистрация: 10.02.2012
Сообщений: 109
По умолчанию

Цитата:
Сообщение от UbeiBobra Посмотреть сообщение
"Штука" есть, нужно чтобы вы подсказали как программно добавить строку в таблице с такимже текстом как и в первой
Добавить строку в таблицу Word
Код:
Table.Rows.Add
Назначить текст в ячейку
Код:
Row.Cells(1).Range.Text = "значение"
AndVGri вне форума Ответить с цитированием
Старый 26.01.2016, 07:35   #6
UbeiBobra
Пользователь
 
Регистрация: 03.09.2014
Сообщений: 39
По умолчанию

Ошибка: object required
UbeiBobra вне форума Ответить с цитированием
Старый 26.01.2016, 09:35   #7
AndVGri
Форумчанин
 
Регистрация: 10.02.2012
Сообщений: 109
По умолчанию

Цитата:
Ошибка: object required
И что вы делали - можете продемонстрировать?
AndVGri вне форума Ответить с цитированием
Старый 26.01.2016, 10:51   #8
UbeiBobra
Пользователь
 
Регистрация: 03.09.2014
Сообщений: 39
По умолчанию

Sub asdas()

Table.Rows.Add
End Sub
UbeiBobra вне форума Ответить с цитированием
Старый 26.01.2016, 10:58   #9
UbeiBobra
Пользователь
 
Регистрация: 03.09.2014
Сообщений: 39
По умолчанию

вот этот макрос запускается из экселя:
Sub Êíîïêà4_Ùåëêíóòü()
Dim WA As Object, WD As Object
Dim i As Integer
Dim s1, s2, s3, s4, s5, s6, s7, s8 As Double
FN = "t0607010"
ChDir "D:\proba"
Workbooks.Open Filename:="D:\temp\" & FN & ".DBF"
LastRow = ActiveSheet.Cells.Find(What:="*", _
SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row
s1 = 0
s2 = 0
s3 = 0
s4 = 0
s5 = 0
s6 = 0
s7 = 0
s8 = 0
For i = 2 To LastRow
s1 = s1 + Cells(i, 5)
s2 = s2 + Cells(i, 8)
s3 = s3 + Cells(i, 9)
s4 = s4 + Cells(i, 27)
s5 = s5 + Cells(i, 28)
s6 = s6 + Cells(i, 29)
s7 = s7 + Cells(i, 46)
s8 = s8 + Cells(i, 47)
Next
Set WA = CreateObject("Word.Application")
Set WD = WA.Documents.Open("d:\proba\TH2.doc ")
For i = 2 To LastRow
WD.Range.Find.Execute FindText:="[Naiz]", ReplaceWith:=Cells(i, 15)
WD.Range.Find.Execute FindText:="[Obiz]", ReplaceWith:=Cells(i, 2)
WD.Range.Find.Execute FindText:="[Ed]", ReplaceWith:=Cells(i, 10)
WD.Range.Find.Execute FindText:="[Kol]", ReplaceWith:=Cells(i, 5)
WD.Range.Find.Execute FindText:="[Cen_ed]", ReplaceWith:=Cells(i, 8)
WD.Range.Find.Execute FindText:="[Stoim]", ReplaceWith:=Cells(i, 9)
WD.Range.Find.Execute FindText:="[nds]", ReplaceWith:=Cells(i, 48)
WD.Range.Find.Execute FindText:="[sum_nds]", ReplaceWith:=Cells(i, 46)
WD.Range.Find.Execute FindText:="[stoim_nds]", ReplaceWith:=Cells(i, 47)
WD.Range.Find.Execute FindText:="[brutto]", ReplaceWith:=Cells(i, 28)
WD.Range.Find.Execute FindText:="[netto]", ReplaceWith:=Cells(i, 29)
WD.Range.Find.Execute FindText:="[mesto]", ReplaceWith:=Cells(i, 27)
Next
WD.Range.Find.Execute FindText:="[skol]", ReplaceWith:=s1
WD.Range.Find.Execute FindText:="[scena]", ReplaceWith:=s2
WD.Range.Find.Execute FindText:="[sstoim]", ReplaceWith:=s3
WD.Range.Find.Execute FindText:="[syash]", ReplaceWith:=s4
WD.Range.Find.Execute FindText:="[sbru]", ReplaceWith:=s5
WD.Range.Find.Execute FindText:="[snet]", ReplaceWith:=s6
WD.Range.Find.Execute FindText:="[snds]", ReplaceWith:=s7
WD.Range.Find.Execute FindText:="[ssnds]", ReplaceWith:=s8
WA.Visible = True
Set WA = Nothing
ActiveWindow.Close
End Sub

Куда вставить строчку добавления строки в вордовском документе?
UbeiBobra вне форума Ответить с цитированием
Старый 26.01.2016, 11:21   #10
AndVGri
Форумчанин
 
Регистрация: 10.02.2012
Сообщений: 109
По умолчанию

Так
Цитата:
добавления строки в вордовском документе
или
Цитата:
добавить ... строк в таблицу
Вы уж раберитесь. Код нужно оформлять - используйте кнопку #.
И я не вижу у вас в документе ни одной таблицы. Пусть она у вас единственная, тогда чтобы добавить одну строку и в первую ячейку ввести текст, добавьте следующий код
Код:
WD.Tables(1).Rows.Add.Cells(1).Range.Text = "новая строка"
AndVGri вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Добавление строк в таблицу из clipboard tevadim Microsoft Office Excel 6 06.12.2012 14:19
Добавление записи в таблицу через таблицу Anton911 БД в Delphi 0 14.05.2012 11:51
команда на добавление строк в таблицу никили SQL, базы данных 2 31.01.2012 08:45
Добавление строк в таблицу. z21231904 Microsoft Office Word 2 17.06.2010 22:52
Добавление строк в таблицу с вставкой в них текста и чередованием фона строк Centurion2xx6 Microsoft Office Word 9 30.03.2010 11:00