<html><head><title>タイトル</title>
<script language=vbscript>
Sub window_onload()
Set Excel=CreateObject("Excel.Application")
hwnd=Excel.ExecuteExcel4Macro("CALL(""user32"",""FindWindowA"",""JJC"",0,""タイトル"")")
Excel.ExecuteExcel4Macro("CALL(""user32"",""SetWindowPos"",""JJJJJJJJ""," & hwnd & ",-1,0,0,0,0,3)")
End Sub
</script></head></html>