{"id":11970,"date":"2019-08-01T08:00:32","date_gmt":"2019-07-31T23:00:32","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=11970"},"modified":"2019-08-15T14:45:22","modified_gmt":"2019-08-15T05:45:22","slug":"%e6%8c%87%e5%ae%9a%e3%81%97%e3%81%9faccess%e3%83%95%e3%82%a1%e3%82%a4%e3%83%ab%e3%81%a7%e3%80%8c%e3%83%87%e3%83%bc%e3%82%bf%e3%83%99%e3%83%bc%e3%82%b9%e3%81%ae%e6%9c%80%e9%81%a9%e5%8c%96-%e4%bf%ae","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=11970","title":{"rendered":"\u6307\u5b9a\u3057\u305fAccess\u30d5\u30a1\u30a4\u30eb\u3067\u300c\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306e\u6700\u9069\u5316\/\u4fee\u5fa9\u300d\u3092\u5b9f\u884c\u3059\u308bVBA\u30de\u30af\u30ed"},"content":{"rendered":"

\u5927\u5206\u524d\u306e\u8a18\u4e8b\u306b\u306a\u308a\u307e\u3059\u304c\u3001\u958b\u3044\u3066\u3044\u308b\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u3092\u6700\u9069\u5316\u3059\u308b\u30de\u30af\u30ed\u306e\u30b3\u30fc\u30c9\u3092\u4e0b\u8a18\u30da\u30fc\u30b8\u3067\u516c\u958b\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n

\"\"<\/div>
www.ka-net.org<\/div><\/div>
\"\"<\/figure>
Office 2007\/2010\u30fb\u30ea\u30dc\u30f3\u306e\u30ab\u30b9\u30bf\u30de\u30a4\u30ba \u521d\u5fc3\u8005\u5099\u5fd8\u9332<\/div>
http:\/\/www.ka-net.org\/office\/of05.html<\/div><\/div>
<\/div><\/div><\/a><\/div><\/div>\n
\"\"<\/div>
www.ka-net.org<\/div><\/div>
\"\"<\/figure>
Office 2007\/2010\u30fb\u30ea\u30dc\u30f3\u306e\u30ab\u30b9\u30bf\u30de\u30a4\u30ba \u521d\u5fc3\u8005\u5099\u5fd8\u9332<\/div>
http:\/\/www.ka-net.org\/office\/of06.html<\/div><\/div>
<\/div><\/div><\/a><\/div><\/div>\n
\"\"<\/div>
www.ka-net.org<\/div><\/div>
\"\"<\/figure>
Office 2007\/2010\u30fb\u30ea\u30dc\u30f3\u306e\u30ab\u30b9\u30bf\u30de\u30a4\u30ba \u521d\u5fc3\u8005\u5099\u5fd8\u9332<\/div>
http:\/\/www.ka-net.org\/office\/of18.html<\/div><\/div>
<\/div><\/div><\/a><\/div><\/div>\n

\u6c17\u304c\u5411\u3044\u305f\u306e\u3067\u3001\u4eca\u56de\u6539\u3081\u3066\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306e\u6700\u9069\u5316\u3068\u4fee\u5fa9\u3092\u884c\u3046\u30de\u30af\u30ed\u3092\u66f8\u3044\u3066\u307f\u308b\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002<\/p>\n

'UIAutomationClient(UIAutomationCore.dll)\u8981\u53c2\u7167\r\nOption Explicit\r\n\r\nPublic Sub Sample()\r\n  CompactAndRepairDatabase "C:\\Test\\TestDB.accdb"\r\nEnd Sub\r\n\r\nPrivate Sub CompactAndRepairDatabase(ByVal DBPath As String)\r\n'[\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306e\u6700\u9069\u5316\/\u4fee\u5fa9]\u3092\u5b9f\u884c\r\n  Dim uiAuto As CUIAutomation\r\n  Dim accRibbon As IAccessible\r\n  Dim elmRibbon As IUIAutomationElement\r\n  Dim elmRibbonTab As IUIAutomationElement\r\n  Dim elmDBRepairButton As IUIAutomationElement\r\n  Dim ptnSel As IUIAutomationSelectionItemPattern\r\n  Dim ptnInvoke As IUIAutomationInvokePattern\r\n  \r\n  Set uiAuto = New UIAutomationClient.CUIAutomation\r\n  With CreateObject("Access.Application")\r\n    .Visible = True\r\n    .OpenCurrentDatabase DBPath\r\n    \r\n    '[\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9 \u30c4\u30fc\u30eb]\u30bf\u30d6\u9078\u629e\r\n    Set accRibbon = .CommandBars("Ribbon")\r\n    Set elmRibbon = uiAuto.ElementFromIAccessible(accRibbon, 0)\r\n    Set elmRibbonTab = GetElement(uiAuto, _\r\n                                  elmRibbon, _\r\n                                  UIA_NamePropertyId, _\r\n                                  "\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9 \u30c4\u30fc\u30eb", _\r\n                                  UIA_TabItemControlTypeId)\r\n    If elmRibbonTab Is Nothing Then GoTo Fin\r\n    Set ptnSel = elmRibbonTab.GetCurrentPattern(UIA_SelectionItemPatternId)\r\n    ptnSel.Select\r\n    \r\n    '[\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306e\u6700\u9069\u5316\/\u4fee\u5fa9]\u30dc\u30bf\u30f3\u30af\u30ea\u30c3\u30af\r\n    Set elmDBRepairButton = GetElement(uiAuto, _\r\n                                       elmRibbon, _\r\n                                       UIA_NamePropertyId, _\r\n                                       "\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306e\u6700\u9069\u5316\/\u4fee\u5fa9", _\r\n                                       UIA_ButtonControlTypeId)\r\n    If elmDBRepairButton Is Nothing Then GoTo Fin\r\n    Set ptnInvoke = elmDBRepairButton.GetCurrentPattern(UIA_InvokePatternId)\r\n    ptnInvoke.Invoke\r\nFin:\r\n    .CloseCurrentDatabase\r\n    .Quit\r\n  End With\r\nEnd Sub\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
\u4ed5\u7d44\u307f\u3068\u3057\u3066\u306f\u3001UI Automation\u3092\u4f7f\u3063\u3066\u3001<\/p>\n
[\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9 \u30c4\u30fc\u30eb\u30bf\u30d6]\u3092\u9078\u629e
\n\u2193
\n[\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u306e\u6700\u9069\u5316\/\u4fee\u5fa9]\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af<\/p>\n
\u3068\u3044\u3063\u305f\u64cd\u4f5c\u3092\u884c\u3046\u3082\u306e\u3067\u3001Access\u4e0a\u3067\u958b\u3044\u3066\u3044\u308b\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u81ea\u8eab\u3092\u6700\u9069\u5316\u3059\u308b\u306e\u3067\u306f\u306a\u304f\u3001\u5916\u90e8(Excel\u7b49)\u304b\u3089\u8907\u6570\u306e\u30d5\u30a1\u30a4\u30eb\u3092\u9023\u7d9a\u3057\u3066\u6700\u9069\u5316\u3059\u308b\u3053\u3068\u3092\u76ee\u7684\u3068\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n
\"\"<\/a><\/p>\n
\u9700\u8981\u304c\u3042\u308b\u304b\u3069\u3046\u304b\u306f\u5206\u304b\u308a\u307e\u305b\u3093\u304c\u3001\u3069\u306a\u305f\u304b\u306e\u3054\u53c2\u8003\u306b\u306a\u308c\u3070\u5e78\u3044\u3067\u3059\u3002
\n\u3061\u306a\u307f\u306b\u3001\u30bf\u30d6\u3084\u30dc\u30bf\u30f3\u306e\u914d\u7f6e\u3001\u540d\u524d\u306b\u4f9d\u5b58\u3057\u305f\u30b3\u30fc\u30c9\u3067\u3059\u306e\u3067\u3001\u4eca\u5f8c\u306eAccess\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u30a2\u30c3\u30d7\u306b\u3088\u3063\u3066\u306f\u52d5\u4f5c\u3057\u306a\u304f\u306a\u308b\u53ef\u80fd\u6027\u304c\u3042\u308b\u70b9\u306b\u3064\u3044\u3066\u306f\u3054\u6ce8\u610f\u304f\u3060\u3055\u3044\u3002<\/p>\n
\n
\n