Drag&Drop во внешнее приложение

[narg]

Вобщем, информацию надо скидывать из дерева в произвольный лист Excel прямо целыми столбцами и делать это мышью. Воспользовался Drag&Drop. Когда перед дропом водишь мышью по листу, ячейки под указателем как бы выделяются (хотя это неправда), а как получить адрес этой целевой ячейки перед дропом я не знаю. Дело в том, что хотелось бы заставить указатель подсказывать пользователю правильную клетку, пока он не отпустил кнопку. Пока что я тупо смотрю ActiveCell после дропа и мне это совсем не нравится.

[Хакер]

Откуда получить?
Из DS или DT?

[Antonariy]

как получить адрес этой целевой ячейки перед дропом

Во время начала перетаскивания получить GetObject'ом ссылку на эксель, а в событии OLEGiveFeedback проверять ActiveCell, и если ячейка попадает в запрещенный диапазон, передавать в параметр Effect значение vbDropEffectNone, в любоим другом случае vbDropEffectCopy.

[Antonariy]

Хотя соврал, на Effect экселю наплевать.

[narg]

Я тащу один из пунктов TreeView в совершенно посторонний экселевский лист.

Код: Выделить всё

Private Sub sp2_Tree_OLEStartDrag(Data As MSComctlLib.DataObject, AllowedEffects As Long)
Set EX = EXC.ExcelEniv.ActiveSheet'ссылка на эксэль
Data.Clear
Data.SetData sp2_Tree.SelectedItem.Text, vbCFText
AllowedEffects = vbDropEffectCopy
End Sub


в событии OLEGiveFeedback проверять ActiveCell

-не сильно понял как это сделать? Это событие в объекте-источнике и оно не даёт никакой информации о цели - только "могу-нимогу". Пока таскаю курсор по листу ActiveCell не меняется.

[Antonariy]

Пока таскаю курсор по листу ActiveCell не меняется.

Точно, подсвеченная ячейка это не ActiveCell. Значит наверное никак.
Или сабклассить окно листа экселя (из vba) и использовать API.

[narg]

Я не против API - наверное можно повесить на курсор всякий там Shell и перечитать заодно Эпплмана. Просто не хотелось из пушки по воробьям - ячейки в екселе не выделяются, но обводятся и наверное их как-нибудь попроще можно достать.

[Antonariy]

Нельзя.