No.4ベストアンサー
- 回答日時:
こんばんは。
KenKen_SP です。> フォーカスが移った時点でIEのテキストボックスを埋めようと...
IE のテキストボックスにデータを流し込むなら、特にフォーカスを得なくても
可能だと思いますよ。例えば、テキストボックスなら INPUT タグですから、
For Each f In IE.Document.all.tags("input")
' TEXTBOX
If LCase(f.Type) = "text" then
Debug.Print f.Name
End If
Next f
みたいな感じで列挙できます。あとは HTML ソースの name 属性を見て、
代入の判定をすれば良いかと。例えば、郵便番号なら大抵 zip とか postal
なんて名前がついてますから、
For Each f In IE.Document.all.tags("input")
Select Case LCase(f.Type)
Case Is = "text"
If f.Name Like "*zip*" or f.Name Like "*postal*" then
f.Value = "123-4567"
End If
Case Is = "radio"
Case Is = "checkbox"
End If
Next f
このような感じで。
最初から テキストボックスの name 属性が分かっている場合は決め打ちで、
IE.Document.all.getElementsByName("zip").Value = "123-4567"
とできます。
ご質問の意図から外れていたら、ごめんなさい。それから、上記コードは
直接入力したものですから、エラーがあった場合も、済みません。
この回答への補足
結局、name が設定されているので、
IE.Document.all.getElementsByName("zip").Value = "123-4567" のスタイルで落ち着きました。
ありがとうございました。
また、よろしくお願いします。
No.3
- 回答日時:
レスが無いとこ見ると、#2 は外していたのでしょうか?
> 開いているIEがあれば、そのIEをmyIEに代入し...
知りたいのは、既に起動済みの IE をアクティブにする方法ですか?
または Shell で起動した IE ?
この回答への補足
ありがとうございます。フォーカスを移すという点ではOKでした。ただ、コレも、私の説明不足でしたが、フォーカスが移った時点でIEのテキストボックスを埋めようと、Stopを入れていたのですが、そのStopでVBAにまたフォーカスが戻ってきてしまって。。。w
それで、、、、なんだかんだ考えていて遅くなりました。すみません。。<m(__)m>
で、最終的に、
Textbox=Inputbox(xxx,xxx,xx)でいけるかナット、そんな感じに動いています。
以上、報告させていただきます。
No.2
- 回答日時:
こんにちは。
KenKen_SP です。いろいろ方法はあります。IE オブジェクトを作って起動した場合、ウインドウ
ハンドルもタイトルも容易に取得できます。
確実なのは、ウインドウハンドルを使ってアクティブにする方法です。
Private Declare Function SetForegroundWindow Lib "user32.dll" ( _
ByVal hWnd As Long _
) As Long
Sub Sample
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
'(処理)
SetForegroundWindow(IE.HWND) '<-- アクティブに
Set IE = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Chrome(クローム) グーグルクロムをマイクロソフト・エッジに切り替える方法 2 2022/06/20 10:08
- InternetExplorer(IE) Microsoft edgeのIEモードを解除したいのですが。 3 2023/04/09 13:51
- JavaScript [Java] Edgeでのアドレスバー非表示について 3 2022/04/20 17:51
- Excel(エクセル) 【エクセルマクロ】既に開いているIEの、サイズや表示位置を変更するには 4 2022/12/01 22:57
- その他(パソコン・周辺機器) EXCELで「WEBオプションの対象ブラウザ」を変更する方法 2 2023/04/12 15:44
- その他(IT・Webサービス) micro soft teamsのカメラ設定について 1 2023/05/25 18:07
- 株式市場・株価 HyperSBI 余力確認 ブラウザ 2 2022/06/19 09:17
- フリーソフト TARGET frontier JVから起動するブラウザを変えたい 1 2022/10/09 12:08
- Excel(エクセル) ExcelのVBAでWordを読み取り専用で開いて、見たいページに自動で移動する方法を教えて頂きたい 4 2022/07/27 10:39
- Excel(エクセル) Excel 画像のドラッグ&ドロップ 仕様変更はいつから 2 2022/09/16 09:06
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PCがwindows Updateで起動しな...
-
DELLのPCにPre-Boot Syst...
-
レジストリの変更が反映されない
-
【Windows10】パソコンがEZ MOD...
-
access2019の起動が遅い
-
メモ帳(notepad.exe)の起動オプ...
-
exeファイルが起動しない
-
相手に渡したプログラムソフト...
-
WindowsホストのVMware worksta...
-
三相200V7.5KWモータ...
-
Windows Media Player 11を多重...
-
富士通アップデートナビを起動...
-
VirtualBox でWindows XP イン...
-
PCの知識なし太郎です。 Sataポ...
-
AndoroidのタブレットのOSをWin...
-
ソフトを多重起動させる方法
-
パソコンのBIOSの優先順位を変...
-
パソコンについて パソコンcpu ...
-
単相交流モーターの回転方向を...
-
Windows11 で電卓の起動が遅い
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
SBI証券HYPER SBI 2のエラー
-
DELLのPCにPre-Boot Syst...
-
レジストリの変更が反映されない
-
Windows Media Player 11を多重...
-
【Windows10】パソコンがEZ MOD...
-
exeファイルが起動しない
-
パソコンの起動が遅い
-
メモ帳(notepad.exe)の起動オプ...
-
VirtualBox でWindows XP イン...
-
マウスカーソルの横にある砂時...
-
アプリケーション起動時には音...
-
PCの知識なし太郎です。 Sataポ...
-
Windows11 で電卓の起動が遅い
-
【Microsoft Windows 10】マイ...
-
三相200V7.5KWモータ...
-
DVDFabアップデートを表示させ...
-
prefetchファイルの削除
-
Dynabook のSSD換装に失敗します
-
なんでこのボンクラアプリは起...
-
BIOSの次にno option to boot t...
おすすめ情報