![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 03.09.2014
Сообщений: 39
|
![]()
Добрый день, помогите пожалуйста сделать вот такую штуку: в excel по нажатию на кнопку заполняется документ word данными из excel
Как с помощью макроса добавить например пять идентичных строк в таблицу? |
![]() |
![]() |
![]() |
#2 | |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
![]() Цитата:
?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
|
![]() |
![]() |
![]() |
#3 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
![]()
готовое решение
http://excelvba.ru/programmes/FillDocuments |
![]() |
![]() |
![]() |
#4 |
Пользователь
Регистрация: 03.09.2014
Сообщений: 39
|
![]()
"Штука" есть, нужно чтобы вы подсказали как программно добавить строку в таблице с такимже текстом как и в первой
|
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 10.02.2012
Сообщений: 109
|
![]() |
![]() |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 03.09.2014
Сообщений: 39
|
![]()
Ошибка: object required
|
![]() |
![]() |
![]() |
#7 | |
Форумчанин
Регистрация: 10.02.2012
Сообщений: 109
|
![]() Цитата:
|
|
![]() |
![]() |
![]() |
#8 |
Пользователь
Регистрация: 03.09.2014
Сообщений: 39
|
![]()
Sub asdas()
Table.Rows.Add End Sub |
![]() |
![]() |
![]() |
#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 Куда вставить строчку добавления строки в вордовском документе? |
![]() |
![]() |
![]() |
#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 |