クリック | nujonoa_blog https://nujonoa.com 人生に役立つデータ集 Sat, 22 Oct 2022 13:56:15 +0000 ja hourly 1 https://wordpress.org/?v=6.8.3 https://nujonoa.com/wp-content/uploads/2019/04/cropped-DSC00976-e1554456145409-32x32.jpg クリック | nujonoa_blog https://nujonoa.com 32 32 【GAS_Webアプリ②】java-scriptでボタンをクリック https://nujonoa.com/gas_webapplication_2_button/ https://nujonoa.com/gas_webapplication_2_button/#respond Fri, 11 Feb 2022 13:46:35 +0000 http://nujonoa.com/?p=10436
  1. 【GAS_Webアプリ②】java-scriptでボタンをクリック
  2. コード
    1. コード.js
    2. index.html
    3. js1.html
  3. 出力結果
  4. サンプル

【GAS_Webアプリ②】java-scriptでボタンをクリック

今回は、ボタンをクリックすることで、動作するウェブアプリを作成していきます。

コード

コード.js

まずはいつものおまじないです。
webアプリを立ち上げる動作になります。

function doGet() {
let html = HtmlService.createTemplateFromFile('index').evaluate().getContent();
return HtmlService.createHtmlOutput(html)
  .setSandboxMode(HtmlService.SandboxMode.IFRAME)
  .setXFrameOptionsMode(HtmlService.XFrameOptionsMode.ALLOWALL);
}

index.html

次は、htmlになります。

<?!= HtmlService.createHtmlOutputFromFile('js1').getContent(); ?>

でjs1.htmlのjavascriptを読み込む場所を作成し、
・実行ボタン
と
・アウトプットの場所
を記したhtmlを作成します。

<!DOCTYPE html>
<html lang="ja">
<head>
	<meta charset="utf-8">
	<title>clicks</title>
    <?!= HtmlService.createHtmlOutputFromFile('js1').getContent(); ?>
</head>
<body>
	<input type="button" id="execButton" value="実行">
	<div id="output">
	</div>
</body>
</html>

js1.html

今回のjavascriptからは「jQuery」を使用していきます。
jQueryは簡単にいうと、より簡単にjavascriptをかけるようにするテンプレートです。

<script src="//ajax.googleapis.com/ajax/libs/jquery/1.10.2/jquery.min.js"></script>

で呼び出すことで、それ以降は簡単にjsを使用することができます。

今回は、ボタンを押すと→アウトプットのところに「クリックされました」と表示される仕組みです。

<!DOCTYPE html>

<script src="//ajax.googleapis.com/ajax/libs/jquery/1.10.2/jquery.min.js"></script>

<script>

//ここに記述↓↓↓

// DOMの準備後に実行する内容
$(function() {
	// ［実行］ボタンを押した時の処理を設定
	$("#execButton").click(function() {
		$("#output").append("クリックされました<br>");
	});

});

//ここに記述↑↑↑

</script>

出力結果

出力結果は下記のとおりです。

実行ボタンをクリックすると、「クリックされました」と表示されることが分かります。

サンプル

サンプルを置いておきますので、コピーしてお使いください。

サンプルをコピー

「デプロイ」→「デプロイをテスト」→「URLをクリック」
で簡単にウェブアプリをテストすることが可能です。

]]> https://nujonoa.com/gas_webapplication_2_button/feed/ 0 【応用編・動画あり】VBAでYAHOOの検索補助を抜き出してみた～VBA(マクロ)でIE操作 https://nujonoa.com/vba-ie-yahoo-sujest/ https://nujonoa.com/vba-ie-yahoo-sujest/#respond Thu, 30 May 2019 14:15:05 +0000 http://nujonoa.com/?p=1211
  1. VBAでYAHOOの検索補助を抜き出してみた
    1. 要素の抜き出し方が難しい。。
  2. 入力補助の要素を検索
  3. 記事のまとめ

VBAでYAHOOの検索補助を抜き出してみた

みんなどんなものを検索しているのかなーと検索できる方法はないかな？と思ったときに、
YAHOOのキーワード入力補助が役立つのではないかと思いVBAで抜き出してみました！
↓(赤で囲った場所です！）

要素の抜き出し方が難しい。。

VBAのコードは、
①サイトを立ち上げて
②検索ボックスに値を入れて、
③入力補助の要素のinnerTEXTを書き出す。
という内容なのですが、
③の有力補助のinnerTextをに抜き出すのが、ちょっと難儀しましたので、説明していきます。

入力補助の要素を検索

まずはYAHOOに行って、入力補助を表示させます。
その状態で、「F12」を押し開発者ツールを起動させます。
ctrl+Bで要素の検索をして、入力補助をクリックします。
すると、ID「srchAssistLists」の中に検索候補が含まれていることが分かりました。
そして、その中身はリンクの<a>で挟まれていることが分かりましたので、
.getElementbyid("srchAssistLists").getElementsbytagname("A")(0).INNERTEXT
で順に抜き出していけば書き出せることが分かりました。

ということで、↓のようなコードを下記実行しました！

Sub IEoutputyahoo()

Application.ScreenUpdating = False
Dim objIE As Object
Set objIE = GetObject("", "InternetExplorer.Application")
objIE.Visible = True
     
    objIE.Navigate "https://www.yahoo.co.jp/"  ' このURLを任意に変更
     
    ' ページの表示完了待ち｡
    While objIE.ReadyState <> 4 Or objIE.Busy = True
        DoEvents
    Wend

    Dim objTABLE As Object
    Set objTABLE = objIE.document
     
    On Error Resume Next　'結構エラーが伴うのでつけとく

    Dim A As Object
    
    For i = 2 To 73
    
    objIE.document.getElementbyid("srchfield").Value = Cells(i, 2)
    objIE.document.getElementbyid("srchfield").Select
    SendKeys "{BS}"
    SendKeys Cells(i, 2)

    Application.Wait Now() + TimeValue("00:00:01")

    
Cells(i, 4).Value = objIE.document.getElementbyid("srchAssistLists").getElementsbytagname("A")(0).INNERTEXT
Cells(i, 5).Value = objIE.document.getElementbyid("srchAssistLists").getElementsbytagname("A")(1).INNERTEXT
Cells(i, 6).Value = objIE.document.getElementbyid("srchAssistLists").getElementsbytagname("A")(2).INNERTEXT
Cells(i, 7).Value = objIE.document.getElementbyid("srchAssistLists").getElementsbytagname("A")(3).INNERTEXT
Cells(i, 8).Value = objIE.document.getElementbyid("srchAssistLists").getElementsbytagname("A")(4).INNERTEXT
Cells(i, 9).Value = objIE.document.getElementbyid("srchAssistLists").getElementsbytagname("A")(5).INNERTEXT
Cells(i, 10).Value = objIE.document.getElementbyid("srchAssistLists").getElementsbytagname("A")(7).INNERTEXT
Cells(i, 11).Value = objIE.document.getElementbyid("srchAssistLists").getElementsbytagname("A")(8).INNERTEXT
Cells(i, 12).Value = objIE.document.getElementbyid("srchAssistLists").getElementsbytagname("A")(9).INNERTEXT
Cells(i, 13).Value = objIE.document.getElementbyid("srchAssistLists").getElementsbytagname("A")(10).INNERTEXT
            
        ' ページの表示完了待ち｡
    While objIE.ReadyState <> 4 Or objIE.Busy = True
        DoEvents
    Wend

    Next

 Application.ScreenUpdating = True

End Sub

上記のプログラムを実行すると2列目に入っている文字をどんどん入力し、
キーワードの候補を抜きだしてくれます。

↓結果は下記の通り、エクセルに書き出されました！
　かなり楽ちんでした。。。

記事のまとめ

この記事のまとめは下記のとおりです。

・無理やりにでもとっかかりになる候補を探せ！！笑
・番号は（0）から始まるので注意すること！

その他、VBAでIEを動かすために必要な情報をまとめています！！

こちらを参照ください！
【まとめ】VBAでIEを動かすプログラムまとめ！
まだ、あまり確立されていないVBAでIEを動かすプログラムについて、素人ながらまとめてみました！【まとめ】VBAでIEを動かすプログラムまとめ！・VBA(マクロ)でIEを動かしたい！・社内プログラムでIEと連動させたい。・けれど、参考になる...
nujonoa.com
2020.06.10

]]> https://nujonoa.com/vba-ie-yahoo-sujest/feed/ 0 【簡単】VBAでIEの表をエクセルに書き出す方法～VBA(マクロ)でIE操作 https://nujonoa.com/vba-ie-table-output/ https://nujonoa.com/vba-ie-table-output/#comments Fri, 17 May 2019 16:46:55 +0000 http://nujonoa.com/?p=906
  1. VBAでIEの表の内容をエクセルに書き出す方法～
    1. 楽天証券の表の内容を書き出す
  2. プログラムの解説
    1. htmlの表(テーブル)の構成
      1. For Each A In objIE.document.getElementsByTagName("tr")
      2. objIE.document.getElementsByTagName("tr").Children(”番号”) .innertext
      3. セルへの書き出し
      4. おまけ：Application.StatusBar = I & "/" & J
  3. 記事のまとめ

