You may also want to consider just making the HTTP request, instead of working with the form itself
https://support.microsoft.com/en-us/help/301102/how-to-make-a-get-request-by-using-visual-basic--net-or-visual-basic-2 The DHIS2 dataValue API is documented in here <https://docs.dhis2.org/master/en/developer/html/webapi_data_values.html> in "Section 1.19.7. Sending, reading and deleting individual data values" Regards, Jason On Thu, Oct 26, 2017 at 4:18 PM, Damasceno Lopes <[email protected]> wrote: > Hi! > > > > I’m trying to populate data from Excel to DHIS2 Data Entry Web Form using > VBA code in Excel with Internet Explorer, the data goes to form but not > persisted to database. Anyone already try to do that? > > > > The VBA code, tested to fill form in the demo instance: > > > > 'Before run this Macro make sure to login into dhis2-demo using Internet > Explorer > > Sub FillInternetForm() > > Dim IE As Object > > > > Set IE = CreateObject("InternetExplorer.Application") > > > > IE.Navigate "https://play.dhis2.org/demo/dhis-web-dataentry/index.action"; > > IE.Visible = True > > > > While IE.busy > > DoEvents 'wait until IE is done loading page. > > Wend > > > > 'You have 30 seconds to choose Orgunit, form and period > > 'Eg. Sierra Leone, Emergency Response, Result > > Application.Wait Now + TimeValue("00:00:30") > > > > 'Populating Data to two first fields > > IE.document.getElementById("KFnFpbqDqji-bRowv6yZOF2-val").Focus > > IE.document.getElementById("KFnFpbqDqji-bRowv6yZOF2-val").Value = "20" > > Application.Wait Now + TimeValue("00:00:02") > > IE.document.getElementById("zFFb3bar4Ct-bRowv6yZOF2-val").Focus > > IE.document.getElementById("zFFb3bar4Ct-bRowv6yZOF2-val").Value = "30" > > > > End Sub > > > > The result: > > > > > > The Data goes to the field but not persisted, the field don’t change color. > > I appreciate your help if you can provide. > > > > Thank you > > *Damasceno Lopes, MSc* > > *Health Information System Officer* > > Friends in Global Health, Mozambique > > *+258844626770 <+258%2084%20462%206770>* | *+258829502145 > <[email protected]>* > > [image: FGH] > > > > > > _______________________________________________ > Mailing list: https://launchpad.net/~dhis2-devs > Post to : [email protected] > Unsubscribe : https://launchpad.net/~dhis2-devs > More help : https://help.launchpad.net/ListHelp > > -- Jason P. Pickering email: [email protected] tel:+46764147049
_______________________________________________ Mailing list: https://launchpad.net/~dhis2-users Post to : [email protected] Unsubscribe : https://launchpad.net/~dhis2-users More help : https://help.launchpad.net/ListHelp
