{"id":7697,"date":"2016-11-18T14:44:58","date_gmt":"2016-11-18T05:44:58","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=7697"},"modified":"2016-11-18T14:44:58","modified_gmt":"2016-11-18T05:44:58","slug":"internet-explorer%e3%81%ae%e3%82%bf%e3%83%96%e3%82%92%e5%88%87%e3%82%8a%e6%9b%bf%e3%81%88%e3%82%8bvba%e3%83%9e%e3%82%af%e3%83%ad","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=7697","title":{"rendered":"Internet Explorer\u306e\u30bf\u30d6\u3092\u5207\u308a\u66ff\u3048\u308bVBA\u30de\u30af\u30ed"},"content":{"rendered":"

\u524d\u56de\u306e\u8a18\u4e8b<\/a>\u3067Internet Explorer\u3092\u64cd\u4f5c\u3059\u308bVBA\u30de\u30af\u30ed\u3092\u7d39\u4ecb\u3057\u307e\u3057\u305f\u304c\u3001\u3064\u3044\u3067\u306bURL\u3092\u6307\u5b9a\u3057\u3066\u3001Internet Explorer\u306e\u30bf\u30d6\u3092\u5207\u308a\u66ff\u3048\u308b\u30de\u30af\u30ed\u3082\u66f8\u3044\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n

\u203b 64\u30d3\u30c3\u30c8\u7248Office\u3067\u306f\u30b3\u30fc\u30c9\u3092\u66f8\u304d\u304b\u3048\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/span><\/p>\n

'UIAutomationClient(UIAutomationCore.dll)\u8981\u53c2\u7167\r\nOption Explicit\r\n\r\nPrivate Declare Function FindWindowEx Lib "User32" Alias "FindWindowExA" ( _\r\n  ByVal hWndParent As Long, _\r\n  ByVal hWndChildAfter As Long, _\r\n  ByVal lpszClass As String, _\r\n  ByVal lpszWindow As String) As Long\r\nPrivate Declare Function ShowWindow Lib "User32" ( _\r\n  ByVal hWnd As Long, _\r\n  ByVal nCmdShow As Long) As Long\r\nPrivate Const SW_SHOWNORMAL = 1\r\n\r\nPublic Sub Sample()\r\n  SelectIETab "weather.yahoo.co.jp"\r\nEnd Sub\r\n\r\nPrivate Sub SelectIETab(ByVal url As String)\r\n'\u6307\u5b9a\u3057\u305fURL\u306e\u30bf\u30d6\u306b\u5207\u308a\u66ff\u3048\u308b\r\n  Dim ie As Object\r\n  Dim uiAuto As CUIAutomation\r\n  Dim elmNavBar As IUIAutomationElement\r\n  Dim elmTabs As IUIAutomationElement\r\n  Dim aryTabs As IUIAutomationElementArray\r\n  Dim ptnSelectionItem As IUIAutomationSelectionItemPattern\r\n  Dim cnd As IUIAutomationCondition\r\n  Dim hNavBar As Long, i As Long\r\n  \r\n  Set ie = GetActiveIE(url)\r\n  If ie Is Nothing Then Exit Sub\r\n  ShowWindow ie.hWnd, SW_SHOWNORMAL '\u6700\u5c11\u5316\u6642\u3092\u8003\u616e\u3057\u3066\u30a6\u30a3\u30f3\u30c9\u30a6\u3092\u5143\u306b\u623b\u3059\r\n  hNavBar = FindWindowEx(ie.hWnd, 0, "WorkerW", vbNullString) '\u30ca\u30d3\u30b2\u30fc\u30b7\u30e7\u30f3 \u30d0\u30fc\r\n  If hNavBar = 0 Then Exit Sub\r\n  Set uiAuto = New CUIAutomation\r\n  Set elmNavBar = uiAuto.ElementFromHandle(ByVal hNavBar)\r\n  If elmNavBar Is Nothing Then Exit Sub\r\n  Set elmTabs = GetElement(uiAuto, _\r\n                           elmNavBar, _\r\n                           UIA_NamePropertyId, _\r\n                           "\u30bf\u30d6\u884c", _\r\n                           UIA_TabControlTypeId)\r\n  If elmTabs Is Nothing Then Exit Sub\r\n  Set cnd = uiAuto.CreatePropertyCondition( _\r\n              UIA_ControlTypePropertyId, _\r\n              UIA_TabItemControlTypeId _\r\n            )\r\n  Set aryTabs = elmTabs.FindAll(TreeScope_Subtree, cnd)\r\n  For i = 0 To aryTabs.Length - 1\r\n    'LegacyIAccessible.Description\u306bURL\u304c\u542b\u307e\u308c\u3066\u3044\u308b\u304b\u3092\u5224\u65ad\u3057\u3066\u30bf\u30d6\u9078\u629e\r\n    If InStr(aryTabs.GetElement(i).GetCurrentPropertyValue(UIA_LegacyIAccessibleDescriptionPropertyId), _\r\n             ie.LocationURL) Then\r\n      Set ptnSelectionItem = aryTabs.GetElement(i).GetCurrentPattern(UIA_SelectionItemPatternId)\r\n      ptnSelectionItem.Select\r\n      Exit For\r\n    End If\r\n  Next\r\nEnd Sub\r\n\r\nPrivate Function GetActiveIE(ByVal url As String) As Object\r\n'URL\u3092\u6307\u5b9a\u3057\u3066\u8d77\u52d5\u4e2d\u306eIE\u53d6\u5f97\r\n  Dim o As Object\r\n  \r\n  For Each o In GetObject("new:{9BA05972-F6A8-11CF-A442-00A0C90A8F39}") 'ShellWindows\r\n    If LCase(TypeName(o)) = "iwebbrowser2" Then\r\n      If LCase(TypeName(o.Document)) = "htmldocument" Then\r\n        If o.LocationURL Like "*" & url & "*" Then\r\n          Set GetActiveIE = o\r\n          Exit For\r\n        End If\r\n      End If\r\n    End If\r\n  Next\r\nEnd Function\r\n\r\nPrivate Function GetElement(ByVal uiAuto As CUIAutomation, _\r\n                            ByVal elmParent As IUIAutomationElement, _\r\n                            ByVal propertyId As Long, _\r\n                            ByVal propertyValue As Variant, _\r\n                            Optional ByVal ctrlType As Long = 0) As IUIAutomationElement\r\n  Dim cndFirst As IUIAutomationCondition\r\n  Dim cndSecond As IUIAutomationCondition\r\n   \r\n  Set cndFirst = uiAuto.CreatePropertyCondition( _\r\n                   propertyId, _\r\n                   propertyValue _\r\n                 )\r\n  If ctrlType <> 0 Then\r\n    Set cndSecond = uiAuto.CreatePropertyCondition( _\r\n                      UIA_ControlTypePropertyId, _\r\n                      ctrlType _\r\n                    )\r\n    Set cndFirst = uiAuto.CreateAndCondition( _\r\n                     cndFirst, _\r\n                     cndSecond _\r\n                   )\r\n  End If\r\n  Set GetElement = elmParent.FindFirst(TreeScope_Subtree, cndFirst)\r\nEnd Function<\/pre>\n
\"selectietab_01\"<\/p>\n
\u4e0a\u56f3\u306e\u901a\u308a\u3001Windows 10 + Internet Explorer 11\u74b0\u5883\u3067\u3082\u52d5\u4f5c\u3057\u307e\u3057\u305f\u304c\u3001\u3042\u307e\u308a\u51fa\u756a\u306f\u306a\u3055\u305d\u3046\u306a\u30de\u30af\u30ed\u3067\u3059\u3002<\/p>\n
\u95a2\u9023Web\u30da\u30fc\u30b8<\/h4>\n