Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

46963 / 76737

←次へ　｜　前へ→


	【34741】Re:IEに入力するには

初心者 - 06/2/10(金) 21:22 -


	引用なし

	パスワード

▼初心者さん：
>▼初心者さん：
>>>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}"
で解決しました。
お騒がせして申し訳ありませんでした。

0 hits

▼

【34717】IEに入力するには 初心者 06/2/10(金) 14:54