{"id":6033,"date":"2015-08-11T11:16:52","date_gmt":"2015-08-11T02:16:52","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=6033"},"modified":"2021-10-04T13:36:55","modified_gmt":"2021-10-04T04:36:55","slug":"microsoft-edge%e3%82%92%e6%93%8d%e4%bd%9c%e3%81%99%e3%82%8bvba%e3%83%9e%e3%82%af%e3%83%addom%e7%b7%a8","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=6033","title":{"rendered":"Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308bVBA\u30de\u30af\u30ed(DOM\u7de8)"},"content":{"rendered":"

2021\/10\/1 \u8ffd\u8a18\uff1a<\/span>
\n\u672c\u8a18\u4e8b\u306f\u516c\u958b\u3055\u308c\u3066\u304b\u3089\u5927\u5206\u6642\u9593\u304c\u7d4c\u3063\u3066\u304a\u308a\u5185\u5bb9\u3082\u53e4\u304f\u306a\u3063\u3066\u304a\u308a\u307e\u3059\u3002
\nVBA\u304b\u3089\u306e\u30d6\u30e9\u30a6\u30b6\u30fc\u64cd\u4f5c\u306b\u3064\u304d\u307e\u3057\u3066\u306f\u4e0b\u8a18\u8a18\u4e8b\u3082\u3054\u53c2\u7167\u304f\u3060\u3055\u3044\u3002<\/p>\n

Chrome DevTools Protocol\u3067Edge\u3092\u64cd\u4f5c\u3059\u308bVBA\u30de\u30af\u30ed<\/a><\/div>
2021.10.01<\/span>
Chrome DevTools Protocol\u3067Edge\u3092\u64cd\u4f5c\u3059\u308bVBA\u30de\u30af\u30ed <\/a><\/div>
Microsoft Edge\u306e\u64cd\u4f5c\u3092\u81ea\u52d5\u5316\u3059\u308b\u969b\u306fWebDriver\u3092\u4f7f\u3046\u3053\u3068\u304c\u591a\u3044\u306e\u3067\u3059\u304c\u3001\u30d6\u30e9\u30a6\u30b6\u30fc\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u306b\u30c9\u30e9\u30a4\u30d0\u30fc\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u3092\u5408\u308f\u305b\u308b\u5fc5\u8981\u304c\u6709\u308a\u3001\u7ba1\u7406\u306b\u624b\u9593\u304c\u639b\u304b\u308b\u306e\u304c\u96e3\u70b9\u3067\u3059\u3002\r\n\r\n\u7279\u306bVBA\u3067\u306f\u30c9\u30e9\u30a4\u30d0\u30fc\u306e\u66f4\u65b0\u3092\u81ea\u52d5\u3067\u884c\u3063\u3066\u304f\u308c\u308b\u300cWeb...<\/div><\/div>
<\/div><\/div>\n
IE\u30b5\u30dd\u30fc\u30c8\u7d42\u4e86\u3067VBA\u30de\u30af\u30ed\u306f\u3069\u3046\u306a\u308b\u306e\uff1f<\/a><\/div>
2021.05.21<\/span>
IE\u30b5\u30dd\u30fc\u30c8\u7d42\u4e86\u3067VBA\u30de\u30af\u30ed\u306f\u3069\u3046\u306a\u308b\u306e\uff1f <\/a><\/div>
\u203b\u4e0b\u8a18\u60c5\u5831\u306f2021\u5e745\u6708\u6642\u70b9\u306e\u60c5\u5831\u3067\u3001\u4eca\u5f8c\u72b6\u6cc1\u304c\u5909\u308f\u3063\u3066\u3044\u304f\u53ef\u80fd\u6027\u304c\u3042\u308a\u307e\u3059\u3002\r\n\r\n\u5148\u65e5\u3001Microsoft\u304b\u30892022\u5e746\u6708\u306bInternet Explorer 11\u30c7\u30b9\u30af\u30c8\u30c3\u30d7\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u30b5\u30dd\u30fc\u30c8\u304c\u7d42\u4e86\u3055\u308c\u308b\u3068\u306e\u767a\u8868\u304c\u3042\u308a\u307e\u3057\u305f\u3002\r\n\r\n\r\n\r\n...<\/div><\/div>
<\/div><\/div>\n
IE\u30b5\u30dd\u30fc\u30c8\u7d42\u4e86\u3067VBA\u30de\u30af\u30ed\u306f\u3069\u3046\u306a\u308b\u306e\uff1f(2)<\/a><\/div>
2021.05.23<\/span>
IE\u30b5\u30dd\u30fc\u30c8\u7d42\u4e86\u3067VBA\u30de\u30af\u30ed\u306f\u3069\u3046\u306a\u308b\u306e\uff1f(2) <\/a><\/div>
\u203b\u4e0b\u8a18\u60c5\u5831\u306f2021\u5e745\u6708\u6642\u70b9\u306e\u60c5\u5831\u3067\u3001\u4eca\u5f8c\u72b6\u6cc1\u304c\u5909\u308f\u3063\u3066\u3044\u304f\u53ef\u80fd\u6027\u304c\u3042\u308a\u307e\u3059\u3002\r\n\r\n\u524d\u56de\u306e\u8a18\u4e8b\u3067Internet Explorer 11\u30c7\u30b9\u30af\u30c8\u30c3\u30d7\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u30b5\u30dd\u30fc\u30c8\u7d42\u4e86\u306b\u4f34\u3063\u3066VBA\u30de\u30af\u30ed\u5468\u308a\u304c\u3069\u3046\u5909\u308f\u308b\u306e\u304b\u3001\u9b54\u754c\u306e\u4eee\u9762\u5f01\u58eb\u3055\u3093\u3068\u30e6\u30b9\u30ad\u30a3\u3055\u3093\u306e\u30c4...<\/div><\/div>
<\/div><\/div>\n
\n

2017\/1\/31 \u8ffd\u8a18\uff1a<\/span>
\n\u4e00\u90e8\u30b3\u30fc\u30c9\u3092\u4fee\u6b63\u3057\u305f\u8a18\u4e8b\u3092\u516c\u958b\u3057\u307e\u3057\u305f\u3002<\/p>\n

\u30102017\u5e741\u6708\u7248\u3011Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308bVBA\u30de\u30af\u30ed(DOM\u7de8)<\/a><\/div>
2017.01.31<\/span>
\u30102017\u5e741\u6708\u7248\u3011Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308bVBA\u30de\u30af\u30ed(DOM\u7de8) <\/a><\/div>
2021\/10\/1 \u8ffd\u8a18\uff1a\r\n\u672c\u8a18\u4e8b\u306f\u516c\u958b\u3055\u308c\u3066\u304b\u3089\u5927\u5206\u6642\u9593\u304c\u7d4c\u3063\u3066\u304a\u308a\u5185\u5bb9\u3082\u53e4\u304f\u306a\u3063\u3066\u304a\u308a\u307e\u3059\u3002\r\nVBA\u304b\u3089\u306e\u30d6\u30e9\u30a6\u30b6\u30fc\u64cd\u4f5c\u306b\u3064\u304d\u307e\u3057\u3066\u306f\u4e0b\u8a18\u8a18\u4e8b\u3082\u3054\u53c2\u7167\u304f\u3060\u3055\u3044\u3002\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n\u300cMicrosoft Edge VBA \u64cd\u4f5c\u300d\u3053\u3046\u3044...<\/div><\/div>
<\/div><\/div>\n
\n

2019\/6\/5 \u8ffd\u8a18\uff1a<\/span>
\nSeleniumBasic<\/a>\u3092\u4f7f\u3063\u3066Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308b\u65b9\u6cd5\u306b\u3064\u3044\u3066\u3082\u8a18\u4e8b\u3092\u66f8\u304d\u307e\u3057\u305f\u3002<\/p>\n

\u30102019\u5e746\u6708\u7248\u3011SeleniumBasic\u3067Microsoft Edge\u3092\u64cd\u4f5c\u3057\u3066\u307f\u307e\u3057\u305f\u3002<\/a><\/div>
2019.06.05<\/span>
\u30102019\u5e746\u6708\u7248\u3011SeleniumBasic\u3067Microsoft Edge\u3092\u64cd\u4f5c\u3057\u3066\u307f\u307e\u3057\u305f\u3002 <\/a><\/div>
2015\u5e74\u30682018\u5e74\u306bSeleniumBasic\u3092\u4f7f\u3063\u3066Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308b\u65b9\u6cd5\u306b\u3064\u3044\u3066\u8a18\u4e8b\u3092\u66f8\u304d\u307e\u3057\u305f\u3002\r\n\r\n\r\n\r\n\r\n\r\nWindows 10 May 2019 Update\u304c\u516c\u958b\u3055\u308c\u3001Edge\u5468\u308a\u306e\u74b0\u5883\u304c\u5909\u308f\u3063\u305f\u306e\u3067\u3001\u6539\u3081\u3066\u52d5\u4f5c\u78ba...<\/div><\/div>
<\/div><\/div>\n
\n

Spy++\u3067Microsoft Edge\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u3092\u773a\u3081\u3066\u3044\u3066\u6c17\u304c\u4ed8\u3044\u305f\u3053\u3068\u304c\u4e00\u3064\u3002<\/p>\n

\u201c\u4e0b\u306e\u65b9\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u306b\u300cInternet Explorer_Server\u300d\u30af\u30e9\u30b9\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u304c\u3042\u308b\u201d<\/span><\/p>\n

\"AutomateMicrosoftEdge_DOM_01\"<\/a><\/p>\n

\u4f55\u6545\u3053\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u304c\u3042\u308b\u306e\u304b\u306f\u77e5\u308a\u307e\u305b\u3093\u304c\u3001\u3053\u308c\u304c\u3042\u308b\u3068\u3044\u3046\u3053\u3068\u306f\u3001\u3088\u304f\u4f7f\u308f\u308c\u308b\u201c\u30a6\u30a3\u30f3\u30c9\u30a6\u30cf\u30f3\u30c9\u30eb\u3092\u6307\u5b9a\u3057\u3066HTMLDocument\u3092\u6355\u307e\u3048\u308b\u65b9\u6cd5\u201d<\/a>\u304c\u4f7f\u3048\u308b\u3068\u3044\u3046\u3053\u3068\uff01\uff1f<\/p>\n

\u3055\u3063\u305d\u304f\u8a66\u3057\u3066\u307f\u308b\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002<\/p>\n

Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308bVBA\u30de\u30af\u30ed<\/h4>\n

\u203b \u4e0b\u8a18\u30b3\u30fc\u30c9\u306f64\u30d3\u30c3\u30c8\u7248Office\u3067\u306f\u52d5\u4f5c\u3057\u307e\u305b\u3093\u306e\u3067\u3001\u30b3\u30fc\u30c9\u3092\u66f8\u304d\u63db\u3048\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/span><\/p>\n

'\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\r\nOption Explicit\r\n\r\nPrivate Type UUID\r\n  Data1 As Long\r\n  Data2 As Integer\r\n  Data3 As Integer\r\n  Data4(0 To 7) As Byte\r\nEnd Type\r\n\r\nPrivate Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, lParam As Long) As Long\r\nPrivate Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long\r\nPrivate Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long\r\nPrivate Declare Function ObjectFromLresult Lib "oleacc" (ByVal lResult As Long, riid As Any, ByVal wParam As Long, ppvObject As Object) As Long\r\nPrivate Declare Function RegisterWindowMessage Lib "user32" Alias "RegisterWindowMessageA" (ByVal lpString As String) As Long\r\nPrivate Declare Function SendMessageTimeout Lib "user32" Alias "SendMessageTimeoutA" (ByVal hWnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long, ByVal fuFlags As Long, ByVal uTimeout As Long, lpdwResult As Long) As Long\r\nPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)\r\nPrivate Const SMTO_ABORTIFHUNG = &H2\r\n\r\nPrivate hEdge As Long\r\nPrivate hIES As Long\r\n\r\nPublic Sub Sample()\r\n'Microsoft Edge\u3092DOM\u64cd\u4f5c(64\u30d3\u30c3\u30c8\u7248Excel\u3067\u306f\u4e0d\u53ef)\r\n'http:\/\/www.mvps.org\/emorcillo\/en\/code\/vb6\/iedom.shtml \u53c2\u7167\r\n  Dim msg As Long\r\n  Dim res As Long\r\n  Dim d As Object\r\n  Dim IID_IHTMLDocument As UUID\r\n  \r\n  'Edge\u8d77\u52d5\r\n  CreateObject("Shell.Application").ShellExecute "microsoft-edge:http:\/\/www.yahoo.co.jp\/"\r\n  Sleep 2000\r\n  \r\n  EnumChildWindows 0, AddressOf EnumChildProcEdge, 0\r\n  If hEdge = 0 Then Exit Sub\r\n  EnumChildWindows hEdge, AddressOf EnumChildProcIES, 0\r\n  If hIES = 0 Then Exit Sub\r\n  msg = RegisterWindowMessage("WM_HTML_GETOBJECT")\r\n  SendMessageTimeout hIES, msg, 0, 0, SMTO_ABORTIFHUNG, 1000, res\r\n  If res Then\r\n    With IID_IHTMLDocument\r\n      .Data1 = &H626FC520\r\n      .Data2 = &HA41E\r\n      .Data3 = &H11CF\r\n      .Data4(0) = &HA7\r\n      .Data4(1) = &H31\r\n      .Data4(2) = &H0\r\n      .Data4(3) = &HA0\r\n      .Data4(4) = &HC9\r\n      .Data4(5) = &H8\r\n      .Data4(6) = &H26\r\n      .Data4(7) = &H37\r\n    End With\r\n    If ObjectFromLresult(res, IID_IHTMLDocument, 0, d) = 0 Then\r\n      d.getElementById("srchtxt").Value = "\u521d\u5fc3\u8005\u5099\u5fd8\u9332"\r\n      d.getElementById("srchbtn").Click\r\n      '\u8868\u793a\u5f85\u3061\r\n      While LCase(d.readyState) <> "complete"\r\n        Sleep 100\r\n        DoEvents\r\n      Wend\r\n      MsgBox d.Title, vbInformation + vbSystemModal\r\n    End If\r\n  End If\r\nEnd Sub\r\n\r\nPrivate Function EnumChildProcEdge(ByVal hWnd As Long, ByVal lParam As Long) As Long\r\n  Dim buf1 As String * 255\r\n  Dim buf2 As String * 255\r\n  Dim ClassName As String\r\n  Dim WindowName As String\r\n  \r\n  GetClassName hWnd, buf1, Len(buf1)\r\n  ClassName = Left(buf1, InStr(buf1, vbNullChar) - 1)\r\n  If ClassName = "ApplicationFrameWindow" Then\r\n    GetWindowText hWnd, buf2, Len(buf2)\r\n    WindowName = Left(buf2, InStr(buf2, vbNullChar) - 1)\r\n    If WindowName Like "*Microsoft Edge" Then\r\n      hEdge = hWnd\r\n      EnumChildProcEdge = False\r\n      Exit Function\r\n    End If\r\n  End If\r\n  EnumChildProcEdge = True\r\nEnd Function\r\n\r\nPrivate Function EnumChildProcIES(ByVal hWnd As Long, ByVal lParam As Long) As Long\r\n  Dim buf As String * 255\r\n  Dim ClassName As String\r\n  \r\n  GetClassName hWnd, buf, Len(buf)\r\n  ClassName = Left(buf, InStr(buf, vbNullChar) - 1)\r\n  If ClassName = "Internet Explorer_Server" Then\r\n    hIES = hWnd\r\n    EnumChildProcIES = False\r\n    Exit Function\r\n  End If\r\n  EnumChildProcIES = True\r\nEnd Function<\/pre>\n
\u4e0a\u8a18\u30b3\u30fc\u30c9\u306f\u3001 Edge\u3067Yahoo! JAPAN\u3092\u958b\u304f \u2192 \u300c\u521d\u5fc3\u8005\u5099\u5fd8\u9332\u300d\u3092\u30ad\u30fc\u30ef\u30fc\u30c9\u306b\u691c\u7d22 \u2192 \u691c\u7d22\u7d50\u679c\u306e\u30bf\u30a4\u30c8\u30eb\u3092\u30e1\u30c3\u30bb\u30fc\u30b8\u30dc\u30c3\u30af\u30b9\u3067\u8868\u793a\u3001\u3068\u3044\u3046\u52d5\u4f5c\u3092\u884c\u3046\u3082\u306e\u3067\u3059\u304c\u3001\u78ba\u8a8d\u3057\u305f\u9650\u308a\u3067\u306f\u4e0b\u56f3\u306e\u3088\u3046\u306b\u610f\u56f3\u3057\u305f\u901a\u308a\u52d5\u4f5c\u3057\u3066\u3044\u308b\u3088\u3046\u3067\u3059\u3002<\/p>\n
\"AutomateMicrosoftEdge_DOM_02\"<\/a><\/p>\n
\u4f7f\u3044\u6163\u308c\u305fDOM\u3067Edge\u3092\u30a2\u30ec\u30b3\u30ec\u3067\u304d\u308b\u306e\u306f\u4e2d\u3005\u4fbf\u5229\u3067\u3059\u3002
\n\u3068\u306f\u3044\u3048Edge\u304c\u30d0\u30fc\u30b8\u30e7\u30f3\u30a2\u30c3\u30d7\u3059\u308b\u3068\u4f7f\u3048\u306a\u304f\u306a\u308b\u53ef\u80fd\u6027\u3082\u3042\u308b\u306e\u3067\u3001\u5b9f\u52d9\u3067\u4f7f\u3046\u5834\u5408\u306f\u3001\u3084\u306f\u308a\u516c\u5f0f\u306b\u30b5\u30dd\u30fc\u30c8\u3055\u308c\u3066\u3044\u308bWebDriver<\/span>\u3092\u5229\u7528\u3057\u305f\u65b9\u304c\u826f\u3044\u3060\u308d\u3046\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n
\u95a2\u9023\u8a18\u4e8b<\/h4>\n