Using Excel VBA to select onchange value in JavaScript web -


i new vba, i've been tried many times use excel vba select value on website, doesn't work. below code use.

actually don't know how elements since has no "id" or "name" tag.

sub getfinancedata()    dim url string    url = "http://stock.finance.sina.com.cn/hkstock/finance/00001.html"    set myie = createobject("internetexplorer.application")    myie  .navigate url  .visible = true    while .busy = true or .readystate <> 4  loop  doevents    .document.parentwindow.execscript "selectdata(zero);", "javascript"    end    end sub

below html code, want change option value "zero" when open website, can check , advise vba code can use value "zero"? lot in advance!

enter image description here

	<a name="a1" id="a1"></a>    	<div class="part02">     	  <div class="sub01">         	  <div class="sub01_tt fblue">             	  <span class=" selected"><a href="#a1" target="_self">重要财务指标</a></span>                <span class=""><a href="#a2" target="_self">资产负债表</a></span>                <span class=""><a href="#a3" target="_self">现金流量表</a></span>                <span class=""><a href="#a4" target="_self">综合损益表</a></span>                <em class="rt">报表类型:<select class="fgrey" style="width:100px;" interface="getfinancestandardforjs?symbol=$symbol&financestanderd=" table="tablegetfinancestandard" onchange="selectdata(this);">                  <option value="all" >全部</option>                  <option value="zero" >年报</option>                  <option value="1" >中报</option>                  <option value="2" >一季报</option>                  <option value="3" >三季报</option>              </select></em>          </div>          <div class="sub01_cc">              	<div class="sub01_c">              	                	<table cellspacing="0" cellpadding="0" border="0"  class="tab05">                      <tbody id="tablegetfinancestandard">                       <tr>

indeed, addressing form element html name or id favorable in example, can use getelementsbytagname() method address select tags though have no name or id.

below code set select drop downs "zero". tested briefly , worked fine.

sub getfinancedata()     dim url string     url = "http://stock.finance.sina.com.cn/hkstock/finance/00001.html"      set myie = createobject("internetexplorer.application")     myie         .navigate url         .visible = true          while .busy = true or .readystate <> 4             loop         doevents          set selectitems = myie.document.getelementsbytagname("select")         each in selectitems             i.value = "zero"             i.fireevent ("onchange")         next     end end sub

Comments

Post a Comment

Popular posts from this blog

jquery - How do you format the date used in the popover widget title of FullCalendar? -

Image
in fullcalendar, how format date used in popover widget title when clicking '+n more'? code: <div class="fc-popover fc-more-popover"> <div class="fc-header fc-widget-header"> <span class="fc-close fc-icon fc-icon-x"></span> <span class="fc-title">tuesday, april 7</span> ... </div> ... </div> you use daypopoverformat that. determines date format of title of popover created eventlimitclick option. must date formatting string. default value "dddd, mmmm d" english , "ll" other languages.
Read more

Bubble Sort Manually a Linked List in Java -

Image
this first question here. trying manually sort linked list of integers in java , can not figure out wrong code. suggestions? don't error, still have output unordered. tried few different ways, nothing worked. appreciate if can me that. public class node { int data; node nextnode; public node(int data) { this.data = data; this.nextnode = null; } public int getdata() { return this.data; } } // node class public class datalinkedlist implements datainterface { private node head; private int size; public datalinkedlist(){ this.head = null; this.size = 0; } public void add(int data) { node node = new node(data); if (head == null) { head = node; } else { node currentnode = head; while(currentnode.nextnode != null) { currentnode = currentnode.nextnode; } currentnode.nextnode = node; ...
Read more

asp.net mvc - SSO between MVCForum and Umbraco7 -

i need integrate sso between mvcforum (forum of company) , umbraco7 (manages cms company). however struggling shared authentication work. tried several ways suggested on other threads still not running expected. here did: 1. in mvcforum (forum.mywebsite.com) 1.1. machine key in web.xml: <machinekey validationkey="the same key umbraco7" decryptionkey="the same key umbraco7" validation="sha1" decryption="aes" /> 1.2. authenticate forms in web.xml <forms name="my-sso-auth" protection="all" path="/" timeout="43200" domain="forum.mywebsite.com" loginurl="/members/logon" enablecrossappredirects="true" /> 2. in umbraco7 (news.mywebsite.com) 2.1. machine key in web.xml: <machinekey validationkey="the same key mvcforum" decryptionkey="the same key mvcforum" validation="sha1" decryption="aes" /> 2.2. a...
Read more