VBA UIAutomation Change Date from application

[RodrigoFinguer]

Hello guys,

I need to change the date from one application but I don't know how.
The inspect page is attached.



Here is my code so far:

Dim MyElement As UIAutomationClient.IUIAutomationElement
Dim MyElement1 As UIAutomationClient.IUIAutomationElement

'Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Enum oConditions
   eUIA_NamePropertyId
   eUIA_AutomationIdPropertyId
   eUIA_ClassNamePropertyId
   eUIA_LocalizedControlTypePropertyId
End Enum


Sub Test()
Dim AppObj As UIAutomationClient.IUIAutomationElement
Dim oInvokePattern As UIAutomationClient.IUIAutomationInvokePattern
Dim oAutomation As New CUIAutomation ' the UI Automation API\
Dim oPattern As UIAutomationClient.IUIAutomationLegacyIAccessiblePattern


Set AppObj = WalkEnabledElements("CSDB - Cost Saving Database")

Set MyElement = AppObj.FindFirst(TreeScope_Children, PropCondition(oAutomation, eUIA_NamePropertyId, "menuStrip1"))

Set MyElement1 = MyElement.FindFirst(TreeScope_Children, PropCondition(oAutomation, eUIA_NamePropertyId, "Forecast"))

Set MyElement = MyElement1.FindFirst(TreeScope_Children, PropCondition(oAutomation, eUIA_NamePropertyId, "Create New"))

Set oInvokePattern = MyElement.GetCurrentPattern(UIAutomationClient.UIA_InvokePatternId)
oInvokePattern.Invoke


Set MyElement = AppObj.FindFirst(TreeScope_Children, PropCondition(oAutomation, eUIA_AutomationIdPropertyId, "panelRight"))

Set MyElement1 = MyElement.FindFirst(TreeScope_Children, PropCondition(oAutomation, eUIA_AutomationIdPropertyId, "Forecast_Edit"))

Set MyElement = MyElement1.FindFirst(TreeScope_Children, PropCondition(oAutomation, eUIA_AutomationIdPropertyId, "panContainer"))

Set MyElement1 = MyElement.FindFirst(TreeScope_Children, PropCondition(oAutomation, eUIA_AutomationIdPropertyId, "panSteps"))

Set MyElement = MyElement1.FindFirst(TreeScope_Children, PropCondition(oAutomation, eUIA_AutomationIdPropertyId, "Forecast_Edit_Main"))

Set MyElement1 = MyElement.FindFirst(TreeScope_Children, PropCondition(oAutomation, eUIA_AutomationIdPropertyId, "panel1"))

Set MyElement = MyElement1.FindFirst(TreeScope_Children, PropCondition(oAutomation, eUIA_AutomationIdPropertyId, "panel2"))

'Title of the TAG
Set MyElement1 = MyElement.FindFirst(TreeScope_Children, PropCondition(oAutomation, eUIA_AutomationIdPropertyId, "txtTitle"))
Set oPattern = MyElement1.GetCurrentPattern(UIA_LegacyIAccessiblePatternId)
oPattern.SetValue ("TIER 2 - TEST")

'Date of the Tag
Set MyElement1 = MyElement.FindFirst(TreeScope_Children, PropCondition(oAutomation, eUIA_AutomationIdPropertyId, "dtPriceValid"))
Set oPattern = MyElement1.GetCurrentPattern(UIA_LegacyIAccessiblePatternId)
oPattern.SetValue ("2020-05-16")

Any help would be apreciated, Thanks!!!

 

[John_w]

It's difficult to give you specific help. Does your code reach the correct element? Your screenshot shows it is a PaneControl, however I'm not sure if you can set a value for that.

Maybe this:

Dim oPattern2 As IUIAutomationValuePattern
Set MyElement1 = MyElement.FindFirst(TreeScope_Children, PropCondition(oAutomation, eUIA_AutomationIdPropertyId, "dtPriceValid"))
Set oPattern2 = MyElement1.GetCurrentPattern(UIA_ValuePatternId)
MyElement1.SetFocus
oPattern2.SetValue "2020-05-16"

There are some UIAutomation debugging functions in the following post which you may find useful:

Using UIAutomationClient to automate the Save As file download in IE11

Here is VBA code which automates the complete 'Save As' file download procedure in IE11, when a download is offered by IE's Download Notification Bar. To use for your own web site downloads you would automate IE and do whatever is necessary to make the Download Notification Bar appear at the...

www.mrexcel.com

 

[RodrigoFinguer]

The line "MyElement1.SetFocus" select the "2020" year and It gave me error in the last line "Object variable or With block variable not set"

 

[RodrigoFinguer]

The line "MyElement1.SetFocus" select the "2020" year and It gave me error in the last line "Object variable or With block variable not set"

MyElement1 has no Value Field

 

[RodrigoFinguer]

The line "MyElement1.SetFocus" select the "2020" year and It gave me error in the last line "Object variable or With block variable not set"

 

[John_w]

Your code might have to click the down arrow to access the date input control (if that's what it is). Otherwise try SendKeys, however I can't really help you further.

 

[RodrigoFinguer]

Your code might have to click the down arrow to access the date input control (if that's what it is). Otherwise try SendKeys, however I can't really help you further.

Could you tell how can I use sendkeys to other applications?

 

[John_w]

After the SetFocus:

SendKeys "2020-05-16 ", True

You might need to send keys to select all and delete to delete the current date.
The code I linked to uses SendKeys at one point.

 

[RodrigoFinguer]

Ok, thanks, i'll try.

Anyone who can help me?