VBAでIEの表の内容をエクセルに書き出す方法～

IEの表をVBAでエクセルに書き出したい！
でも、IDや名前もわからないし、どうやって抜き出すべきかわからない！
という人も多いかと思います。
そこで今回は、楽天証券の表の内容を書き出すプログラムを説明しながら、
その方法を解説したいと思います。

楽天証券の表の内容を書き出す

楽天証券の表を書き出すためのコードになります。簡単に説明すると、
①サイトを立ち上げて
②tagName＝”tr”を検索　(”tr”は「行」を表します。)
③.chirdrenを用いてtrの中の子要素の「列」を取得、書き出し。
　※何個列があるかわからないので、とりあえず20まで取得。
　　エラーが起こらないようにOn Error Resume Next入れてます。
という内容です。

Sub IE_table_output()
    
 Application.ScreenUpdating = False
     
'IEの起動
Dim objIE As Object
     
Set objIE = GetObject("", "InternetExplorer.Application")
     
objIE.Visible = True
         
    objIE.Navigate "https://www.rakuten-sec.co.jp/web/fund/find/search/result.html"  ' このURLを任意に変更
         
    ' ページの表示完了待ち｡
    While objIE.ReadyState <> 4 Or objIE.Busy = True
        DoEvents
    Wend
     
    On Error Resume Next      '値がないとエラーが出るので、エラー回避用
    
    I = 1  '開始行を指定
    L = 0
    J = objIE.document.all.Length  '要素の数を知る
        
    Cells(I, 1).Value = "No"
              
    Dim A As Object
         
    For Each A In objIE.document.getElementsByTagName("tr")
    
        For L = 0 To 20
    
            Cells(I, L + 1) = A.Children(L).innertext
           
        Next
        
        I = I + 1
            
        'ステータスバーに進捗を表示
        Application.StatusBar = I & "/" & J
         
    Next
        
    On Error GoTo 0
  
    Cells.WrapText = False
    
Application.ScreenUpdating = True
Application.StatusBar = False

End Sub

上記のプログラムを実行すると楽天証券の下記の表を、エクセルに書き出すことができたと思います。

↓エクセルに書き出される

プログラムの解説

htmlの表(テーブル)の構成

htmlの表の構成は下記のようになっております。
trが行、th,tdが列を示し、trの中にthやtdが含まれております。
この特性を利用してプログラムを書いていきます。
※ちなみにthは「見出しで太字となり中央揃い」tdは「通常の文で左揃い」の違いです。

<table>
<tr>
 <th>行1列1</th>
 <th>行1列2 </th>
 <th>行1列3 </th>
 </tr>
 <tr>
 <td>行2列1</td>
 <td>行2列2 </td>
 <td>行2列3 </td> 
 </tr>
 <tr>
 <td>行3列1</td>
 <td>行3列2 </td>
 <td>行3列3 </td> 
 </tr> 
 </table>

For Each A In objIE.document.getElementsByTagName("tr")

まずは、for each構文を使って、タグの名前がtrのものをAに格納します。

objIE.document.getElementsByTagName("tr").Children(”番号”) .innertext

列の要素はtrタグの中にありましたので、
A.Children(”番号”).innerhtmlでtrタグの中のテキストを一つずつ書き出していきます。
注意していただきたいことは、番号が「0」から始まることです。
ちなみに今回は、列の要素が何個あるかわからなかったので、0~20と21回繰り返しています。
また、要素がないとエラーが起きますので、On Error Resume Next で無理やり実行しています。

セルへの書き出し

trは行を表していますので、trごとにi＝i+1と加算していっています。
また、子要素tdは列でしたので、子要素を進めるのと同時にL=L+1と加算してセルに書き出していっています。

おまけ：Application.StatusBar = I & "/" & J

進捗状況を確認するため、ステータスバーに進捗状況を表示させています。

記事のまとめ

この記事のまとめは下記のとおりです。

・表のデータは、chirdrenを用いて要素を特定すると簡単に書き出すことができる！
・番号は（0）から始まるので注意すること！

その他、VBAでIEを動かすために必要な情報をまとめています！！

こちらを参照ください！
【まとめ】VBAでIEを動かすプログラムまとめ！
まだ、あまり確立されていないVBAでIEを動かすプログラムについて、素人ながらまとめてみました！【まとめ】VBAでIEを動かすプログラムまとめ！・VBA(マクロ)でIEを動かしたい！・社内プログラムでIEと連動させたい。・けれど、参考になる...
nujonoa.com
2020.06.10

]]> https://nujonoa.com/vba-ie-table-output/feed/ 5 【動画あり】IEの要素のID,TagName,Nameを知る方法～VBA(マクロ)でIE操作 https://nujonoa.com/vba-ie-findelement/ https://nujonoa.com/vba-ie-findelement/#respond Fri, 17 May 2019 16:00:45 +0000 http://nujonoa.com/?p=896
  1. IEの要素のID,TagName,Nameを知る方法
    1. 右クリック→要素の検査
    2. 知りたい要素がたくさんあるとき
    3. 楽天証券の表の内容を書き出す
  2. 記事のまとめ

IEの要素のID,TagName,Nameを知る方法

特定したい要素の属性が分かれば、
getElementで取り出すことができることが分かりましたので、
要素の属性を確認方法を説明していきたいと思います。

右クリック→要素の検査

一番簡単なのが、知りたい要素の上で右クリック→要素の検査を使うことです。

YAHOOの検索ボックスを確認してみましょう。
検索ボックスの上で右クリックを押すと下記のように、要素の検査と出ると思います。
ここをクリックしてください。

すると、下図のような開発者ツールが起動し、
その要素がハイライトされた htmlコード表示されると思います。
ここを確認することで、要素の属性を知ることができます。
今回の場合、TagName="input"、name="p"、id="srchtxt"であることが分かりました。

↓↓動画で紹介しています。

また、開発者ツールは[F12]を押すことで立ち上げることができ、
この画面上で[ctrl+B]を押すことで要素の検索モードに入ることができます。
すると下図のように選択範囲がハイライトされ、その状態でクリックすることで、
先ほどと同じように、htmlの中身を見ることができます。
この結果検索ボタンはID="srchbtn"であることが分かりました。
↓↓動画で紹介しています。

知りたい要素がたくさんあるとき

上記の方法だとテキストボックスなどを検索することはできますが、
知りたい要素がたくさんあり、その情報をすべて抜き出すときには適しておりません。
今回その一例として、楽天証券の表の内容を書き出すプログラムを作成してみました。

楽天証券の表の内容を書き出す

楽天証券の表を書き出すためのコードになります。簡単に説明すると、
①サイトを立ち上げて
②tagName＝”tr”を検索　(”tr”は「行」を表します。)
③.chirdrenを用いてtrの中の子要素の「列」を取得、書き出し。
　※何個列があるかわからないので、とりあえず20まで取得。
　　エラーが起こらないようにOn Error Resume Next入れてます。
という内容です。

 Application.ScreenUpdating = False
     
'IEの起動
Dim objIE As Object
     
Set objIE = GetObject("", "InternetExplorer.Application")
     
objIE.Visible = True
         
         
    objIE.Navigate "https://www.rakuten-sec.co.jp/web/fund/find/search/result.html"  ' このURLを任意に変更
         
    ' ページの表示完了待ち｡
    While objIE.ReadyState <> 4 Or objIE.Busy = True
        DoEvents
    Wend
     
    On Error Resume Next      '値がないとエラーが出るので、エラー回避用
    
    I = 1  '開始行を指定
    L = 0
    J = objIE.document.all.Length  '要素の数を知る
        
    Cells(I, 1).Value = "No"
              
    Dim B As Object
         
    For Each B In objIE.document.getElementsByTagName("tr")
    
        For L = 0 To 20
    
            Cells(I, L + 1) = B.Children(L).innertext
           
        Next
        
        I = I + 1
        
            
        'ステータスバーに進捗を表示
        Application.StatusBar = I & "/" & J
         
    Next
        
    On Error GoTo 0
  
    Cells.WrapText = False
    
    
Application.ScreenUpdating = True
Application.StatusBar = False

     
     
End Sub

chirdrenに関しては別の記事でご紹介いたしますが、
上記のプログラムを実行すると楽天証券の下記の表を、
エクセルに書き出すことができたと思います。
このように大量のデータを抜き出したいときや、そのIDや名前などを探してられないときなどは、
for each構文を使って抜き出すといいと思います。

↓エクセルに書き出される

記事のまとめ

この記事のまとめは下記のとおりです。

