Excelにログインに必要な情報を記載して特定のサイトにログインしたい

Question

前提・実現したいこと

Excelにログインに必要な情報(IDとパスワード)を以下のようにセルとテキストボックスに記載して、特定のサイトにログインしたいと思っています。
参考にしたサイトは→　https://qiita.com/salmonosushi/items/5f57e8f70ec99b5fab32
![

※何故やろうとしたのかなどの事の経緯ほかについては以下の通り。
業務に必要なサイトへの自動ログインを定時で行いたい
↓
Excelで自動ログインのマクロを組み(ワークブック起動でマクロが実行されるようにした)、Windowsのタスクスケジューラでこのブックを定時に起動するように設定した

発生している問題・エラーメッセージ

ログイン画面で自動ログインをしたところ、ログインができないと弾かれる
↓
正しい8桁のパスワードをExcel側には入力していたにもかかわらず、ログインしようとしているサイトのパスワード入力欄に転記されたパスワードがなぜか9桁になっていた。転記された先でパスワードを編集しようとすると8桁になり、正しいパスワードが転記された状態になる。

該当のソースコード

Sub auto_open()

Dim objIE As InternetExplorer 'IEオブジェクトを準備
Set objIE = New InternetExplorerMedium
'新しいIEオブジェクトを作成してセット

objIE.Visible = True 'IEを表示

Dim strUrl As String '次ページのURL
strUrl = "http://www.hogehoge.com"

objIE.navigate strUrl 'IEでURLを開く

Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE '読み込み待ち

    DoEvents

Loop

Dim strUsername As String
    strUsername = GetUsername

Dim strPassword As String
    strPassword = GetPassword

Dim htmlDoc As HTMLDocument 'HTMLドキュメントオブジェクトを準備
Set htmlDoc = objIE.document 'objIEで読み込まれているHTMLドキュメントをセット

htmlDoc.getElementById("username").Value = strUsername
htmlDoc.getElementById("password").Value = strUserpassword
htmlDoc.getElementById("submit").Click 'フォームの内容を送信


End Sub

Function GetUsername() As String
    Dim ws As Worksheet
    Set ws As Worksheets("ログイン情報")

    Dim username As String
    username = ws.Range("C3").Value 'ユーザー名を取得する
    GetUsername = username

End Function

Function GetPassword() As String
    Dim ws As Worksheet
    Set ws As Worksheets("ログイン情報")

    Dim password As String
    If Range("C4").Value = "" Then
        password = ws.OLEObjects("TextBox1").Object.Value 'パスワードをテキストボックスから取得する
    Else
        password = Range("C4").Value  'パスワードをセルから取得する
    End If
    GetPassword = password

End Function

試したこと

別のサイトでも同事象が発生するか確認してみましたが、私がログインしたいサイトでのみ発生し、ほかのサイトでは発生しないようでした。
現状、ワークシートにログイン情報を入れるのではなく

htmlDoc.getElementById("username").Value = "username"
htmlDoc.getElementById("password").Value = "password"
htmlDoc.getElementById("submit").Click 'フォームの内容を送信

とコードそのものにログイン情報を入れることで解決しております。この場合ですと、パスワードが正しく転記され、ログインされるようになっています。
何故テキストボックスを利用した場合、正しく転記されないのでしょうか？
特定のサイトでのみ発生している事象ですので、サイトの問題でしょうか？

Comments

[y_waiwai]

そのテキストボックスの中身を確認してはどうですか？

[jimunomado]

テキストボックスに何も入力が無いことを確認し、メモ帳に正しいパスワードを入力→コピペも試しましたが、状況は改善しませんでした。

Answer 1

コピペミスでないなら以下が原因かと。

htmlDoc.getElementById("password").Value = strUserpassword
　↓
htmlDoc.getElementById("password").Value = strPassword 

この手のミスを防ぐためにも、Option Explicit宣言をお勧めします。

Comments

[jimunomado]

お恥ずかしながらこれが原因でした。。。ここを直したらすんなりいけました。。。
通常はOption Explicitはデフォルトで入るようになっているのですが、なぜかこのコードだけはすっかり抜けておりました・・・。

Answer 2

パスワードの桁数が変更しているのであれば、
以下のように地道に調べるしかないと思います。

Debug.Print Len(strPassword)
Debug.Print Len(Trim(strPassword))
Debug.Print LenB(strPassword)