передача данных с excel в word

[marsel]

не могу помять почему когда идет передача с excel, в word, т. e. есть в этом документе таблица и он туда вставляет только первую строку, на вторую ругается на "Word.Selection.InsertRowsBelow (1)"

[Twister]

Да уж - название темы очень информативное. За него тебе замечание обеспечено. По теме - ни чего толком не понял из написанного в твоем посте. Кто что куда передает и вставляет? Хоть бы код привел...

[marsel]

Суть такова в excel`e сделано поля которые должны быть перенесены при нажатие кнопти в определеные поля word`a, все отлично переносится, но когда идет формирование табл по следующему коду:
[code=vb]
'формируем таблицу
Set tableGet = docGet.Tables(1)
For i = 1 To wp.Range("kol_zalog_avto").Value
str_zalog = "договор " & wz.Range("nom_dog_zalog" & i).Value & " от " & wz.Range("date_dog_zalog" & i).Value & ", заключенного между " & wz.Range("fio_zalog_dat" & i).Value
tableGet.Cell(i, 1).Range.Text = str_zalog
If i < wp.Range("kol_zalog_avto").Value Or Not IsEmpty(wp.Range("kol_zalog_tovar").Value) Or Not IsNull(wp.Range("kol_poruch").Value) Then
tableGet.Rows(i).Select
Word.Selection.InsertRowsBelow (1)
End If
Next
For i = 1 To wp.Range("kol_zalog_tovar").Value
str_zalog = "договор " & wz.Range("tnom_dog_zalog" & i).Value & " от " & wz.Range("tdate_dog_zalog" & i).Value & ", заключенного " & wz.Range("tfio_zalog_dat" & i).Value
tableGet.Cell(wp.Range("kol_zalog_avto").Value + i, 1).Range.Text = str_zalog
If i < wp.Range("kol_zalog_tovar").Value Or Not IsNull(wp.Range("kol_poruch").Value) Then
tableGet.Rows(wp.Range("kol_zalog_avto").Value + i).Select
Word.Selection.InsertRowsBelow (1) End If
[/code]

[$€rg]

что говорит, когда ругается - 91?

[Viper]

Интересно зачем на форуме существуют теги форматирования кода?

[marsel]

Грит что:
Run time error 5941
запрашиваемый номер семейства ненайден и делает сылку на [code=vb] SelecttableGet.Rows(i) [/code][/code]

[$€rg]

видимо строки с номером i в таблице нет

[marsel]

нет строка есть (i), т.к он создает таблицу и взависимости от того что указано на листе в excel, он и создает таблицу и добавляет строки

[alibek]

marsel, тебе строгое замечание за невнятное название темы. Если не отредактируешь до вечера, тема будет закрыта.

[Twister]

alibek
А каким чудом он это может сделать?

[alibek]

Нажав кнопку "Правка".

[Twister]

Во дожился - только сейчас заметил, что редактируя сообщение можно заодно отредактировать заголовок темы. Да уж...

[marsel]

Я кажись на врал он не создает таблицу он просто должен вставить в таблицу нужные строки из excel и при копирование у него выскакивает ошибка описанная выше что делать в этом случаии

[Twister]

Блин, marsel. Решил почитать приведенный тобой код - но это же невозможно! Ни чего не разобрать...

Интересно зачем на форуме существуют теги форматирования кода?

[Viper]

+и неиспользование тегов форматирования, к сожалению, не приводит к появлению наград. Есть такой пробел в правилах.

[marsel]

Viper, чет я не соображу это к чему ?

[alibek]

Это к тому, что на форуме есть специальные теги, в которые надо включать код. С ними читать код проще и удобнее.

[Viper]

Заключи код в своем втором посте этого топика в теги [code = "vb"] [/code]. А то он совершенно нечитаем.

[marsel]

самое интересное на другой машине это все робит без заминки,
помогите люди добрые, с этим кодом

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?p=6610945#6610945