・要素の検索は右クリック「要素の検査」か、[F12]→[ctrl+B]で検索すること。
・大量のデータを抜き出すときなどは、for each構文を使って抜き出すと〇。

また、要素を全て抜き出すためのコードも公開していますのでご覧ください↓

【簡単】VBAでIEの全要素のデータを取得する方法～VBA(マクロ)でIE操作
↓改良版です。こちら速度向上させましたので、こちらをご覧ください。↓のサイトで、IEを表示することができました。次は、HTMLの中身を確認し、任意の情報を取り出す方法を書いていこうと思います。VBAでIEの全要素のデータを取得する方法マクロ...
nujonoa.com
2020.06.10

その他、VBAでIEを動かすために必要な情報をまとめています！！

こちらを参照ください！
【まとめ】VBAでIEを動かすプログラムまとめ！
まだ、あまり確立されていないVBAでIEを動かすプログラムについて、素人ながらまとめてみました！【まとめ】VBAでIEを動かすプログラムまとめ！・VBA(マクロ)でIEを動かしたい！・社内プログラムでIEと連動させたい。・けれど、参考になる...
nujonoa.com
2020.06.10

]]> https://nujonoa.com/vba-ie-findelement/feed/ 0 getElementsbyTagNameなど、getElementsの種類を確認～VBA(マクロ)でIE操作 https://nujonoa.com/vba-ie-getelements/ https://nujonoa.com/vba-ie-getelements/#respond Fri, 17 May 2019 14:55:32 +0000 http://nujonoa.com/?p=880 getElementsByの種類を確認してみようと思います。

getElementsbyTagNameなどgetElementsの種類を確認

要素の特定をするために、object.document.getElementsByTagName()などを使いますが、
検索するとgetElements○○がいっぱいあり、

・どれを使うべきかわからない。
・そもそもどのような種類があるのかわからない。

という問題に遭遇しましたので、解説していきたいと思います。

どのような種類があるの？

まず、どのような種類があるのか確認してみました。
確認できた種類は4つとなっております。
・getElementbyID
・getElementsbyTagName
・getElementsbyName
・getElementsbyClassName

それぞれの違いと使い方。

getElementbyID

まず推奨は、「getElementbyID」です。
というのも、1つのHTMLの中にIDの重複は許されておりません。
よって、特定したい要素のIDが分かれば、
「getElementbyID 」で確実に拾い上げることができます。
使い方は、

object.document.getelementbyID("○○").VALUE="△△"
’や
object.document.getelementbyID("○○").CLICK
object.document.getelementbyID("○○").SUBMIT

などとなっており非常にシンプルになっております。

・getElementsbyTagName・getElementsbyName・getElementsbyClassName

そのほかの3つについてはIDと違って、一つに特定されることはありません。
ですので、getElementsbyと複数形となっております。
よって使い方は、特製したい要素のタグや、名前が出てくる順番が分かる場合、

’0から数えて5番目に出てくるものに▲▲と書き込み場合
object.document.getElementbyTagName("○○")(5).VALUE="▲▲"
object.document.getElementbyName("○○")(5).VALUE="▲▲"
object.document.getElementbyClassName("○○")(5).VALUE="▲▲"

という書き方になります。
また、順番が分からない場合でも、Tag○○でNameが◇◇とわかる場合、

For Each A In objIE.document.getElementsByTagName("○○")
　IF A.NAME="◇◇" THEN A.VALUE="▲▲"
NEXT

と、タグネームが○○のものでループさせ、
その中から名前が一致するものを抜き出し、動作を実行させる必要があります。
しかし、タグと名前が一致しているものが同じHTMLの中に二つあった場合、
どちらにも同じ動作をしてしまうのことになりますので、
IDがある場合はIDを使用した方が無難だと思います。

特定したい要素のIDやTagNameやNameを知る方法。

特定したい要素の属性が分かれば、
getElementで取り出すことができることが分かりましたので、
要素の属性を確認方法を説明していきたいと思います。

右クリック→要素の検査

一番簡単なのが、知りたい要素の上で右クリック→要素の検査を使うことです。

YAHOOの検索ボックスを確認してみましょう。
検索ボックスの上で右クリックを押すと下記のように、要素の検査（L）と出ると思います。
ここをクリックしてください。

すると、下図のような開発者ツールが起動し、HTMLコードの、その要素がハイライトされると思います。
ここを確認することで、要素の属性を知ることができます。
今回の場合、TagName="input"、name="p"、id="srchtxt"であることが分かりました。

また、開発者ツールは[F12]を押すことで立ち上げることができ、
この画面上で[ctrl+B]を押すことで要素の検索モードに入ることができます。
下図のように選択範囲がハイライトされ、クリックすることで、
先ほどと同じように、htmlの中身を見ることができます。
この結果検索ボタンはID="srchbtn"であることが分かりました。

記事のまとめ

この記事のまとめは下記のとおりです。

・ getElementには4種類あるが、推奨は getElementbyIDである。
・IDがなく、そのほかのgetElementsを使用するときは
　→sを忘れないこと！
　→一つに定まらないので、要素の番号を指定、もしくは複数検索で使用すること。
・要素の検索は右クリック「要素の検査」か、[F12]→[ctrl+B]で検索すること

また、要素を全て抜き出すためのコードも公開していますのでご確認ください↓

【簡単】VBAでIEの全要素のデータを取得する方法～VBA(マクロ)でIE操作
↓改良版です。こちら速度向上させましたので、こちらをご覧ください。↓のサイトで、IEを表示することができました。次は、HTMLの中身を確認し、任意の情報を取り出す方法を書いていこうと思います。VBAでIEの全要素のデータを取得する方法マクロ...
nujonoa.com
2020.06.10

その他、VBAでIEを動かすために必要な情報をまとめています！！

こちらを参照ください！
【まとめ】VBAでIEを動かすプログラムまとめ！
まだ、あまり確立されていないVBAでIEを動かすプログラムについて、素人ながらまとめてみました！【まとめ】VBAでIEを動かすプログラムまとめ！・VBA(マクロ)でIEを動かしたい！・社内プログラムでIEと連動させたい。・けれど、参考になる...
nujonoa.com
2020.06.10

]]> https://nujonoa.com/vba-ie-getelements/feed/ 0 【簡単】VBAでIEを操作しログインする方法～VBA(マクロ)でIE操作 https://nujonoa.com/vba-ie-login/ https://nujonoa.com/vba-ie-login/#respond Thu, 16 May 2019 14:35:32 +0000 http://nujonoa.com/?p=852 ↓のサイトで、IEを表示、要素を抜き出すことができました。
次は、楽天証券にログインしてみたいと思います。

【簡単】VBAでIEの任意のサイトを表示させる方法～VBA(マクロ)でIE操作
VBAでIEを操作する方法はネットを検索しても、まだ確立されきっていないように感じますので、素人が学びながら、そこまで深堀せずに簡単に説明していきたいと思います。VBAでIEの任意のサイトを表示させる方法VBAの入門編として、まずIEの画面...
nujonoa.com
2020.06.10
【簡単】VBAでIEの全要素のデータを取得する方法～VBA(マクロ)でIE操作
↓改良版です。こちら速度向上させましたので、こちらをご覧ください。↓のサイトで、IEを表示することができました。次は、HTMLの中身を確認し、任意の情報を取り出す方法を書いていこうと思います。VBAでIEの全要素のデータを取得する方法マクロ...
nujonoa.com
2020.06.10

VBAでIEを操作しgoogleで検索する方法～VBA(マクロ)でIE操作

今回は、VBAでを操作しgoogleで検索する方法を紹介したいと思います。
まず、サイト内のインプット要素の一覧を見てみましょう。
下記コードは「https://www.google.com/?hl=ja」の全てのインプット要素をエクセルに書き出すコードです。
ダブルクリックでコピーできますのでとりあえずVBAに張り付けて実行してみてください。

Sub IEinput()
    
 Application.ScreenUpdating = False
     
'*****↓ここまでは以前と一緒***************************************************
'IEの起動
Dim objIE As Object
     
Set objIE = GetObject("", "InternetExplorer.Application")
     
objIE.Visible = True
         
         
    objIE.Navigate "https://www.rakuten-sec.co.jp/"  ' このURLを任意に変更
         
    ' ページの表示完了待ち｡
    While objIE.ReadyState <> 4 Or objIE.Busy = True
        DoEvents
    Wend
'*****↑ここまでは以前と一緒***************************************************
     
