「'文字列内の改行削除」の下2行で質問文に含まれる改行を削除。「Set objHttp = CreateObject("MSXML2.XMLHTTP")」は、VBAでHTMLページを参照する際の定型句

「'文字列内の改行削除」の下2行で質問文に含まれる改行を削除。「Set objHttp = CreateObject("MSXML2.XMLHTTP")」は、VBAでHTMLページを参照する際の定型句