No.3ベストアンサー
- 回答日時:
「うんともすんとも」とは、もう少しちゃんとした言葉には出来なかったのですか?
こちらで試してみているのだから、どうして出来ないかと考えたり、また、どうしてかと聞くべきではありませんか?掲示板で聞くというのは、一期一会だと思って聞いたほうが価値があると思います。
この"w"って、何かと考えれば分かるはずです。
w とは、すべてのウィンドウのことです。つまり、IEでタブで二つ以上開いていたら、最初のタブ側のウィンドウを探しているということです。
Set objShellWins = CreateObject("Shell.Application").Windows()
For Each w In objShellWins
それでも分からないなら、こうでもすれば、分かるはずです。
でも、探し方はいろいろあるはずで、何も、フォーカスしてるものの名前を取るということにこだわらなくても、ループして探してもよいし、他にもあります。最終目的は、そんなことではないのでしょう。この先があるはずだと思います。
'//
Sub Test1a()
Dim objIE As Object
Dim objShellWins As Object
Dim w As Object
On Error GoTo ErrHandler
Set objShellWins = CreateObject("Shell.Application").Windows()
For Each w In objShellWins
If TypeName(w) = "IWebBrowser2" Then
Set objIE = w
Exit For
End If
Next
If Not objIE Is Nothing Then
With objIE
If .Document.activeElement.ID <> "" Then
Debug.Print .LocationName, .Document.activeElement.ID
Else
Debug.Print "NO DATA"
End If
End With
End If
ErrHandler:
Set objIE = Nothing
Set objShellWins = Nothing
End Sub
'//
#2のマクロで取った結果:
http://oshiete.goo.ne.jp/
[検索する]のテキストボックスは、'searchtop' と出ています。
その次の
画面下の[カテゴリ]のコンボボックスは、'qa_ranking_change' となっています。
また、
https://www.google.co.jp/
の真ん中のテキストボックスは、'lst-ib'
http://www.yahoo.co.jp/
の最初のテキストボックは、'srchtxt'
この回答への補足
返信ありがとうございます。
教えて頂いたコードを実行させていただきました。
「goo」「google」「yahoo!」ともテキストボックスの値が出ました<(_ _)>
勉強になりました。ありがとうございます。
しかし、自分がトライ中のサイトでも試してみましたが、カーソルを合わせて実行してみましたが、
「NO DATA」となってしまいます(泣)
社内で使用しているイントラネットのサイトなのですが(ソースは下記です)、bodyフレームの中を
いじりたいのですが、ダメなようです。何かアクセスさせないような仕組みがあるのでしょうか?
引き続きご教示お願い致しますm(_ _)m
<html>
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=ISO-8859-1">
<title>SAAA soft</title>
<META name="GENERATOR" content="IBM WebSphere Studio">
</head>
<frameset frameborder="0" border="0" framespacing="0" rows="55,*">
<frame name="header" src="/jsp/HICM1.jsp?Change=0" scrolling="no" noresize marginheight="0" marginwidth="0">
<frameset frameborder="0" border="0" framespacing="0" cols="144,*">
<frame name="Menu" src="/jsp/HASP1.jsp" scrolling="no" noresize>
<frame name="body" src="/jsp/MessageAffServlet" scrolling="auto" noresize>
</frameset>
</frameset>
</html>
WindFaller 様、kumatti1 様
お世話になっておりますm(_ _)m ご連絡が遅くなり申し訳ございません。
kumatti1 様におっしゃっていただいております、「インスタンス化」を調べてみましたが、
やはり自分で少し勉強する必要があるようです。
こちらはいったん解決とさせていただきます。
いろいろとありがとうございましたm(_ _)m
No.4
- 回答日時:
>社内で使用しているイントラネットのサイトなのですが
イントラネットが対象なら、Microsoft Internet Controlsに参照設定して、
>Dim ie As New SHDocVw.InternetExplorerMedium
でインスタンス化したIEを使うとか。
この回答への補足
kumatti1 様
お世話になっておりますm(_ _)m
あまりの自分のできなさに、心が折れておりました。
土日は休日のため、月曜に会社に行ったらやってみます。
ありがとうございます!
No.2
- 回答日時:
こんにちは。
これで取れるような気がします。本当は、JavaScript経由で行ったほうがわかりやすいのでしょうが、VBAですから、こんな方法しか思いつきません。以下は、教えてGooのトップページで試してみました。
まあ、取れる所とそうでない所はあるとは思いますが。
'//
Sub Test1()
Dim objIE As Object
Dim objShellWins As Object
Dim w as Object
On Error GoTo ErrHandler
Set objShellWins = CreateObject("Shell.Application").Windows()
For Each w In objShellWins
If TypeName(w) = "IWebBrowser2" Then
Set objIE = w
Exit For
End If
Next
If Not objIE Is Nothing Then
With objIE
Debug.Print .Document.activeElement.ID 'イミディエイトwinへ出力
End With
End If
ErrHandler:
Set objIE = Nothing
Set objShellWins = Nothing
End Sub
'//
返信ありがとうございます。
上記コードを実行してみました(「教えてGooで試しました」)が、うんともすんともなりませんでした。
ありがとうございました。
No.1
- 回答日時:
Dim elm As Object
Set elm = ie.document.activeElement
こんな感じで。
この回答への補足
RE:
返信ありがとうございます。
やってみました。Aというテキストボックスにカーソルを置いてみて、
イミディエイトウインドウで「print elm」とやってみましたが、
[object]
と出ます。その後、Bというテキストボックスにカーソルを移動して、
ObjIE.Document.getElementsByName(elm)(0).Focus (←Aのテキストボックスに移動しているつもりです)
とやってみましたが、
「実行時エラー91、オブジェクト変数または、Withブロック変数が設定されていません」
と出てしまいます。
何が原因なのかさっぱりわかりません。引き続きご教示お願い致します<(_ _)>
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(パソコン・周辺機器) EXCELで「WEBオプションの対象ブラウザ」を変更する方法 2 2023/04/12 15:44
- Excel(エクセル) VBAで「クエリと接続」の画面を出せますか? 2 2022/10/24 13:35
- Excel(エクセル) 「Excelのオプション」の「ユーザーインターフェイスのオプション」の設定値をVBAで取得したい 1 2022/07/31 23:49
- その他(ブラウザ) Excel VBA seleniumのedge操作について 業務上、分からないことがございまして、先 1 2022/06/20 16:59
- Visual Basic(VBA) VBAでプロセデュア間で共有できるエリアの設定方法は? 3 2023/04/15 19:06
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) ファイル一覧表を使ったファイルの移動 5 2022/08/10 15:37
- Visual Basic(VBA) VBAでArrayListを使う為の「mscorlib.tlb」の参照設定について 3 2022/03/23 19:45
- Visual Basic(VBA) EXCEL VBA データベースの内容をユーザーフォームに表示したい。 5 2023/02/14 11:40
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
TDSマジックランプシアター 箱...
-
iPhoneのクイックアクションを...
-
MMDでAVI出力後の映像、音声に...
-
至急です。 トイレに行きたいな...
-
デュアルディスプレイ(マルチ...
-
タスクバーに文字列を表示した...
-
iPhoneのロック画面に出てくる...
-
携帯のタッチ音を消したい
-
C#でButtonのフォーカス枠を消...
-
[化学基礎] μmのμはどうして...
-
子ダイアログのコントロールに...
-
パソコンの液晶画面にマジック...
-
無線LANルーターについて… 無線...
-
Flashで画像のズームについて質...
-
ローカルでWebページが見れない
-
メッセージボックスを前面に表...
-
レーザのスポット径の計算式
-
gooブログ編集画面をHTMLエディ...
-
ipodが勝手に一時停止になって...
-
Galaxy s8 タッチ感度
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
メッセージボックスを前面に表...
-
TDSマジックランプシアター 箱...
-
Excelのマクロで実行時エラー”1...
-
SPREAD(GrapeCity)のセルにフォ...
-
Chrome フォーカス時に枠が表示...
-
C#でButtonのフォーカス枠を消...
-
iPhoneのクイックアクションを...
-
コンボボックスの開いたリスト...
-
コンボボックスの三角を一時的...
-
レーザのスポット径の計算式
-
DataGridViewで入力チェック後...
-
除光液の正しい捨て方がわかり...
-
DAMのデンモクの使い方
-
、ウイルスバスターからの表示...
-
tabキーによるフォーカスをさせ...
-
PowershellでCLIとISEの結果が違う
-
iPhoneのロック画面に出てくる...
-
ASP.NETにてロストフォーカス処理
-
雷のようなアニメーションをウ...
-
JavaScript でpk戦のゲームを作...
おすすめ情報