'****今日はここから↓***************************************************
     
    On Error Resume Next      '値がないとエラーが出るので、エラー回避用
    
    I = 1  '開始行を指定
    J = objIE.document.all.Length  '要素の数を知る
        
    Cells(I, 1).Value = "No"
    Cells(I, 2).Value = "tagname"
    Cells(I, 3).Value = "Type"
    Cells(I, 4).Value = "NAME"
    Cells(I, 5).Value = "ID"
    Cells(I, 6).Value = "className"
    Cells(I, 7).Value = "TABINDEX"
    Cells(I, 8).Value = "Vakue"
    Cells(I, 9).Value = "checked"
    Cells(I, 10).Value = "親のtagname"
    Cells(I, 11).Value = "innertext"
    Cells(I, 12).Value = "outertext"
    Cells(I, 13).Value = "outherhtml"
    Cells(I, 14).Value = "innerhtml"
    Cells(I, 15).Value = "リンク先"
      
        
     Dim A As Object
         
    For Each A In objIE.document.getElementsByTagName("*")
        
        If A.TagName = "INPUT" Or A.TagName = "BUTTON" Then
        
            Debug.Print A.TagName
   
            Cells(I + 1, 1) = I - 1                     '個数
            Cells(I + 1, 2) = A.TagName                 'TAGネーム
            Cells(I + 1, 3) = A.Type                    'タイプ ※selectボックスは”select-one”と取得
            Cells(I + 1, 4) = A.Name                    '名前
            Cells(I + 1, 5) = A.ID                      'ID
            Cells(I + 1, 6) = A.className               'クラス名
            Cells(I + 1, 7) = A.TabIndex                'フォーカス順序 (Tabでの移動順)
            Cells(I + 1, 8) = A.Value                   '値
            Cells(I + 1, 9) = A.Checked                 'チェック状態 (True = チェック有り､false = チェック無し)
                                                        'checkboxやradioボタンから取得します
            Cells(I + 1, 10) = A.parentElement.TagName  '親のTAG
        
        
        
            If Len(A.innerHTML) > 50 Then
                
                Cells(I + 1, 11) = Left(A.innertext, 10) & "   ~~~   " & Right(A.innertext, 10)
                Cells(I + 1, 12) = Left(A.outertext, 10) & "   ~~~   " & Right(A.outerrext, 10)
                Cells(I + 1, 13) = Left(A.outerHTML, 10) & "   ~~~   " & Right(A.outerHTML, 10)
                Cells(I + 1, 14) = Left(A.innerHTML, 10) & "   ~~~   " & Right(A.innerHTML, 10)
        
            Else
                
                Cells(I + 1, 11) = A.innertext
                Cells(I + 1, 12) = A.outertext
                Cells(I + 1, 13) = A.outerHTML
                Cells(I + 1, 14) = A.innerHTML
                            
            End If
              
               
            I = I + 1
            
        End If
            
        'ステータスバーに進捗を表示
        Application.StatusBar = I & "/" & J
         
    Next
        
    On Error GoTo 0
  
    Cells.WrapText = False
    
    
Application.ScreenUpdating = True
Application.StatusBar = False
    
Range(Cells(1, 1), Cells(1, 14)).EntireColumn.AutoFit
Range(Cells(1, 2), Cells(1, 2)).EntireColumn.Interior.ColorIndex = 6
Range(Cells(1, 4), Cells(1, 4)).EntireColumn.Interior.ColorIndex = 6
Range(Cells(1, 8), Cells(1, 8)).EntireColumn.Interior.ColorIndex = 6
     
     
End Sub

検索結果を確認し、操作したい要素を確認。

上記のマクロを実行すると、下記のようなinputとbuttonの要素を抜き出すことができたと思います。
今回は楽天証券にログインしたいのでので、
IDを入力するテキストボックスと、PWを入力する要素、ログインボタンがどれか判別する必要があります。
今回の場合、
ID　　　　　→　NAME：loginid　ID：form-login-id
パスワード　→　NAME：passwd　ID：form-login-pass
ボタン　　　→　手掛かりになりそうな要素無し　→　BUTTONとしては3つ目
であることが分かりました。

早速ログインしてみよう！

入力したいID欄と、パスワード欄、ボタンを見つけることができたので、
プログラムに落とし込んでいきたいと思います。
やることは先ほどのプログラムと同じ要領で、
①FOR EACH でTagName("INPUT")、 TagName("BUTTON") をすべて抜き出す(なぜか大文字です)。
②IF文で入力したい要素を見つける。
③値を入力orボタンを押す
という構成になっています。
今回、最後のクリックだけ、手掛かりになりえる要素がなかったので、
objIE.document.getElementsByTagName("BUTTON")(2).Clickとして代用しました。
※ボタンとして3つ目なのですが、プログラムでは0から数字を始めますので、（2）となっております。
ダブルクリックでコピーできますのでVBAに張り付けて実行してみてください。 

Sub IE_LOGIN()
   
'IEの起動
Dim objIE As Object
   
Set objIE = GetObject("", "InternetExplorer.Application")
   
objIE.Visible = True
       
    objIE.Navigate "https://www.rakuten-sec.co.jp/"  ' このURLを任意に変更
       
    ' ページの表示完了待ち｡
    While objIE.ReadyState <> 4 Or objIE.Busy = True
        DoEvents
    Wend
   
'    On Error Resume Next      '値がないとエラーが出るので、エラー回避用
      
    Dim A As Object
       
    For Each A In objIE.document.getElementsByTagName("INPUT") '①FOR EACH でINPUTをすべて抜き出す。
        If A.Name = "loginid" Then A.Value = "わたしのid" '②IF分で入力したい要素を見つけて　③値を代入
    Next
    For Each A In objIE.document.getElementsByTagName("INPUT") '①FOR EACH でINPUTをすべて抜き出す。
        If A.Name = "passwd" Then A.Value = "111111111" '②IF分で入力したい要素を見つけて　③値を代入
    Next
    objIE.document.getElementsByTagName("BUTTON")(2).Click
          
    On Error GoTo 0
  
End Sub

いろいろのやり方でテキストボックスに入力してみる。

今回、ボタンのクリックがイレギュラーな感じになりましたが、
実は要素が特定できれば何でもありなのです。
その例を紹介していきます。
今回のid入力の場合を例にとってみると、4通り考えられます。
①まず、先ほどのプログラムのように要素を名前など限定して指定。
②inputタグの中で何番目か指定。
③getElementsByName(””)(0)でNameを直接指定。
　Nameでもそのまま検索することができます。
　getElementsByName(””)の後に(0)で一番最初の要素を取り出していますが、
　ほかに同じ名前があったときに、違う要素を選択してしまう可能性がありますのでご注意ください。
④getElementByid("")で指定。
　idを指定する場合は、getElementsではなく、 getElement です。
　idはそのHTMLの中に重複が許されていないので、一つの値に決まるから複数形ではありません。
　したがって、 getElementsbyTagNameやgetElementsbyNameで使用したような番号は必要ありません。 

'①先ほどのやり方
    For Each A In objIE.document.getElementsByTagName("INPUT") '①FOR EACH でINPUTをすべて抜き出す。
        If A.Name = "loginid" Then A.Value = "わたしのid" '②IF分で入力したい要素を見つけて　③値を代入
    Next
'②何番目の要素かを指定。
　objIE.document.getElementsByTagName("INPUT")(2).Value = "わたしのid" 
'③名前で指定。
　objIE.document.getElementsByName("loginid")(0).Value = "わたしのid" 
'④IDで決定
　objIE.document.getElementByid("form-login-id").Value = "わたしのid"

ちょっと困った、ログインボタン。

後で気づいたのですが、
TAGINDEXが4なので、これを用いてログインすることができることに気づきました…すみません。
※ちなみにTAGINDEXとはタグを押したときの順序を表しており、
　4回TAGを押すとそこに行くようになっております。

↑この子が厄介なのです。。。

その他、VBAでIEを動かすために必要な情報をまとめています！！

こちらを参照ください！
【まとめ】VBAでIEを動かすプログラムまとめ！
まだ、あまり確立されていないVBAでIEを動かすプログラムについて、素人ながらまとめてみました！【まとめ】VBAでIEを動かすプログラムまとめ！・VBA(マクロ)でIEを動かしたい！・社内プログラムでIEと連動させたい。・けれど、参考になる...
nujonoa.com
2020.06.10

]]> https://nujonoa.com/vba-ie-login/feed/ 0 【簡単】VBAでIEを操作しgoogleで検索する方法～VBA(マクロ)でIE操作 https://nujonoa.com/vba-ie-inputandclick/ https://nujonoa.com/vba-ie-inputandclick/#respond Thu, 16 May 2019 13:18:31 +0000 http://nujonoa.com/?p=843 ↓のサイトで、IEを表示、要素を抜き出すことができました。
次は、googleで検索してみたいと思います。

【簡単】VBAでIEの任意のサイトを表示させる方法～VBA(マクロ)でIE操作
VBAでIEを操作する方法はネットを検索しても、まだ確立されきっていないように感じますので、素人が学びながら、そこまで深堀せずに簡単に説明していきたいと思います。VBAでIEの任意のサイトを表示させる方法VBAの入門編として、まずIEの画面...
nujonoa.com
2020.06.10
【簡単】VBAでIEの全要素のデータを取得する方法～VBA(マクロ)でIE操作
↓改良版です。こちら速度向上させましたので、こちらをご覧ください。↓のサイトで、IEを表示することができました。次は、HTMLの中身を確認し、任意の情報を取り出す方法を書いていこうと思います。VBAでIEの全要素のデータを取得する方法マクロ...
nujonoa.com
2020.06.10

