Microsoft Access2002を使ってプログラムを作っています。Internet Explorerを開いてリンクを自動でクリックさせたいのですが、その方法がわかりません。（IEをオープンして、自動でボタンのクリックはできます。）ずばり、そのコードが書いてあるサイトか、コードを教えてください。ちなみにIEのオープンまでは、次のコードでおこなっております。--- Private Sub Test_Click() Dim strURL As String Dim objIE As Object strURL = ”http://www.yahoo.co.jp/” Set objIE = CreateObject(”InternetExplorer.application”) objIE.Visible = True objIE.Navigate strURL ’「知る」の「天気」を自動クリックさせる End Sub ---

Question

topo

10

10もっと見る

60pt

コンピュータ

Microsoft Access2002を使ってプログラムを作っています。Internet Explorerを開いてリンクを自動でクリックさせたいのですが、その方法がわかりません。（IEをオープンして、自動でボタンのクリックはできます。）ずばり、そのコードが書いてあるサイトか、コードを教えてください。ちなみにIEのオープンまでは、次のコードでおこなっております。--- Private Sub Test_Click() Dim strURL As String Dim objIE As Object strURL = ”http://www.yahoo.co.jp/” Set objIE = CreateObject(”InternetExplorer.application”) objIE.Visible = True objIE.Navigate strURL ’「知る」の「天気」を自動クリックさせる End Sub ---

回答の条件

URL必須
1人2回まで

登録：2004/01/08 15:34:52
終了：--

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

コメントはまだありません

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

TONTON3 · Answer 1 · 2004-01-08T16:14:51+09:00

http://www.ken3.org/backno/backno_vba15.html

三流君VBAで/IE操作/.document.all(0).innerHTML/.Document.links(i).href/For Each In

strURL = ”

http://weather.yahoo.co.jp/weather/

Yahoo!天気情報

”

ではダメ・・・でしょうねやはり

では上記サイトのようにHTMLのソースから

知る、天気　の部分を取り出して

Navigate するのが望ましいのではないでしょうか？

kamicha1 · Answer 2 · 2004-01-09T00:12:13+09:00

No.2

kamicha19402004/01/09 00:12:13

10pt

http://www.ken3.org/cgi-bin/group/vba_ie.asp

三流君VBAでIE操作 InternetExplorer.Applicationを操作する

少なくともNavigateは必要です。Clickのほうがイメージに合っていると言いたいところなのでしょうけど。

http://fukkey.dyndns.org/pins/acc/030531/83455.html

ご回答ありがとうございます。

やはり、Navigateは必要ですか。

今回の質問では、単純なリンクなのでNavigateで対応できるのですが、たまに、Java Script等で、クリックに反応して動作するサイトがあるので、Clickで対応できればと思っておりました。（質問に書いてなかったので解りにくかったと思うのですが）

実際のサイトはログインしたあとにそのページがあるので、サイトを提示できませんが・・・

ちなみに、上記以外でIEをVBAで操作するのに参考になるサイトや本があれば教えてください。（日本語でお願いします）

2004/01/09 11:27:59

SHIGEPON · Answer 3 · 2004-01-09T14:10:31+09:00

http://www.happy2-island.com/vbs/cafe02/index.html

7.インターネットエクスプローラの操作

> IEをVBAで操作するのに参考になるサイト

基本的なことが中心なのでご存知のことかもしれませんが。

本題のご質問の件ですが、

基本的にjavascriptのdocument以下で使えるメソッドは使用可能な筈ですのでobjIE.Navigate strURL

の後に

Do Until objIE.Busy = False: Loop objIE.Document.links(17).Click

を足してみてください。画面遷移します。

これでonclickが効くかまでは確認してませんが、これでできなければこれ以外の方法は無理じゃないかと思います。

回答（3件）

TONTON321242004/01/08 16:14:51

kamicha19402004/01/09 00:12:13

SHIGEPON1502004/01/09 14:10:31

コメント（0件)

この質問への反応（ブックマークコメント）