Excelにこんな感じでユーザ名/パスワードが書いていて、
ログインボタンでIEからconnpassにログインするVBAを作成しました。
※シート名は「ログイン情報」
完成版VBAソースコード
作ったVBAは以下の通り
Sub login()
Dim objIE As InternetExplorer 'IEオブジェクトを準備
Set objIE = CreateObject("Internetexplorer.Application") '新しいIEオブジェクトを作成してセット
objIE.Visible = True 'IEを表示
Dim strUrl As String '次ページのURL
strUrl = "https://connpass.com/login/"
objIE.navigate strUrl 'IEでURLを開く
Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE '読み込み待ち
DoEvents
Loop
Dim strUsername As String
strUsername = Worksheets("ログイン情報").Range("C3").Value
Dim strPassword As String
strPassword = Worksheets("ログイン情報").Range("C4").Value
Dim htmlDoc As HTMLDocument 'HTMLドキュメントオブジェクトを準備
Set htmlDoc = objIE.document 'objIEで読み込まれているHTMLドキュメントをセット
htmlDoc.getElementsByName("username")(0).Value = strUsername 'name="username"にユーザー名を入力
htmlDoc.getElementsByName("password")(0).Value = strPassword 'name="password"にパスワードを入力
htmlDoc.getElementById("login_form").submit 'フォームの内容を送信
End Sub
対象のHTMLは以下の通り
<form action="/login/" method="post" id="login_form">
<h3 class="main_h3">connpassアカウントでログイン</h3>
<p class="em mb_smallest">ユーザー名、またはメールアドレス</p>
<p class="p text_center">
<input name="username" class="gray_form" type="text" value="">
</p>
<p class="em mb_smallest">パスワード</p>
<p class="p text_center">
<input name="password" class="gray_form" type="password">
</p>
<p class="p text_center"><button class="btn btn_default" type="submit">ログインする</button></p>
<input type="hidden" name="csrfmiddlewaretoken" value="g638HlpAm1I3B7qA9zSv8YpuYU8Tb6HE">
</form>
ソースコード参考にしたサイトはこちら
【エクセルVBAでIE操作】ユーザー名とパスワードを入力してログインをする
↑上記サイトはgetElementByIdメソッドで取得していましたが、Idがなかったので以下を参考にgetElementsByNameメソッドで取得しました
VBAでIEのテキストボックスに値入力
エラーの備忘録
ユーザ定義型は定義されていません
コンパイルエラー
必要なライブラリが読み込めていないエラーのよう。それではじめはIEを開くことができませんでした。
対処策：コード実行を停止後、[ツール］-[参照設定]から必要なライブラリファイルにチェックを入れる
オブジェクトは、このプロパティまたはメソッドをサポートしていません
実行時エラー。
直訳すると、『そんなプロパティorメソッドなんてねーよｗ』とのことらしい。
よくよくみてみると、「getElementByName」になっていて、sが抜けていました。
対処策：プロパティとメソッド見直そう
感想
これはパスワードをそのままExcel上に直接書いているので、この前の記事のようにパスワードを伏字にした状態からパスワードを取得し、ログインできるようにしたい。
あとyahooメールのように、ユーザーID入力のあとパスワード入力の画面にうつるようなパターンでもログインできるようにしたい。