VBAでIEを操作しgoogleで検索する方法～VBA(マクロ)でIE操作

今回は、VBAでを操作しgoogleで検索する方法を紹介したいと思います。
まず、サイト内のインプット要素の一覧を見てみましょう。
下記コードは「https://www.google.com/?hl=ja」の全てのインプット要素をエクセルに書き出すコードです。
ダブルクリックでコピーできますのでとりあえずVBAに張り付けて実行してみてください。

Sub IEinput()
   
 Application.ScreenUpdating = False
    
'*****↓ここまでは以前と一緒***************************************************
'IEの起動
Dim objIE As Object
    
Set objIE = GetObject("", "InternetExplorer.Application")
    
objIE.Visible = True
        
        
    objIE.Navigate "https://www.google.com/?hl=ja"  ' このURLを任意に変更
        
    ' ページの表示完了待ち｡
    While objIE.ReadyState <> 4 Or objIE.Busy = True
        DoEvents
    Wend
'*****↑ここまでは以前と一緒***************************************************
    
'****今日はここから↓***************************************************
    
    On Error Resume Next      '値がないとエラーが出るので、エラー回避用
   
    I = 1  '開始行を指定
    J = objIE.document.all.Length  '要素の数を知る
       
    Cells(I, 1).Value = "No"
    Cells(I, 2).Value = "tagname"
    Cells(I, 3).Value = "Type"
    Cells(I, 4).Value = "NAME"
    Cells(I, 5).Value = "ID"
    Cells(I, 6).Value = "className"
    Cells(I, 7).Value = "TABINDEX"
    Cells(I, 8).Value = "Vakue"
    Cells(I, 9).Value = "checked"
    Cells(I, 10).Value = "親のtagname"
    Cells(I, 11).Value = "innertext"
    Cells(I, 12).Value = "outertext"
    Cells(I, 13).Value = "outherhtml"
    Cells(I, 14).Value = "innerhtml"
    Cells(I, 15).Value = "リンク先"
     
       
     Dim A As Object
        
    For Each A In objIE.document.getElementsByTagName("INPUT")
       
       
  
        Cells(I + 1, 1) = I - 1                     '個数
        Cells(I + 1, 2) = A.TAGNAME                 'TAGネーム
        Cells(I + 1, 3) = A.Type                    'タイプ ※selectボックスは”select-one”と取得
        Cells(I + 1, 4) = A.Name                    '名前
        Cells(I + 1, 5) = A.ID                      'ID
        Cells(I + 1, 6) = A.className               'クラス名
        Cells(I + 1, 7) = A.TabIndex                'フォーカス順序 (Tabでの移動順)
        Cells(I + 1, 8) = A.Value                   '値
        Cells(I + 1, 9) = A.Checked                 'チェック状態 (True = チェック有り､false = チェック無し)
                                                    'checkboxやradioボタンから取得します
        Cells(I + 1, 10) = A.parentElement.TAGNAME  '親のTAG
   
   
   
        If Len(A.innerHTML) > 50 Then
           
            Cells(I + 1, 11) = Left(A.innertext, 10) & "   ~~~   " & Right(A.innertext, 10)
            Cells(I + 1, 12) = Left(A.outertext, 10) & "   ~~~   " & Right(A.outerrext, 10)
            Cells(I + 1, 13) = Left(A.outerHTML, 10) & "   ~~~   " & Right(A.outerHTML, 10)
            Cells(I + 1, 14) = Left(A.innerHTML, 10) & "   ~~~   " & Right(A.innerHTML, 10)
   
        Else
           
            Cells(I + 1, 11) = A.innertext
            Cells(I + 1, 12) = A.outertext
            Cells(I + 1, 13) = A.outerHTML
            Cells(I + 1, 14) = A.innerHTML
                       
        End If
         
          
        I = I + 1
           
        'ステータスバーに進捗を表示
        Application.StatusBar = I & "/" & J
        
    Next
       
    On Error GoTo 0
 
    Cells.WrapText = False
   
   
Application.ScreenUpdating = True
Application.StatusBar = False
   
Range(Cells(1, 1), Cells(1, 14)).EntireColumn.AutoFit
Range(Cells(1, 2), Cells(1, 2)).EntireColumn.Interior.ColorIndex = 6
Range(Cells(1, 4), Cells(1, 4)).EntireColumn.Interior.ColorIndex = 6
Range(Cells(1, 8), Cells(1, 8)).EntireColumn.Interior.ColorIndex = 6
    
    
End Sub

検索結果を確認し、操作したい要素を確認。

上記のマクロを実行すると、下記のようなinputの要素を抜き出すことができたと思います。
今回はgoogleで何かワードを検索したいので、
ワードを入力するテキストボックスと、クリックするボタンがどれか判別する必要があります。
グーグルさんは結構不親切でわかりにくいですが、今回の場合、
テキストボックス→名前(NAME)が”q”
クリックするボタン→名前(NAME)が”btnK”であることが分かりました。

テキストボックスに入力し、ボタンをクリックするプログラム。

入力したいテキストボックスと、ボタンを見つけることができたので、
プログラムに落とし込んでいきたいと思います。
やることは簡単、先ほどと同じ要領で、
①FOR EACH でTagName("INPUT")をすべて抜き出す。
②IF文で入力したい要素を見つける。→今回は.Nameが"q"　今回は.Nameが"btnk"　
③値を入力orボタンを押す
という構成になっています。
ダブルクリックでコピーできますのでVBAに張り付けて実行してみてください。 

Sub IE_inputandclick()
   
'IEの起動
Dim objIE As Object
   
Set objIE = GetObject("", "InternetExplorer.Application")
   
objIE.Visible = True
       
    objIE.Navigate "https://www.google.com/?hl=ja"  ' このURLを任意に変更
       
    ' ページの表示完了待ち｡
    While objIE.ReadyState <> 4 Or objIE.Busy = True
        DoEvents
    Wend
   
    On Error Resume Next      '値がないとエラーが出るので、エラー回避用
      
    Dim A As Object
       
    For Each A In objIE.document.getElementsByTagName("INPUT") '①FOR EACH でINPUTをすべて抜き出す。
      
        If A.Name = "q" Then A.Value = "nujonoa_blog" '②IF分で入力したい要素を見つけて　③値を代入
       
    Next
    For Each A In objIE.document.getElementsByTagName("INPUT") '①FOR EACH でINPUTをすべて抜き出す。
      
        If A.Name = "btnK" Then A.Click '②IF分で入力したい要素を見つけて　③Click
       
    Next
      
    On Error GoTo 0
  
End Sub

ほかのやり方でテキストボックスに入力してみる。

また、単純に<INPUT>の3,4番目でもありますので、単純に、
objIE.document.getElementsByTagName("INPUT")(3).Value ="nujonoa_blog"
objIE.document.getElementsByTagName("INPUT")(4).Click
と入力することで、テキストの入力とクリックをすることができます。

Sub IE_inputandclick2()

'IEの起動
Dim objIE As Object
   
Set objIE = GetObject("", "InternetExplorer.Application")
   
objIE.Visible = True
       
       
    objIE.Navigate "https://www.google.com/?hl=ja"  ' このURLを任意に変更
       
    ' ページの表示完了待ち｡
    While objIE.ReadyState <> 4 Or objIE.Busy = True
        DoEvents
    Wend
   
    objIE.document.getElementsByTagName("INPUT")(3).value="nujonoa_blog"
    objIE.document.getElementsByTagName("INPUT")(4).Click

End Sub

その他、VBAでIEを動かすために必要な情報をまとめています！！

こちらを参照ください！
【まとめ】VBAでIEを動かすプログラムまとめ！
まだ、あまり確立されていないVBAでIEを動かすプログラムについて、素人ながらまとめてみました！【まとめ】VBAでIEを動かすプログラムまとめ！・VBA(マクロ)でIEを動かしたい！・社内プログラムでIEと連動させたい。・けれど、参考になる...
nujonoa.com
2020.06.10

]]> https://nujonoa.com/vba-ie-inputandclick/feed/ 0 【簡単】VBAでIEのボタンをクリックする方法～VBA(マクロ)でIE操作 https://nujonoa.com/vba-ie-button-click/ https://nujonoa.com/vba-ie-button-click/#comments Thu, 16 May 2019 11:58:01 +0000 http://nujonoa.com/?p=824 ↓のサイトで、IEを表示、要素を抜き出すことができました。
次は、ボタンをすべて確認し、任意のボタンをクリックする方法を説明します。

