Можно ли посмотреть стек вызовов VBA

[Emerald]

Собственно сабж

[GSerg]

Ctrl+L

[Emerald]

Опять же имеется ввиду програмно. Чтобы в теле процедуры узнать кто ее вызвал и в зависимости от этого дейстовать.

[GSerg]

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

public caller as string

sub sub1()
  caller="sub1"
  sub2()
end sub

sub sub2()
  msgbox caller
  caller="sub2"
  sub3()
end sub
...

Ну или параметром. В каждую процедуру.

[Emerald]

Да нет... именно системый стек вызовов. Без самодельного сохранения в глобальную переменную! Суть в том, что этот sub вызывают другие sub'ы, которые нельзя менять

[GSerg]

Адрес VarPtr(Первый параметр процедуры)-4 содержит адрес возврата, принадлежащий вызывающей функции.
Не понимаю, как это поможет тебе.

[Antonariy]

Сомневаюсь. И я что-то не могу представить задачу, для которой он может понадобиться. Тем более в VBA. Может в консерватории что?..

[Emerald]

Тады ой... Но все равно спасибо.

>>Не понимаю, как это поможет тебе.
Та же фигня... Наверное никак.

>>Может в консерватории что?..
А чего в консерватории? Консервы?