Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


59829 / 76732 ←次へ | 前へ→

【21572】Re:IEへのアクセスについて
回答  りすりす  - 05/1/24(月) 15:07 -

引用なし
パスワード
   >ログオン後、どのように繋いでいけばいいのでしょうか?
>お手数おかけしますが、よろしくお願いします。

ここは、JavaScript教室ではありません。
VB質問箱です。

OLEとIEで検索してください。
下記でマイクロソフトのドキュメントを参考にしましょう。
http://msdn.microsoft.com/library/default.asp?url=/workshop/browser/webbrowser/browser_control_node_entry.asp
http://msdn.microsoft.com/workshop/browser/webbrowser/reference/objects/internetexplorer.asp

JavaScriptリファレンス
http://www.tohoho-web.com/js/index.htm


<html>
<head>
<title>new_page_1.html</title>
</head>
<body>
<script type="text/javascript">
<!--
function SelectMenu()
{
confirm("Hello World")
}
function TestHit()
{
MENU1.onclick();
}
//-->
</script>
<table border="0">
<tbody>
<tr>
<td id="MENU1" onmouseover="DoMouseOver('MENU1')"
onmouseout="DoMouseOut('MENU1')" onclick="SelectMenu(1);" class="menu"
align="center" bgcolor="#ff00ff" height="27" nowrap="nowrap"
valign="middle" width="185">メニュー1</td>
</tr>
<tr>
<td id="MENU2" onmouseover="DoMouseOver('MENU2')"
onmouseout="DoMouseOut('MENU2')" onclick="SelectMenu(2);" class="menu"
align="center" bgcolor="#ff00ff" height="27" nowrap="nowrap"
valign="middle" width="185">メニュー2</td>
</tr>
<tr>
<td top="" onclick="TestHit();"
style="background-color: rgb(255, 255, 204); text-align: center;">Hello
World<br>
</td>
</tr>
</tbody>
</table>
</body>
</html>

Private Sub CommandButton1_Click()

 Dim objIE As Object

  Set objIE = CreateObject("InternetExplorer.application")
 
  objIE.Visible = True
  objIE.navigate "http://自分のページ/new_page_1.html" ' ローカルで試すならセキュリティを下げる
 
 Do While (objIE.Busy)
  DoEvents
 Loop
 Call objIE.document.all.Menu1.Click

End Sub

0 hits

【21562】IEへのアクセスについて kawata 05/1/24(月) 9:32 質問
【21563】Re:IEへのアクセスについて りすりす 05/1/24(月) 10:32 回答
【21564】Re:IEへのアクセスについて kawata 05/1/24(月) 10:51 お礼
【21572】Re:IEへのアクセスについて りすりす 05/1/24(月) 15:07 回答
【21573】Re:IEへのアクセスについて kawata 05/1/24(月) 15:13 お礼
【21574】Re:IEへのアクセスについて りすりす 05/1/24(月) 15:16 発言
【21575】Re:IEへのアクセスについて kawata 05/1/24(月) 15:20 お礼
【21578】Re:IEへのアクセスについて りすりす 05/1/24(月) 15:48 発言
【21579】Re:IEへのアクセスについて kawata 05/1/24(月) 15:56 お礼
【21581】Re:IEへのアクセスについて りすりす 05/1/24(月) 16:15 発言
【21582】Re:IEへのアクセスについて kawata 05/1/24(月) 16:24 お礼

59829 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free