【簡単】VBAでIEの任意のサイトを表示させる方法～VBA(マクロ)でIE操作
VBAでIEを操作する方法はネットを検索しても、まだ確立されきっていないように感じますので、素人が学びながら、そこまで深堀せずに簡単に説明していきたいと思います。VBAでIEの任意のサイトを表示させる方法VBAの入門編として、まずIEの画面...
nujonoa.com
2020.06.10
【簡単】VBAでIEの全要素のデータを取得する方法～VBA(マクロ)でIE操作
↓改良版です。こちら速度向上させましたので、こちらをご覧ください。↓のサイトで、IEを表示することができました。次は、HTMLの中身を確認し、任意の情報を取り出す方法を書いていこうと思います。VBAでIEの全要素のデータを取得する方法マクロ...
nujonoa.com
2020.06.10

VBAでIEのボタンをクリックする方法～VBA(マクロ)でIE操作

今回は、VBAでIEのボタンをクリックする方法を紹介したいと思います。
まず、サイト内のインプット要素の一覧を見てみましょう。
下記コードは「グーグルの検索サイト」の全てのインプット要素をエクセルに書き出すコードです。
ダブルクリックでコピーできますのでとりあえずVBAに張り付けて実行してみてください。

Sub IEinput()
   
 Application.ScreenUpdating = False
    
'IEの起動
Dim objIE As Object
    
Set objIE = GetObject("", "InternetExplorer.Application")
    
objIE.Visible = True
        
        
    objIE.Navigate "https://www.google.com/?hl=ja"  ' このURLを任意に変更
        
    ' ページの表示完了待ち｡
    While objIE.ReadyState <> 4 Or objIE.Busy = True
        DoEvents
    Wend
    
    On Error Resume Next      '値がないとエラーが出るので、エラー回避用
   
    I = 1  '開始行を指定
    J = objIE.document.all.Length  '要素の数を知る
       
    Cells(I, 1).Value = "No"
    Cells(I, 2).Value = "tagname"
    Cells(I, 3).Value = "Type"
    Cells(I, 4).Value = "NAME"
    Cells(I, 5).Value = "ID"
    Cells(I, 6).Value = "className"
    Cells(I, 7).Value = "TABINDEX"
    Cells(I, 8).Value = "Vakue"
    Cells(I, 9).Value = "checked"
    Cells(I, 10).Value = "親のtagname"
    Cells(I, 11).Value = "innertext"
    Cells(I, 12).Value = "outertext"
    Cells(I, 13).Value = "outherhtml"
    Cells(I, 14).Value = "innerhtml"
    Cells(I, 15).Value = "リンク先"
     
       
     Dim A As Object
        
    For Each A In objIE.document.getElementsByTagName("INPUT")
       
       
  
        Cells(I + 1, 1) = I - 1                     '個数
        Cells(I + 1, 2) = A.TAGNAME                 'TAGネーム
        Cells(I + 1, 3) = A.Type                    'タイプ ※selectボックスは”select-one”と取得
        Cells(I + 1, 4) = A.Name                    '名前
        Cells(I + 1, 5) = A.ID                      'ID
        Cells(I + 1, 6) = A.className               'クラス名
        Cells(I + 1, 7) = A.TabIndex                'フォーカス順序 (Tabでの移動順)
        Cells(I + 1, 8) = A.Value                   '値
        Cells(I + 1, 9) = A.Checked                 'チェック状態 (True = チェック有り､false = チェック無し)
                                                    'checkboxやradioボタンから取得します
        Cells(I + 1, 10) = A.parentElement.TAGNAME  '親のTAG
   
   
   
        If Len(A.innerHTML) > 50 Then
           
            Cells(I + 1, 11) = Left(A.innertext, 10) & "   ~~~   " & Right(A.innertext, 10)
            Cells(I + 1, 12) = Left(A.outertext, 10) & "   ~~~   " & Right(A.outerrext, 10)
            Cells(I + 1, 13) = Left(A.outerHTML, 10) & "   ~~~   " & Right(A.outerHTML, 10)
            Cells(I + 1, 14) = Left(A.innerHTML, 10) & "   ~~~   " & Right(A.innerHTML, 10)
   
        Else
           
            Cells(I + 1, 11) = A.innertext
            Cells(I + 1, 12) = A.outertext
            Cells(I + 1, 13) = A.outerHTML
            Cells(I + 1, 14) = A.innerHTML
                       
        End If
         
          
        I = I + 1
           
        'ステータスバーに進捗を表示
        Application.StatusBar = I & "/" & J
        
    Next
       
    On Error GoTo 0
 
    Cells.WrapText = False
   
   
Application.ScreenUpdating = True
Application.StatusBar = False
   
Range(Cells(1, 1), Cells(1, 14)).EntireColumn.AutoFit
Range(Cells(1, 2), Cells(1, 2)).EntireColumn.Interior.ColorIndex = 6
Range(Cells(1, 4), Cells(1, 4)).EntireColumn.Interior.ColorIndex = 6
Range(Cells(1, 8), Cells(1, 8)).EntireColumn.Interior.ColorIndex = 6
    
    
End Sub

簡単にプログラム説明

ボタンのTagNameは「INPUT」 TYPE「submit」 か「BUTTON」

ボタンの TagName は「INPUT」か「BUTTON」ですが、
googleでは「INPUT」を用いているようですので、
サイトを表示させた後、
For Each A In objIE.document.getElementsByTagName(“INPUT“)　～～～　Next
で「INPUT」の要素をすべて検索し、
抜き出した要素からデータをエクセルに書き出していっています。

これで、 TagNameがINPUTの一覧表ができたと思います。
その中でも今回は「Google 検索」ボタンをクリックしたいので、
Type(c列)がsubmit、valueが「Google 検索」 のものを探します。
結果、No4が探している「Google 検索」ボタンになり、
ボタンのNameが"btnK"であることが分かりました。

ボタンをクリックする。

全てのinputを抜き出し、入力したい要素を見つけることができました。
次はこの要素の内容を用いて、今度はボタンをクリックしていきたいと思います。
やることは簡単、先ほどと同じ要領で、
①FOR EACH でINPUTをすべて抜き出す。
②IF文で入力したい要素を見つける。→今回は.Nameが"btnk"　or　Valueが”Google 検索”
③.clickでボタンを押す
となっております。
ダブルクリックでコピーできますのでVBAに張り付けて実行してみてください。 

Sub IE_buttonCLICK()
   

'IEの起動
Dim objIE As Object
   
Set objIE = GetObject("", "InternetExplorer.Application")
   
objIE.Visible = True
       
       
    objIE.Navigate "https://www.google.com/?hl=ja"  ' このURLを任意に変更
       
    ' ページの表示完了待ち｡
    While objIE.ReadyState <> 4 Or objIE.Busy = True
        DoEvents
    Wend
   
    On Error Resume Next      '値がないとエラーが出るので、エラー回避用

    objIE.document.getElementsByTagName("INPUT")(3).Value = "nujonoa_blog" 'テキスト欄に入力
      
    Dim A As Object
       
    For Each A In objIE.document.getElementsByTagName("INPUT") '①FOR EACH でINPUTをすべて抜き出す。
      
        If A.Name = "btnK" Then A.Click '②IF分で入力したい要素を見つけて　③Click
       
    Next
      
    On Error GoTo 0
  
End Sub

ほかのやり方でテキストボックスに入力してみる。

また、単純に<INPUT>の4番目でもありますので、単純に、
objIE.document.getElementsByTagName("INPUT")(4).Click
と入力することで、クリックすることもできます。

Sub IE_buttonCLICK2()

'IEの起動
Dim objIE As Object
   
Set objIE = GetObject("", "InternetExplorer.Application")
   
objIE.Visible = True
       
       
    objIE.Navigate "https://www.google.com/?hl=ja"  ' このURLを任意に変更
       
    ' ページの表示完了待ち｡
    While objIE.ReadyState <> 4 Or objIE.Busy = True
        DoEvents
    Wend
   
    objIE.document.getElementsByTagName("INPUT")(3).value="nujonoa_blog"
    objIE.document.getElementsByTagName("INPUT")(4).Click

End Sub

その他、VBAでIEを動かすために必要な情報をまとめています！！

こちらを参照ください！
【まとめ】VBAでIEを動かすプログラムまとめ！
まだ、あまり確立されていないVBAでIEを動かすプログラムについて、素人ながらまとめてみました！【まとめ】VBAでIEを動かすプログラムまとめ！・VBA(マクロ)でIEを動かしたい！・社内プログラムでIEと連動させたい。・けれど、参考になる...
nujonoa.com
2020.06.10

]]> https://nujonoa.com/vba-ie-button-click/feed/ 20 【簡単】VBAでIEのテキストボックスに値を入力する方法～VBA(マクロ)でIE操作 https://nujonoa.com/vba-ie-text-input/ https://nujonoa.com/vba-ie-text-input/#respond Thu, 16 May 2019 11:27:56 +0000 http://nujonoa.com/?p=812 ↓のサイトで、IEを表示、要素を抜き出すことができました。
次は、インプット要素をすべて確認し、任意のテキストボックスに値を入力する方法を説明します。

