Excel Custom Function to Retrieve XML Data -


i create custom function retrieve specific data available in form of xml url link. first time dealing xml in excel, let alone vba, , struggling it.

i have been able write procedure (local currency exchange rate retrieval) 1 can run pressing custom button, runs code below:

sub fx_retrieve()     dim fx string     dim customdate string      fx = range("fx")     customdate = range("customdate")      application.screenupdating = false      activesheet.unprotect      rows(2).clear     activeworkbook.xmlimport url:= _         "http://www.cbu.uz/section/rates/widget/xml/" & fx & "/" & customdate, importmap:= _         nothing, overwrite:=true, destination:=range("c2")     range("d:d").entirecolumn.autofit     rows(2).horizontalalignment = xlcenter     columns(6).clearcontents     activesheet.protect       application.screenupdating = true end sub

just in case, xml output looks this: 2015-12-29 usd 2809.98 1 hence, need formatting in code.

no problem procedure in case of single call fx rate! now, want go bit further , create function. , come several problems:

  1. i need extract specific child node (rate) xml output, looks this:

'

<response> <date_act>2015-12-29</date_act> <symbol>usd</symbol> <rate>2809.98</rate> <size>1</size> </response>

i have found similar (as in here: excel vba getting specific node xml), yet not able apply in case.

  1. the creation of function far can see not allow same approach had in procedure.

any appreciated!

thanks analystcave.com website run @dick kusleika, have been able adapt information presented there on topic of "working xml files" problem , have resolved it. in case has same problem, here code (i hope programmatically efficient):

public function getcurrtouzs(byref curr string, byref date_param date) currency     dim xdoc object     dim lists     dim getthirdchild     dim corrdate string      if len(curr) <> 3         msgbox "currency name must 3 letters long!", vbcritical + vbokonly _             , "variable error!"         exit function     end if     'corrects entered date required format of "yyyy-mm-dd"     corrdate = year(date_param) & "-" & month(date_param) & "-" & day(date_param)      set xdoc = createobject("msxml2.domdocument")     xdoc.async = false: xdoc.validateonparse = false     xdoc.load "http://www.cbu.uz/section/rates/widget/xml/" & curr & "/" & corrdate      'get document elements     set lists = xdoc.documentelement     set getthirdchild = lists.childnodes(2)      getcurrtouzs = getthirdchild.text 'output of function      set xdoc = nothing 'terminates xdoc object end function

Comments

Post a Comment

Popular posts from this blog

php - Wordpress website dashboard page or post editor content is not showing but front end data is showing properly -

Image
recently have uploaded wordpress site onto server. have uploaded wordpress site in sub-folder under root folder ../root(domain root folder)/wordpress (where host wordpress folder). now problem content data in page or post in dashboard of wordpress admin panel not showing - see image. but data showing in front view - see image. if not browser cache issue , not issue happened tinymce editor during upgrade; try add config file: define('concatenate_scripts', false);
Read more

How to get the ip address of VM and use it to configure SSH connection dynamically in Ansible -

i trying ip address of vm , trying use establish ssh vm. following script: --- - hosts: localhost become: yes connection: local gather_facts: false serial: 1 vars_files: - createvmvars.yml tasks: - name: gathering vm info. vsphere_guest: vcenter_hostname: "{{vcenter_hostname}}" username: "{{vcenter_username}}" password: "{{vcenter_password}}" guest: "{{guest_name}}" vmware_guest_facts: yes register: var - debug: msg="{{var.ansible_facts.hw_eth0.ipaddresses[0]}}" - name: establishing ssh connection. script: /home/shasha/devops/scripts/ssh_configure.sh "{{var.ansible_facts.hw_eth0.ipaddresses[0]}}" following content of ssh_configure.sh : #!/bin/sh ssh-keygen -t rsa ssh-copy-id $1 but when running playbook, getting following error while executing third task: error! 'var' undefined but debug module(second task) printin
Read more

javascript - Get parameter of GET request -

i make request: createxhrrequest( "get", fileurl, function( err, response ) { if( err ) { alert( "error get!" ); } alert(response); }); and full response: { "status" : "ok", "message" : "jvberi0xljqkjdduxdgkmy how can jvberi0xlj ? i try response.message , response["message"]. nothing works. just simple access this: var json = json.parse(response); json.message
Read more