|
▼初心者 さん:
>▼初心者 さん:
>>>Sub MyIE()
>>> Dim MySt As String
>>> Const URL As String = "http://www.vbalab.net/"
>>>
>>> MySt = InputBox("検索する語句を入力して下さい")
>>> If MySt = "" Then Exit Sub
>>> With CreateObject("InternetExplorer.Application")
>>> .Visible = True
>>> .Navigate URL
>>> Do While .Busy: DoEvents: Loop
>>> Do Until .ReadyState = 4: DoEvents: Loop
>>> With .Document
>>> .All("txtSearch").Value = MySt
>>> .Forms(0).submit
>>> End With
>>> End With
>>>End Sub
>>
>>上記プログラムで、.Forms(0).submit の部分ですが、これは「officeテクニック検索」というボタンを押したときに発生する処理を実行するということですよね?
>>
>>例えば、ボタンを押すではなく、リンクを押すという場合はどのように書けばいいでしょうか?
>>VBA質問箱のトップページの下のほうに、「テクノファイブ株式会社」というリンクがあります。これを押すという処理はどのように書けばいいでしょうか?
>>.Navigate "http://www.xxxx.xxx"
>>という書き方ではなく、リンクを押すという書き方はできるでしょうか?
>
>なんかヘンな質問になってますが、「リンクを押す」→「リンクをクリックする」です。
SendKeys "{TAB}"
と
SendKeys "{ENTER}"
で解決しました。
お騒がせして申し訳ありませんでした。
|
|