MicrosoftEdgeのIEモードをVBAで操作する

コメント

1. nyarou より:

   2023-03-18 23:28

   はじめまして。EdgeのIEモードをVBA操作したいと考えており、こちらの記事を参考にさせて頂いております。わかればご教授願いたいのですが、64bit版のエクセルで動かすコードはわかりますでしょうか？こちらの記事のコードは32bit版用だと思われるのですが、64bit版用として現在試しているのが、次の2点です。

   ①”Long”を”LongPtr”に書き換えた。
   ②”Private Declare Function”の箇所で、”Declare”と”Function”の間に”PtrSafe”を付け加えた。

   Edgeを開き、IEモードで開くところまでは動いたのですが、どうしてもgoogle検索の検索ボックスにキーワード挿入する箇所（IeEdge.getElementsByName(“q”)(0).Value = “VBA・GAS・Pythonで業務を楽しく効率化”）で「オブジェクト型の変数は設定されていません (エラー 91)」というエラーとなってしまいます。考えられる原因がもしわかるようでしたらご教授して頂きたいです。

   返信
   • okumasahito より:

     2023-03-19 09:59

     コメントありがとうございます。

     申し訳ありません。
     正直64bit版のExcelは使ったことがなく、正直この部分が原因だと
     どのように修正すればよいかわからないです。

     ただ、原因は別のところなのかな？と思いまして…。
     ブラウザはIEモードにきちんと切り替わっておりますでしょうか？
     （アドレスバーの左にIEのアイコンが表示されているかどうかで確認ができると思います。）

     今私のPCで動作確認してみたら記事作成時からブラウザのバージョンアップで
     IEモードへの変更がうまくいかないようです。

     そのため、検索文字を入力する段階でDOMを取得できておらず同じエラー91が出ました。
     解決方法としては以下の手順をお試しいただけますでしょうか。
     ①プロシージャの「Edge起動」を以下2行にしてIEモードへ変更するステップの削除
     CreateObject(“Shell.Application”).ShellExecute “microsoft-edge:https://www.google.co.jp/”
     Sleep 3000
     この2行のあとをすべてコメントアウトもしくは削除
     ②Edgeの「設定」→「既定のブラウザ」→「InternetExplorerの互換性」の欄で
     InternetExplorerモード（IEモード）でのサイトの再読み込みを許可：許可
     InternetExplorerモードページにhttps://www.google.co.jp/を追加

     この状況で再度実行していただき、エラーがどのように生じるか
     ご確認いただけると嬉しいです。

     返信
     • nyarou より:

       2023-03-19 22:22

       お返事ありがとうございます。

       IEモードの切り替え自体は、記事のコード（キーボードイベント）により問題無く動いており、視覚でも動作確認できております。念のため、ご指摘の通りに修正して実行してみましたが、同じ箇所でエラーになってしまいました。

       返信
       • okumasahito より:

         2023-03-19 23:37

         ご確認ありがとうございます。
         それではおそらく64bit版Excelの手順でWindowsApi対応しないといけなそうですね。

         関数の変更については以下のサイトが参考になりそうでした。
         https://vbabeginner.net/howto-use-win32-api/
         以下のテキストファイルに変換後の記載方法も記載されているので、user32のAPIは修正できると思われます。
         https://vbabeginner.net/data/Win32API_PtrSafe.TXT

         問題は以下3つのAPIだと思いますが、こちらに関しては情報がなく私もわかりませんでした。
         Private Declare Function IIDFromString Lib “ole32” (lpsz As Any, lpiid As Any) As Long
         Private Declare Function ObjectFromLresult Lib “oleacc” (ByVal lResult As Long, riid As Any, ByVal wParam As Long, ppvObject As Object) As Long
         Private Declare PtrSafe Function IUnknown_QueryService Lib “shlwapi.dll” _
         (ByVal punk As IUnknown, guidService As GUID, riid As GUID, ppvOut As IAccessible) _
         As Long
         私も他のサイトの記載を引用して作ったコードなので、詳細が把握てきておらずお役に立てなくて申し訳ありません。
         私も探ってみますがかなり難易度が高い気がしており、解決できる自信がないです。

         返信
       • okumasahito より:

         2023-03-19 23:54

         追記情報：以下サイトに64bit Excel対応の記事がありました。
         https://qiita.com/ymd65536-ms/items/320f889e9fc35fe375f1

         こちらのコードで動くかどうか確認をお願いできますでしょうか。
         私の環境ではエラー91が出て動かないのですが、もしかしたら？と期待しております。

         Option Explicit

         Public Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal ms As LongPtr)
         Private Declare PtrSafe Function GetTopWindow Lib “user32” (ByVal hwnd As LongPtr) As LongPtr
         Private Declare PtrSafe Function GetParent Lib “user32” (ByVal hwnd As LongPtr) As LongPtr
         Private Declare PtrSafe Function GetWindowThreadProcessId Lib “user32” (ByVal hwnd As LongPtr, lpdwProcessId As LongPtr) As LongPtr
         Private Declare PtrSafe Function RegisterWindowMessage Lib “user32” Alias “RegisterWindowMessageA” (ByVal lpString As String) As LongPtr
         Private Declare PtrSafe Function SendMessageTimeout Lib “user32” Alias “SendMessageTimeoutA” (ByVal hwnd As LongPtr, ByVal msg As LongPtr, ByVal wParam As LongPtr, ByVal lParam As LongPtr, ByVal fuFlags As LongPtr, ByVal uTimeout As LongPtr, lpdwResult As LongPtr) As LongPtr
         Private Declare PtrSafe Function IIDFromString Lib “ole32” (lpsz As Any, lpiid As Any) As Long
         Private Declare PtrSafe Function ObjectFromLresult Lib “oleacc” (ByVal lResult As LongPtr, riid As Any, ByVal wParam As LongPtr, ppvObject As Object) As LongPtr
         Private Declare PtrSafe Function EnumChildWindows Lib “user32” (ByVal hWndParent As LongPtr, ByVal lpEnumFunc As LongPtr, ByVal lParam As LongPtr) As LongPtr
         Private Declare PtrSafe Function GetClassName Lib “user32” Alias “GetClassNameA” (ByVal hwnd As LongPtr, ByVal lpClassName As String, ByVal nMaxCount As LongPtr) As LongPtr
         Private Declare PtrSafe Function GetNextWindow Lib “user32” Alias “GetWindow” (ByVal hwnd As LongPtr, ByVal wFlag As LongPtr) As LongPtr

         Private Const GW_HWNDNEXT = &H2
         Private hIES As LongPtr

         Public Function GetWindow(Title As String) As Object

         Dim con As Object
         Dim items As Object
         Dim HtmlDoc As Object
         Dim hwnd As LongPtr: hwnd = 0
         Dim pid As LongPtr: pid = 0
         Dim buf As String * 255
         Dim ClassName As String

         Const ProcessName = “msedge.exe”

         Set con = CreateObject(“WbemScripting.SWbemLocator”).ConnectServer
         hwnd = GetTopWindow(0)

         Do
         GetClassName hwnd, buf, Len(buf)
         ClassName = Left(buf, InStr(buf, vbNullChar) – 1)

         If InStr(ClassName, “Chrome_WidgetWin_”) > 0 Then

         ‘ウィンドウハンドルからプロセスIDを取得し、Edgeのウィンドウかどうかを判別する
         GetWindowThreadProcessId hwnd, pid
         Set items = con.ExecQuery(“Select ProcessId From Win32_Process Where (ProcessId = ‘” & pid & “‘) And (Name = ‘” & ProcessName & “‘)”)
         If items.Count > 0 Then
         ‘Edgeの子ウィンドウ列挙

         EnumChildWindows hwnd, AddressOf EnumChildProcIES, 0
         If hIES <> 0 Then
         Set HtmlDoc = GetHTMLDocumentFromIES(hIES)
         If HtmlDoc Is Nothing Then
         Else
         If InStr(HtmlDoc.Title, Title) > 0 Then
         Set GetWindow = HtmlDoc
         Exit Do
         End If
         End If
         End If
         End If
         End If
         hwnd = GetNextWindow(hwnd, GW_HWNDNEXT)
         Loop While hwnd <> 0

         End Function

         Private Function EnumChildProcIES(ByVal hwnd As LongPtr, ByVal lParam As LongPtr) As LongPtr
         Dim buf As String * 255
         Dim ClassName As String

         GetClassName hwnd, buf, Len(buf)
         ClassName = Left(buf, InStr(buf, vbNullChar) – 1)
         If ClassName = “Internet Explorer_Server” Then
         hIES = hwnd
         EnumChildProcIES = False
         Exit Function
         End If
         EnumChildProcIES = True
         End Function

         Private Function GetHTMLDocumentFromIES(ByVal hwnd As LongPtr) As Object
         Dim msg As LongPtr, res As LongPtr
         Dim iid(0 To 3) As LongPtr
         Dim ret As Object, obj As Object
         Const SMTO_ABORTIFHUNG = &H2
         Const IID_IHTMLDocument2 = “{332c4425-26cb-11d0-b483-00c04fd90119}”

         Set ret = Nothing ‘初期化
         msg = RegisterWindowMessage(“WM_HTML_GETOBJECT”)
         SendMessageTimeout hwnd, msg, 0, 0, SMTO_ABORTIFHUNG, 1000, res
         If res Then
         IIDFromString StrPtr(IID_IHTMLDocument2), iid(0)
         If ObjectFromLresult(res, iid(0), 0, obj) = 0 Then Set ret = obj
         End If
         Set GetHTMLDocumentFromIES = ret
         End Function

         Sub edge操作()

         Dim IeObj As Object
         IeObj.getElementsByName(“q”)(0).Value = “VBA・GAS・Pythonで業務を楽しく効率化” ‘検索バーに文字を入力

         End Sub

         返信
         • nyarou より:

           2023-03-21 22:13

           お返事と参考URLの紹介ありがとうございます。

           edge操作のプロシージャの部分は、edgeを立ち上げるコードは不要なのでしょうか？このコードのままだと、動かなそうでした。難しそうでしたら、あとは調べてみますので、大丈夫です。
         • okumasahito より:

           2023-03-21 22:34

           ご連絡ありがとうございます。
           お力になれず申し訳ありません。
           WindowsAPIについて私も勉強してみます。