【簡単】VBAでIEの任意のサイトを表示させる方法～VBA(マクロ)でIE操作
VBAでIEを操作する方法はネットを検索しても、まだ確立されきっていないように感じますので、素人が学びながら、そこまで深堀せずに簡単に説明していきたいと思います。VBAでIEの任意のサイトを表示させる方法VBAの入門編として、まずIEの画面...
nujonoa.com
2020.06.10
【簡単】VBAでIEの全要素のデータを取得する方法～VBA(マクロ)でIE操作
↓改良版です。こちら速度向上させましたので、こちらをご覧ください。↓のサイトで、IEを表示することができました。次は、HTMLの中身を確認し、任意の情報を取り出す方法を書いていこうと思います。VBAでIEの全要素のデータを取得する方法マクロ...
nujonoa.com
2020.06.10

VBAでIEのテキストボックスに値を入力する方法～VBA(マクロ)でIE操作

今回は、VBAでIEのテキストボックスに値を入力する方法を紹介したいと思います。
まず、サイト内の入力要素一覧を見てみましょう。
下記コードは「グーグルの検索サイト」の全ての入力要素をエクセルに書き出すコードです。
ダブルクリックでコピーできますのでとりあえずVBAに張り付けて実行してみてください。

Sub IEinput()
   
 Application.ScreenUpdating = False
    
'*****↓ここまでは以前と一緒***************************************************
'IEの起動
Dim objIE As Object
    
Set objIE = GetObject("", "InternetExplorer.Application")
    
objIE.Visible = True
        
        
    objIE.Navigate "https://www.google.com/?hl=ja"  ' このURLを任意に変更
        
    ' ページの表示完了待ち｡
    While objIE.ReadyState <> 4 Or objIE.Busy = True
        DoEvents
    Wend
'*****↑ここまでは以前と一緒***************************************************
    
'****今日はここから↓***************************************************
    
    On Error Resume Next      '値がないとエラーが出るので、エラー回避用
   
    I = 1  '開始行を指定
    J = objIE.document.all.Length  '要素の数を知る
       
    Cells(I, 1).Value = "No"
    Cells(I, 2).Value = "tagname"
    Cells(I, 3).Value = "Type"
    Cells(I, 4).Value = "NAME"
    Cells(I, 5).Value = "ID"
    Cells(I, 6).Value = "className"
    Cells(I, 7).Value = "TABINDEX"
    Cells(I, 8).Value = "Vakue"
    Cells(I, 9).Value = "checked"
    Cells(I, 10).Value = "親のtagname"
    Cells(I, 11).Value = "innertext"
    Cells(I, 12).Value = "outertext"
    Cells(I, 13).Value = "outherhtml"
    Cells(I, 14).Value = "innerhtml"
    Cells(I, 15).Value = "リンク先"
     
       
     Dim A As Object
        
    For Each A In objIE.document.getElementsByTagName("INPUT")
       
       
  
        Cells(I + 1, 1) = I - 1                     '個数
        Cells(I + 1, 2) = A.TAGNAME                 'TAGネーム
        Cells(I + 1, 3) = A.Type                    'タイプ ※selectボックスは”select-one”と取得
        Cells(I + 1, 4) = A.Name                    '名前
        Cells(I + 1, 5) = A.ID                      'ID
        Cells(I + 1, 6) = A.className               'クラス名
        Cells(I + 1, 7) = A.TabIndex                'フォーカス順序 (Tabでの移動順)
        Cells(I + 1, 8) = A.Value                   '値
        Cells(I + 1, 9) = A.Checked                 'チェック状態 (True = チェック有り､false = チェック無し)
                                                    'checkboxやradioボタンから取得します
        Cells(I + 1, 10) = A.parentElement.TAGNAME  '親のTAG
   
   
   
        If Len(A.innerHTML) > 50 Then
           
            Cells(I + 1, 11) = Left(A.innertext, 10) & "   ~~~   " & Right(A.innertext, 10)
            Cells(I + 1, 12) = Left(A.outertext, 10) & "   ~~~   " & Right(A.outerrext, 10)
            Cells(I + 1, 13) = Left(A.outerHTML, 10) & "   ~~~   " & Right(A.outerHTML, 10)
            Cells(I + 1, 14) = Left(A.innerHTML, 10) & "   ~~~   " & Right(A.innerHTML, 10)
   
        Else
           
            Cells(I + 1, 11) = A.innertext
            Cells(I + 1, 12) = A.outertext
            Cells(I + 1, 13) = A.outerHTML
            Cells(I + 1, 14) = A.innerHTML
                       
        End If
         
          
        I = I + 1
           
        'ステータスバーに進捗を表示
        Application.StatusBar = I & "/" & J
        
    Next
       
    On Error GoTo 0
 
    Cells.WrapText = False
   
   
Application.ScreenUpdating = True
Application.StatusBar = False
   
Range(Cells(1, 1), Cells(1, 14)).EntireColumn.AutoFit
Range(Cells(1, 2), Cells(1, 2)).EntireColumn.Interior.ColorIndex = 6
Range(Cells(1, 4), Cells(1, 4)).EntireColumn.Interior.ColorIndex = 6
Range(Cells(1, 8), Cells(1, 8)).EntireColumn.Interior.ColorIndex = 6
    
    
End Sub

簡単にプログラム説明

テキストボックスのTagNameは「INPUT」

テキストボックスの TagName は「INPUT」ですので、サイトを表示させた後、
For Each A In objIE.document.getElementsByTagName("INPUT")　～～～　Next
でINPUTの要素をすべて検索し、抜き出した結果をエクセルに書き出していっています。

入力したい要素を確認( テキストボックスはType「text」)

マクロを実行すると、 下記のようなTagNameがINPUTの一覧表ができたと思います。
その中でも今回は、テキストボックスに入力したいので、Type(c列)がtextのものを探します。
今回はNo3が検索欄に当たり、Nameが"q"であることが分かりました。

テキストボックスに入力してみる。

上記のプログラムより、テキストボックスの要素を見つけることができました。
この要素のデータを用いて、今度は文字を入力していきたいと思います。
やることは簡単、先ほどと同じ要領で、
①FOR EACH でINPUTをすべて抜き出す。
②IF分で入力したい要素を見つける。→今回はNameが"q"
③.valueで値を入力する。→.value="test"
となっております。
ダブルクリックでコピーできますのでVBAに張り付けて実行してみてください。 

Sub IE_textINPUT()
   
'*****↓ここまでは以前と一緒***************************************************
'IEの起動
Dim objIE As Object
   
Set objIE = GetObject("", "InternetExplorer.Application")
   
objIE.Visible = True
       
       
    objIE.Navigate "https://www.google.com/?hl=ja"  ' このURLを任意に変更
       
    ' ページの表示完了待ち｡
    While objIE.ReadyState <> 4 Or objIE.Busy = True
        DoEvents
    Wend
'*****↑ここまでは以前と一緒***************************************************
   
'****今日はここから↓***************************************************
   
    On Error Resume Next      '値がないとエラーが出るので、エラー回避用
      
     Dim A As Object
       
    For Each A In objIE.document.getElementsByTagName("INPUT")'①FOR EACH でINPUTをすべて抜き出す。
      
        If A.Name = "q" Then A.VALUE="テスト"'②IF分で入力したい要素を見つけて③valueで代入。
       
    Next
      
    On Error GoTo 0
  
End Sub

ほかのやり方でテキストボックスに入力してみる。

また、単純に<INPUT>の3番目でもありますので、単純に、
objIE.document.getElementsByTagName("INPUT")(3).value="テスト"
と入力することで、文字を入力することができます。

Sub IE_textINPUT2()
  
 Application.ScreenUpdating = False
   
'*****↓ここまでは以前と一緒***************************************************
'IEの起動
Dim objIE As Object
   
Set objIE = GetObject("", "InternetExplorer.Application")
   
objIE.Visible = True
       
       
    objIE.Navigate "https://www.google.com/?hl=ja"  ' このURLを任意に変更
       
    ' ページの表示完了待ち｡
    While objIE.ReadyState <> 4 Or objIE.Busy = True
        DoEvents
    Wend
'*****↑ここまでは以前と一緒***************************************************
   
'****今日はここから↓***************************************************
   
    On Error Resume Next      '値がないとエラーが出るので、エラー回避用
        
    objIE.document.getElementsByTagName("INPUT")(3).value="テスト"

End Sub

その他、VBAでIEを動かすために必要な情報をまとめています！！

