{"id":7921,"date":"2017-01-31T16:33:53","date_gmt":"2017-01-31T07:33:53","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=7921"},"modified":"2021-10-04T13:37:21","modified_gmt":"2021-10-04T04:37:21","slug":"%e3%80%902017%e5%b9%b41%e6%9c%88%e7%89%88%e3%80%91microsoft-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=7921","title":{"rendered":"\u30102017\u5e741\u6708\u7248\u3011Microsoft 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

\u300cMicrosoft Edge VBA \u64cd\u4f5c<\/span>\u300d\u3053\u3046\u3044\u3063\u305f\u30ad\u30fc\u30ef\u30fc\u30c9\u691c\u7d22\u3067\u306e\u3001\u4e0b\u8a18\u8a18\u4e8b\u3078\u306e\u30a2\u30af\u30bb\u30b9\u304c\u7d50\u69cb\u3042\u308a\u307e\u3059\u3002<\/p>\n

Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308bVBA\u30de\u30af\u30ed(DOM\u7de8)<\/a><\/div>
2015.08.11<\/span>
Microsoft 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\n2017\/1\/31 \u8ffd\u8a18\uff1a\r\n\u4e00\u90e8\u30b3\u30fc\u30c9\u3092\u4fee\u6b63\u3057\u305f\u8a18...<\/div><\/div>
<\/div><\/div>\n

Edge\u5185\u306b\u3042\u308b\u300cInternet Explorer_Server\u300d\u30af\u30e9\u30b9\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u304b\u3089IHTMLDocument\u7d4c\u7531\u3067\u7121\u7406\u3084\u308aDOM\u64cd\u4f5c\u3059\u308b\u30de\u30af\u30ed\u3067\u3059\u304c\u3001\u3053\u306e\u30b3\u30fc\u30c9\u3092\u66f8\u3044\u305f\u306e\u306f2015\u5e74\u306e8\u6708<\/span>\u3067\u3059\u3002<\/p>\n

\u4eca\u306f2017\u5e74\u3001Windows 10\u3082\u4f55\u5ea6\u3082\u30d0\u30fc\u30b8\u30e7\u30f3\u30a2\u30c3\u30d7\u3092\u91cd\u306d\u3001\u3055\u3059\u304c\u306b\u3082\u3046\u3053\u306e\u30b3\u30fc\u30c9\u3082\u52d5\u304b\u306a\u3044\u3060\u308d\u3046\u3068\u601d\u3063\u3066\u3001\u4e45\u3005\u306b\u30de\u30af\u30ed\u3092\u5b9f\u884c\u3057\u3066\u307f\u305f\u3068\u3053\u308d\u30fb\u30fb\u30fb\u3002<\/p>\n

\u52d5\u304d\u307e\u305b\u3093\u3067\u3057\u305f\uff01<\/span><\/p>\n

\u305d\u308c\u306f\u305d\u3046\u3067\u3059\u3002
\nEdge\u3060\u3063\u3066\u6539\u826f\u3055\u308c\u3001\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u69cb\u9020\u3060\u3063\u3066\u5909\u308f\u3063\u3066\u3044\u308b\u306f\u305a\u3067\u3059\u3002
\nSpy++\u3067\u78ba\u8a8d\u3057\u3066\u307f\u3066\u3082\u3001\u3084\u306f\u308aEdge\u306e\u4e0b\u306b\u300cInternet Explorer_Server\u300d\u30af\u30e9\u30b9\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u306f\u898b\u3064\u304b\u308a\u307e\u305b\u3093\u3002<\/p>\n

\"\"<\/p>\n

\u300c\u3042\u30fc\u3001\u3084\u3063\u3071\u308a\u3053\u3093\u306a\u7121\u7406\u3084\u308a\u306a\u30b3\u30fc\u30c9\u306f\u52d5\u304b\u306a\u304f\u306a\u308b\u3088\u306a\u30fc\uff01\u305d\u308a\u3083\u5f53\u7136\u3060\u3088\u300d\u3068\u601d\u3063\u3066\u3044\u305f\u3068\u3053\u308d\u3001\u3075\u3068\u4e0b\u306e\u65b9\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u3092\u898b\u308b\u3068\u30fb\u30fb\u30fb\u3002<\/p>\n

\"\"<\/p>\n

\u6709\u308a\u307e\u3057\u305f\uff01
\n\u300cTabWindowClass<\/span>\u300d\u30af\u30e9\u30b9\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u306e\u4e0b\u306b\u300cInternet Explorer_Server<\/span>\u300d\u30af\u30e9\u30b9\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u304c\uff01\uff01<\/p>\n

\"\"<\/p>\n

\u30d7\u30ed\u30bb\u30b9ID\u304b\u3089\u30d7\u30ed\u30bb\u30b9\u3092\u78ba\u8a8d\u3057\u3066\u307f\u308b\u3068\u3001\u300cMicrosoft Edge<\/span>\u300d\u3068\u306a\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n

\u672a\u3060\u306bEdge\u306fInternet Explorer_Server\u3092\u6301\u3063\u3066\u3044\u308b\u306e\u304b\uff01
\n\u306a\u3089\u5148\u306e\u30b3\u30fc\u30c9\u306f\u307e\u3060\u52d5\u304f\u3093\u3058\u3083\u306a\u3044\u304b\uff01\uff1f<\/p>\n

\u30fb\u30fb\u30fb\u3068\u3044\u3046\u308f\u3051\u3067\u4fee\u6b63\u3057\u305f\u306e\u304c\u4e0b\u8a18\u306e\u30b3\u30fc\u30c9\u3067\u3059\u3002<\/p>\n

Option 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 FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As Long, ByVal hWndChildAfter As Long, ByVal lpszClass As String, ByVal lpszWindow As String) 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\nPublic Sub Sample_EdgeDOM()\r\n'Microsoft Edge\u3092DOM\u64cd\u4f5c(64\u30d3\u30c3\u30c8\u7248Excel\u3067\u306f\u30b3\u30fc\u30c9\u8981\u5909\u66f4)\r\n'http:\/\/www.mvps.org\/emorcillo\/en\/code\/vb6\/iedom.shtml \u53c2\u7167\r\n'\r\n'\u203b\u4e0b\u8a18\u74b0\u5883\u3067\u52d5\u4f5c\u78ba\u8a8d\r\n'Microsoft Windows 10 Pro Insider Preview \u30d0\u30fc\u30b8\u30e7\u30f3:10.0.15019 \u30d3\u30eb\u30c9 15019\r\n'Microsoft Edge 40.15019.1000.0\r\n'Microsoft Excel 2016 MSO (16.0.7668.7078) 32 \u30d3\u30c3\u30c8\r\n\r\n  Dim hEdge As Long\r\n  Dim hIES As Long\r\n  Dim msg As Long\r\n  Dim res As Long\r\n  Dim d As Object\r\n  Dim IID_IHTMLDocument2 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  'TabWindowClass\u30a6\u30a3\u30f3\u30c9\u30a6\u53d6\u5f97\r\n  hEdge = FindWindowEx(0, 0, "TabWindowClass", vbNullString)\r\n  If hEdge = 0 Then Exit Sub\r\n  \r\n  'Internet Explorer_Server\u30a6\u30a3\u30f3\u30c9\u30a6\u53d6\u5f97\r\n  hIES = FindWindowEx(hEdge, 0, "Internet Explorer_Server", vbNullString)\r\n  If hIES = 0 Then Exit Sub\r\n  \r\n  'IHTMLDocument2\u53d6\u5f97\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_IHTMLDocument2\r\n      .Data1 = &H332C4425\r\n      .Data2 = &H26CB\r\n      .Data3 = &H11D0\r\n      .Data4(0) = &HB4\r\n      .Data4(1) = &H83\r\n      .Data4(2) = &H0\r\n      .Data4(3) = &HC0\r\n      .Data4(4) = &H4F\r\n      .Data4(5) = &HD9\r\n      .Data4(6) = &H1\r\n      .Data4(7) = &H19\r\n    End With\r\n    If ObjectFromLresult(res, IID_IHTMLDocument2, 0, d) = 0 Then\r\n      'DOM\u64cd\u4f5c\r\n      d.getElementById("srchtxt").Value = "\u521d\u5fc3\u8005\u5099\u5fd8\u9332\u30d6\u30ed\u30b0"\r\n      d.getElementById("srchbtn").Click\r\n      While LCase(d.ReadyState) <> "complete"\r\n        Sleep 100\r\n      Wend\r\n      MsgBox d.Title, vbInformation + vbSystemModal\r\n    End If\r\n  End If\r\nEnd Sub<\/pre>\n
\u4e0a\u8a18\u30b3\u30fc\u30c9\u3092\u5b9f\u884c\u3059\u308b\u3068\u3001\u4f55\u306e\u554f\u984c\u3082\u306a\u304f\u3001\u610f\u56f3\u3057\u305f\u901a\u308a\u306b\u30de\u30af\u30ed\u304c\u5b9f\u884c\u3055\u308c\u307e\u3059\u3002<\/p>\n
\"\"<\/p>\n
\u30b3\u30fc\u30c9\u4e2d\u306b\u30b3\u30e1\u30f3\u30c8\u3067\u66f8\u3044\u3066\u3044\u308b\u901a\u308a\u3001\u5b9f\u884c\u74b0\u5883\u306f\u4e0b\u8a18\u306e\u901a\u308a\u3067\u3001\u3053\u306e\u8a18\u4e8b\u3092\u66f8\u3044\u3066\u3044\u308b2017\u5e741\u6708\u6642\u70b9\u3067\u306f\u6700\u65b0<\/span>\u306e\u74b0\u5883\u3067\u3059\u3002<\/p>\n
    \n
  1. Microsoft Windows 10 Pro Insider Preview \u30d0\u30fc\u30b8\u30e7\u30f3:10.0.15019 \u30d3\u30eb\u30c9 15019<\/li>\n
  2. Microsoft Edge 40.15019.1000.0<\/li>\n
  3. Microsoft Excel 2016 MSO (16.0.7668.7078) 32 \u30d3\u30c3\u30c8<\/li>\n<\/ol>\n
    \u307e\u3055\u304b\u672a\u3060\u306b\u3053\u3093\u306a\u3084\u308a\u65b9\u304c\u901a\u7528\u3059\u308b\u3068\u306f\u30fb\u30fb\u30fb\u3002
    \nEdge\u6050\u308b\u3079\u3057\u3001\u3067\u3059\u3002<\/p>\n
    \u203b \u52d5\u304f\u3068\u3044\u3063\u3066\u3082\u4e0a\u8a18\u65b9\u6cd5\u306fMicrosoft\u304c\u63a8\u5968\u3057\u3066\u3044\u308b\u65b9\u6cd5\u3067\u306f\u3042\u308a\u307e\u305b\u3093\u3002\u3044\u3064\u4f7f\u3048\u306a\u304f\u306a\u308b\u304b\u3082\u5206\u304b\u308a\u307e\u305b\u3093\u306e\u3067\u3001Edge\u64cd\u4f5c\u306e\u81ea\u52d5\u5316\u3092\u884c\u3044\u305f\u3044\u5834\u5408\u306b\u306f\u3001\u6b63\u5f0f\u306b\u30b5\u30dd\u30fc\u30c8\u3055\u308c\u3066\u3044\u308b\u300cWebDriver<\/a>\u300d\u3092\u4f7f\u3046\u3053\u3068\u3092\u304a\u85a6\u3081\u3057\u307e\u3059\u3002<\/span><\/p>\n
    \n
    2017\/2\/1 \u8ffd\u8a18\uff1a<\/span>
    \nEdge\u306e\u30d7\u30ed\u30bb\u30b9\u304b\u3089\u30a6\u30a3\u30f3\u30c9\u30a6\u3092\u63a2\u3059\u30b3\u30fc\u30c9\u3082\u66f8\u3044\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n
    \u30102017\u5e741\u6708\u7248\u3011Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308bVBA\u30de\u30af\u30ed(DOM\u7de8)(2)<\/a><\/div>
    2017.02.01<\/span>
    \u30102017\u5e741\u6708\u7248\u3011Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308bVBA\u30de\u30af\u30ed(DOM\u7de8)(2) <\/a><\/div>
    \u6628\u65e5\u306e\u8a18\u4e8b\u3067\u3001Microsoft Edge\u3092\u64cd\u4f5c\u3059\u308bVBA\u30b3\u30fc\u30c9\u3092\u6539\u3081\u3066\u66f8\u304d\u307e\u3057\u305f\u304c\u3001\u6628\u65e5\u306e\u30b3\u30fc\u30c9\u306f\u300cTabWindowClass\u300d\u30af\u30e9\u30b9\u306e\u30a6\u30a3\u30f3\u30c9\u30a6\u3092\u6c7a\u3081\u6253\u3061\u3057\u3066\u3044\u308b\u306e\u3067\u3001Edge\u306e\u4ed5\u69d8\u5909\u66f4\u306b\u3088\u308a\u52d5\u4f5c\u3057\u306a\u304f\u306a\u308b\u53ef\u80fd\u6027\u304c\u3042\u308a\u307e\u3059\u3002\r\n(VBA\u3067Edge\u3092\u64cd\u4f5c\u3059...<\/div><\/div>
    <\/div><\/div>\n
    \n
    2019\/6\/5 \u8ffd\u8a18\uff1a<\/span>
    \n    SeleniumBasic<\/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
    \n