Есть файл НТМL(хотя, вообще-то это может быть и какая-нибудь аппликация). Он загружает другой файл НТМL(или Ехсеl, или еще какую-нибудь аппликацию), как WebControl (DispHTMLObjectElement). Пожалуйста, напишите, если есть путь, чтобы действие в вызываемом окне, например, нажатие на кнопку(button), вызвало действие в вызыващем окне(например, выполнило event или просто какую-то функцию).

Спасибо.

Я нашел сам.

В главном окне я поместил

<input type="hidden" name="MainTest" id = "10" onclick="CallAlert()"></input>

где CallAlert - функция на javascript.

HTML :

В загружаемом окне :

<button type="button" onclick="ClickEvt()" >Function</button>

а вот функция :

<script type="text/javascript">
function ClickEvt() {
var AllWin = new ActiveXObject("Shell.Application").Windows();
var Win;
for (var ii = 0; ii < AllWin.Count; ii++);
Win = AllWin.Item(ii);
if ( Win.LocationName == "main_page.html") {
Win.document.getElementById("10").click();
}
}
}
</script>

В Excel VBA функция выглядит так

(нужны дополнительные Reference для Internet controls и HTML) :

Private Sub CommandButton1_Click()
' Microsoft Internet Controls

Dim shellWindows As SHDocVw.shellWindows
Dim openedWindow As SHDocVw.InternetExplorer
Dim objDoc As HTMLDocument

Set shellWindows = New SHDocVw.shellWindows

For Each openedWindow In shellWindows
If openedWindow.LocationName = "main_page.html" Then
Set objDoc = openedWindow.Document
objDoc.getElementById("10").Click
End If
Next openedWindow
End Sub