|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
25.01.2016, 10:34 | #1 |
Пользователь
Регистрация: 03.09.2014
Сообщений: 39
|
Добавление строк в таблицу
Добрый день, помогите пожалуйста сделать вот такую штуку: в excel по нажатию на кнопку заполняется документ word данными из excel
Как с помощью макроса добавить например пять идентичных строк в таблицу? |
25.01.2016, 12:40 | #2 | |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Цитата:
?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
|
25.01.2016, 12:57 | #3 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
готовое решение
http://excelvba.ru/programmes/FillDocuments |
25.01.2016, 13:07 | #4 |
Пользователь
Регистрация: 03.09.2014
Сообщений: 39
|
"Штука" есть, нужно чтобы вы подсказали как программно добавить строку в таблице с такимже текстом как и в первой
|
25.01.2016, 15:56 | #5 |
Форумчанин
Регистрация: 10.02.2012
Сообщений: 109
|
|
26.01.2016, 07:35 | #6 |
Пользователь
Регистрация: 03.09.2014
Сообщений: 39
|
Ошибка: object required
|
26.01.2016, 09:35 | #7 | |
Форумчанин
Регистрация: 10.02.2012
Сообщений: 109
|
Цитата:
|
|
26.01.2016, 10:51 | #8 |
Пользователь
Регистрация: 03.09.2014
Сообщений: 39
|
Sub asdas()
Table.Rows.Add End Sub |
26.01.2016, 10:58 | #9 |
Пользователь
Регистрация: 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 Куда вставить строчку добавления строки в вордовском документе? |
26.01.2016, 11:21 | #10 | ||
Форумчанин
Регистрация: 10.02.2012
Сообщений: 109
|
Так
Цитата:
Цитата:
И я не вижу у вас в документе ни одной таблицы. Пусть она у вас единственная, тогда чтобы добавить одну строку и в первую ячейку ввести текст, добавьте следующий код Код:
|
||
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Добавление строк в таблицу из 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 |