No.1ベストアンサー
- 回答日時:
簡単なサンプルを紹介します。
サンプルはGoogleを開いて「油淋鶏」と入力して、検索(サブミット)します。
下準備
[Alt]+[F11]でVBを開き、[ツール]→[参照設定]
Microsoft Internet Controls
Microsoft HTML Object Library
この2つにチェックしましょう。
----以下サンプル----
Const URL = "http://www.google.co.jp/"
Const InputName = "q" '入力するInputの名前
Const InputValue = "油淋鶏" '入力するデータ
Const FormName = "f" '送信するFormの名前
Sub sample()
Dim AppIE As InternetExplorer
Dim Doc As HTMLDocument
Dim obj As Variant
'IEを起動して表示する
Set AppIE = CreateObject("InternetExplorer.application")
AppIE.Visible = True
'URLを開く
AppIE.Navigate URL
'完了するまで待つ
wait_ie AppIE
'Documentを取得する
Set Doc = AppIE.Document
'Inputにデータを入力する
For Each obj In Doc.getElementsByTagName("input")
If obj.Name = InputName Then
obj.Value = InputValue
End If
Next
'Formを送信する
For Each obj In Doc.forms
If obj.Name = FormName Then
obj.submit
Exit For
End If
Next
'完了するまで待つ
wait_ie AppIE
'IEを終了するなら下を行のコメントをはずす
'AppIE.Quit
End Sub
'IEの処理が終了するのを待つサブルーチン
Sub wait_ie(AppIE As InternetExplorer)
Do Until AppIE.ReadyState >= READYSTATE_COMPLETE
DoEvents
Loop
Do While AppIE.Busy
DoEvents
Loop
End Sub
----以上サンプル----
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) VBA CSV出力について 3 2023/04/19 14:14
- Excel(エクセル) Excel リンク先のエクセルファイルの削除 同時に行を削除したい 1 2022/11/29 16:20
- その他(ソフトウェア) Googleフォーム、効率的な入れ方 2 2022/10/03 22:44
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Excel(エクセル) エクセル データの入力規制について 3 2022/03/30 17:16
- Excel(エクセル) エクセルでのVBA 2 2022/08/03 06:48
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
- システム CSVファイルのマッピング処理の省力化 1 2022/11/24 00:01
- Excel(エクセル) セルの上書き禁止について 5 2022/04/02 10:09
- Excel(エクセル) エクセル:条件付き書式で色付けについて 2 2023/03/30 21:53
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBA テキストボックス...
-
テキストボックスの番号を使っ...
-
入力フォームの値をQRコードで...
-
初歩的な事だと思います。 Sub...
-
c#でTextBoxの入力制限
-
TextBoxから数字が文字...
-
VBAで質問があります
-
VBAでInputBoxの再入力をさせる...
-
Vba テキストボックスでボック...
-
ExcelVBA No.を自動連番で設定...
-
TextBoxに特定の文字のみ入力を...
-
数字以外の入力をエラーにする...
-
VBAの質問になります メッセー...
-
accessで該当するレコードがな...
-
SQL で数値フィールドにDBNULL...
-
arrows we
-
phpMyAdmin/テーブル作成エラー...
-
携帯サイト作成 半角数字(半角...
-
EXCEL VBA で指定した範囲に入...
-
Java 変数について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA テキストボックス...
-
テキストボックスの番号を使っ...
-
VBAで質問があります
-
Windowsのアプリ開発ってなんの...
-
Excel-VBAでInputBox+Pulldown...
-
EXCEL VBA で指定した範囲に入...
-
初歩的な事だと思います。 Sub...
-
数字以外の入力をエラーにする...
-
VBAでInputBoxの再入力をさせる...
-
入力フォームの値をQRコードで...
-
excel vba でユーザーフォーム...
-
TextBoxから数字が文字...
-
VBAの質問になります メッセー...
-
DataGridViewの桁数制限に関して
-
accessで該当するレコードがな...
-
c#でTextBoxの入力制限
-
VBA R1C1形式で変数の入力について
-
エディットボックスの入力制限...
-
「イ分」・・・フンという文字...
-
アルファベットGの小文字の入力
おすすめ情報