Сложности с движением экселевского фокуса ввода из под ворда

[alt2]

Вопрос явно ламерский - в первый раз толком залез в VBA. Но вот никак не соображу... ((

VBA 7.0 (Офис 2010)
Нужно перекидывать текстики из открываемых вордовских документов в таблицу экселя, сдвигая там фокус ввода (относительно). Все работает, кроме движения фокуса ввода.
Вот кусок:

Sub 111()

Dim ExcelSheet As Object

'это еще в ворде - беру в буфер условный текст
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Copy

'теперь лезу в эксель
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.Visible = True
ExcelSheet.ActiveSheet.Range.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=4
ExcelSheet.ActiveSheet.Paste

End Sub

Paste отрабатывается, а вот сдвиг Range - ни в какую.
Что-то я недопонимаю с объектами у него видать - ставил так и эдак - не выходит.
Подскажите плз.

[viter.alex]

Проблема в том, что ты путаешь Range из Excel и Range из Word, а это две большие разницы. Когда ты пишешь:

ExcelSheet.ActiveSheet.Range.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=4

то пытаешься использовать метод GoTo из вордовского Range, не осознавая по всей видимости, что ты уже в Excel. У новичков это часто встречается.
Я не совсем пойму, что тебе нужно сделать. Ты копируешь текст, а потом хочешь его вставить в какую-то позицию внутри ячейки? Или хочешь сместиться в экселе на 4 строки вниз и вставить туда? Тебе нужно смотреть не только объектную модель ворда, но и экселя.

[Sasha_Smirnov]

Я в таких случаях, не парясь с объектами, вставлял

Const СколькоРазНажать = 4
SendKeys "{down " & СколькоРазНажать & "}", True

Только его отлаживать неудобно: в окне редактора (VBE) он тоже жмёт на клавиши!

Вот тут: http://prjsoft.ru/rus/sendkeys.php (на слове фрагмент) — как пользовать SendKeys.

[alt2]

Сообщение от viter.alex

Проблема в том, что ты путаешь Range из Excel и Range из Word, а это две большие разницы. Когда ты пишешь:

ExcelSheet.ActiveSheet.Range.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=4

то пытаешься использовать метод GoTo из вордовского Range, не осознавая по всей видимости, что ты уже в Excel. У новичков это часто встречается.

Мм... А "ExcelSheet." для указания не достаточно? "ExcelSheet.ActiveSheet.Paste" вполне себе понимает, что нужно исполняться в экселе.
Синтаксис Range.GoTo брал из экселевского примера.

Сообщение от viter.alex

Я не совсем пойму, что тебе нужно сделать. Ты копируешь текст, а потом хочешь его вставить в какую-то позицию внутри ячейки? Или хочешь сместиться в экселе на 4 строки вниз и вставить туда? Тебе нужно смотреть не только объектную модель ворда, но и экселя.

Здесь - хочу сместиться в экселе на 4 строки вниз и вставить туда. По задаче буду смещаться еще и вбок, но пока разобраться бы хоть как вниз ))

[alt2]

Сообщение от Sasha_Smirnov

Я в таких случаях, не парясь с объектами, вставлял

Const СколькоРазНажать = 4
SendKeys "{down " & СколькоРазНажать & "}", True

Только его отлаживать неудобно.

Хороший вариант - возьму на вооружение. Вопрос в моем случае - как его отработать именно в экселе.
ExcelSheet.SendKeys... ?
До кода доберусь только через пару дней - там попробую сам.

[Казанский]

Попробуйте

Sub a111()

Dim s$

'это еще в ворде - беру в буфер условный текст
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
'Selection.Copy
s = Selection

'теперь лезу в эксель
With CreateObject("Excel.Sheet") 'это на самом деле книга, а не лист...
    .Application.Visible = True
    .sheets(1).Range("A4").Value = s '...поэтому надо указывать лист
    'ExcelSheet.ActiveSheet.Paste
End With
End Sub

[alt2]

Сообщение от Казанский

Попробуйте

Прекрасно работает.
Однако нужно относительное перемещение, о чем писал вначале.

[alt2]

Сообщение от Sasha_Smirnov

Я в таких случаях, не парясь с объектами, вставлял

Const СколькоРазНажать = 4
SendKeys "{down " & СколькоРазНажать & "}", True

Только его отлаживать неудобно: в окне редактора (VBE) он тоже жмёт на клавиши!

Вот тут: http://prjsoft.ru/rus/sendkeys.php (на слове фрагмент) — как пользовать SendKeys.

Ага. Так действительно проще. Спасибо )

[Sasha_Smirnov]

Объектная модель, объектная модель... А мы вот так вот, добрались на попутках.

[Казанский]

> Однако нужно относительное перемещение

'xlApp - приложение Excel
xlApp.activecell.offset(смещение_по_строкам, смещение_по_столбцам).select

Интересно, как Вы будете методом SendKeys обходиться, когда надо будет переключиться на другой лист и т.п.