こちらを参照ください！
【まとめ】VBAでIEを動かすプログラムまとめ！
まだ、あまり確立されていないVBAでIEを動かすプログラムについて、素人ながらまとめてみました！【まとめ】VBAでIEを動かすプログラムまとめ！・VBA(マクロ)でIEを動かしたい！・社内プログラムでIEと連動させたい。・けれど、参考になる...
nujonoa.com
2020.06.10

]]> https://nujonoa.com/vba-ie-text-input/feed/ 0 【簡単】VBAでIEの全リンク先を取得、クリックする方法～VBA(マクロ)でIE操作 https://nujonoa.com/vba-ie-linkall-click/ https://nujonoa.com/vba-ie-linkall-click/#respond Wed, 15 May 2019 16:49:24 +0000 http://nujonoa.com/?p=808 ↓のサイトで、IEを表示、要素を抜き出すことができました。
次は、リンクをすべて確認し、任意のリンクをクリックする方法を説明します。

【簡単】VBAでIEの任意のサイトを表示させる方法～VBA(マクロ)でIE操作
VBAでIEを操作する方法はネットを検索しても、まだ確立されきっていないように感じますので、素人が学びながら、そこまで深堀せずに簡単に説明していきたいと思います。VBAでIEの任意のサイトを表示させる方法VBAの入門編として、まずIEの画面...
nujonoa.com
2020.06.10
【簡単】VBAでIEの全要素のデータを取得する方法～VBA(マクロ)でIE操作
↓改良版です。こちら速度向上させましたので、こちらをご覧ください。↓のサイトで、IEを表示することができました。次は、HTMLの中身を確認し、任意の情報を取り出す方法を書いていこうと思います。VBAでIEの全要素のデータを取得する方法マクロ...
nujonoa.com
2020.06.10

VBAでIEの全リンク先を取得、クリックする方法～VBA(マクロ)でIE操作

今回は、VBAで特定のページのすべてのリンク先を取得、クリックする方法を紹介したいと思います。
下記コードは「グーグルの検索サイト」の
全てのリンク先をエクセルに書き出すコードです。
ダブルクリックでコピーできますのでとりあえずVBAに張り付けて実行してみてください。

Sub IElinkall()
  
 Application.ScreenUpdating = False
   
'*****↓ここまでは以前と一緒***************************************************
'IEの起動
Dim objIE As Object
   
Set objIE = GetObject("", "InternetExplorer.Application")
   
objIE.Visible = True
       
       
    objIE.Navigate "https://www.google.com/?hl=ja"  ' このURLを任意に変更
       
    ' ページの表示完了待ち｡
    While objIE.ReadyState <> 4 Or objIE.Busy = True
        DoEvents
    Wend
'*****↑ここまでは以前と一緒***************************************************
   
'****今日はここから↓***************************************************
   
    On Error Resume Next      '値がないとエラーが出るので、エラー回避用
  
    I = 1  '開始行を指定
    J = objIE.document.all.Length  '要素の数を知る
      
    Cells(I, 1).Value = "uniqueID"
    Cells(I, 2).Value = "tagname"
    Cells(I, 3).Value = "Type"
    Cells(I, 4).Value = "NAME"
    Cells(I, 5).Value = "ID"
    Cells(I, 6).Value = "className"
    Cells(I, 7).Value = "TABINDEX"
    Cells(I, 8).Value = "Vakue"
    Cells(I, 9).Value = "checked"
    Cells(I, 10).Value = "親のtagname"
    Cells(I, 11).Value = "innertext"
    Cells(I, 12).Value = "outertext"
    Cells(I, 13).Value = "outherhtml"
    Cells(I, 14).Value = "innerhtml"
    Cells(I, 15).Value = "リンク先"
    
      
     Dim A As Object
       
    For Each A In objIE.document.getElementsByTagName("A")
      
      
 
        Cells(I + 1, 1) = A.uniqueID                'uniqueID
        Cells(I + 1, 2) = A.TAGNAME                 '親のTAG
        Cells(I + 1, 3) = A.Type                    'タイプ ※selectボックスは”select-one”と取得
        Cells(I + 1, 4) = A.Name                    '名前
        Cells(I + 1, 5) = A.ID                      'ID
        Cells(I + 1, 6) = A.className               'クラス名
        Cells(I + 1, 7) = A.TabIndex                'フォーカス順序 (Tabでの移動順)
        Cells(I + 1, 8) = A.Value                   '値
        Cells(I + 1, 9) = A.Checked                 'チェック状態 (True = チェック有り､false = チェック無し)
                                                    'checkboxやradioボタンから取得します
        Cells(I + 1, 10) = A.parentElement.TAGNAME  '親のTAG
  
  
  
        If Len(A.innerHTML) > 50 Then
          
            Cells(I + 1, 11) = Left(A.innertext, 10) & "   ~~~   " & Right(A.innertext, 10)
            Cells(I + 1, 12) = Left(A.outertext, 10) & "   ~~~   " & Right(A.outerrext, 10)
            Cells(I + 1, 13) = Left(A.outerHTML, 10) & "   ~~~   " & Right(A.outerHTML, 10)
            Cells(I + 1, 14) = Left(A.innerHTML, 10) & "   ~~~   " & Right(A.innerHTML, 10)
  
        Else
          
            Cells(I + 1, 11) = A.innertext
            Cells(I + 1, 12) = A.outertext
            Cells(I + 1, 13) = A.outerHTML
            Cells(I + 1, 14) = A.innerHTML
                      
        End If
        
            Cells(I + 1, 15) = A.href
         
        I = I + 1
          
        'ステータスバーに進捗を表示
        Application.StatusBar = I & "/" & J
       
    Next
      
    On Error GoTo 0

    Cells.WrapText = False
  
  
Application.ScreenUpdating = True
Application.StatusBar = False
  
Range(Cells(1, 1), Cells(1, 13)).EntireColumn.ColumnWidth = 1
Range(Cells(1, 14), Cells(1, 15)).EntireColumn.AutoFit
Range(Cells(1, 15), Cells(1, 15)).EntireColumn.Interior.ColorIndex = 6
   
End Sub

簡単にプログラム説明

リンクの場合 TagName は「A」

リンクの場合 TagName は「A」ですので、サイトを表示させた後、
For Each A In objIE.document.getElementsByTagName("A")　～～～　Next
でリンクの要素をすべて検索し、
N列に　innerhtml(テキスト名)　
O列に　href(リンク先)　をエクセルに書き出していきました。

リンクをクリックする

ここからリンクをクリックする方法はいろいろとあるのですが、
一番簡単なのは、N列に出したinnertextを用いることです。
下記にコードに「規約」の文字をクリックする場合のコードを示します。
行っていることは、
①FOR EACH で「A」をすべて抜き出す。
②IF文で入力したい要素を見つける。→今回は.innertextが”規約”
③特定した要素.clickでボタンを押す
ダブルクリックでコピーできますのでVBAに張り付けて実行してみてください。 

Sub IElinkclick()
   
'IEの起動
Dim objIE As Object
   
Set objIE = GetObject("", "InternetExplorer.Application")
   
objIE.Visible = True
       
       
    objIE.Navigate "https://www.google.com/?hl=ja"  ' このURLを任意に変更
       
    ' ページの表示完了待ち｡
    While objIE.ReadyState <> 4 Or objIE.Busy = True
        DoEvents
    Wend
   
    On Error Resume Next      '値がないとエラーが出るので、エラー回避用
      
     Dim A As Object
       
    For Each A In objIE.document.getElementsByTagName("A")
      
        If A.innerHtml = "規約" Then A.Click
       
    Next
      
    On Error GoTo 0
  
End Sub

ほかのやり方も。

また、単純にリンク<A>の中の0から数えて6番目の要素でもありますので、
下記のようなコードでもクリックすることができます。
※プログラムは０から数えるので、(6)となります。

Sub IElinkclick2()
  
 Application.ScreenUpdating = False
   
'IEの起動
Dim objIE As Object
   
Set objIE = GetObject("", "InternetExplorer.Application")
   
objIE.Visible = True
       
    objIE.Navigate "https://www.google.com/?hl=ja"  ' このURLを任意に変更
       
    ' ページの表示完了待ち｡
    While objIE.ReadyState <> 4 Or objIE.Busy = True
        DoEvents
    Wend

    On Error Resume Next      '値がないとエラーが出るので、エラー回避用
        
    objIE.document.getElementsByTagName("A")(6).Click

End Sub

その他、VBAでIEを動かすために必要な情報をまとめています！！

こちらを参照ください！
【まとめ】VBAでIEを動かすプログラムまとめ！
まだ、あまり確立されていないVBAでIEを動かすプログラムについて、素人ながらまとめてみました！【まとめ】VBAでIEを動かすプログラムまとめ！・VBA(マクロ)でIEを動かしたい！・社内プログラムでIEと連動させたい。・けれど、参考になる...
nujonoa.com
2020.06.10

]]> https://nujonoa.com/vba-ie-linkall-click/feed/ 0