［EXCEL VBA × Chrome］EXCELシートに記載された接続先情報を使ってChromeで自動ログインする

#備忘メモ：Seleniumbasicを使った自動ログイン

説明

とあるシステムの管理コンソールに接続するためのURL、ログイン情報等が記載されているEXCELシートの表に[接続]セルを作成し、クリックすることでChromeを使用して自動ログインできるようにする。

EXCELシートの表の例

	A	B	C	D	E	F	G	H	I	J
1		組織情報	ユーザ用				管理者用
2		組織コード	URL	ID	PW		URL	ID	PW
3	○○支店	13412813	https://hoge/user/	0001	0001	接続	https://hoge/admin/	9001	9001	接続
4	××支店	87237492	https://hoge/user/	0002	0002	接続	https://hoge/admin/	9002	9002	接続
5	■■支店	68123754	https://hoge/user/	0003	0003	接続	https://hoge/admin/	9003	9003	接続
6	△△支店	73561841	https://hoge/user/	0004	0004	接続	https://hoge/admin/	9004	9004	接続
7	※※支店	21828114	https://hoge/user/	0005	0005	接続	https://hoge/admin/	9005	9005	接続

##コード

Public driver As New Selenium.ChromeDriver

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    'http://florentbr.github.io/SeleniumBasic/
    'Download＞Release page＞SeleniumBasic-2.0.9.0.exe
    'Chromeメニュー＞ヘルプ＞Google Chromeについて
    '～94　https://sites.google.com/a/chromium.org/chromedriver/downloads
    '104～　https://sites.google.com/chromium.org/driver/
    'chromedriver.exe を %userprofile%\AppData\Local\SeleniumBasic に上書き
    'ツール＞参照設定＞Selenium Type Library
    
    X = Selection.Column
    Y = Selection.Row
    
    If Not ((X = 6 Or X = 10) And (Y >= 3 And Y <= 7)) Then
        Exit Sub
    End If
    
    url = Cells(Y, X - 3)
    officecode = Cells(Y, 2)
    userid = Cells(Y, X - 2)
    password = Cells(Y, X - 1)
    
    driver.Start ("chrome")
    driver.Get url
    
    driver.FindElementByName("officecode").SendKeys officecode
    driver.FindElementByName("userid").SendKeys userid
    driver.FindElementByName("password").SendKeys password
    driver.FindElementById("login").Click

End Sub