vba - EXCEL: Automatically populating cells from websites requiring a login and where the information is not directly stored in tables -


i trying write vba code in excel file fetch data company's intranet site (which requires login).

i doing part of company project , need excel auto fetch these fields (numbers) portal.

i did research , found relevant code helps automate login process, each field need fill i.e cells under column c row 1, need first fetch unique web link column row 1, on , forth.

sub gettable() dim ieapp internetexplorer dim iedoc object dim ietable object dim clip dataobject  'create new instance of ie set ieapp = new internetexplorer  'you don’t need this, it’s debugging ieapp.visible = true  'assume we’re not logged in , go directly login page ieapp.navigate "http://severe-frost-552.heroku.com/login" while ieapp.busy: doevents: loop until ieapp.readystate = readystate_complete: doevents: loop  set iedoc = ieapp.document  'fill in login form – view source browser control names iedoc.forms(0)     .login.value = "dailydose"     .password.value = "password"     .submit end while ieapp.busy: doevents: loop until ieapp.readystate = readystate_complete: doevents: loop  'now we’re in, go page want ieapp.navigate "http://severe-frost-552.heroku.com/" while ieapp.busy: doevents: loop until ieapp.readystate = readystate_complete: doevents: loop  'get table based on table’s id set iedoc = ieapp.document set ietable = iedoc.all.item("sampletable")  'copy tables html clipboard , paste teh sheet if not ietable nothing     set clip = new dataobject     clip.settext "<html>" & ietable.outerhtml & "</html>"     clip.putinclipboard     sheet1.select     sheet1.range("a1").select     sheet1.pastespecial "unicode text" end if  'close 'er ieapp.quit set ieapp = nothing  end sub

the problem above code can fetch data defined tables on website, data trying fetch not defined under div id , populated text after appropriate spacing. eg. also, keeps returning error client terminated connection or ie didnt respond.

<div class="menucontent"><table width="100%"><tr><td width="50%"><h2 style="border-color: #2175bb;">necessary persons</h2></td><td><h2 style="border-color: #2175bb;">estimated time complete</h2></td></tr><tr><td>         **2**     </td><td>         **180 min**     </td></tr>

the bold text need fetch site excel. don't care formatting. appreciated!

normally not recommend 1 shall not parse html regex. in special case think best shot.

set reference microsoft vbscript regular expression 5.5, replace "txt" part word macro , should fine:

dim rex regexp dim matches matchcollection dim m match dim txt string  set rex = new regexp rex     .pattern = "(estimated time complete)(.+?)(\<td\>)(.+?)(\<\/td\>\<td\>)(.+?)(\<\/td\>)"     .multiline = false     .global = true end  txt = activedocument.content  set matches = rex.execute(txt) each m in matches     msgbox "necessary persons: " & m.submatches(3)     msgbox "etc: " & m.submatches(5) next m

will trick you?


Comments

Post a Comment

Popular posts from this blog

powershell Start-Process exit code -1073741502 when used with Credential from a windows service environment -

i'm running strange behavior powershell start-process call. here call: $process = start-process ` "c:\somepath\mybinary.exe" ` -passthru ` -credential $defaultcredential ` -wait ` -workingdirectory "c:\somepath" ` -loaduserprofile if ($process.exitcode -ne 0) { #do } this call return exit code - 1073741502 . after quick search, exit code seems related generic error when program not load required dll (aka. status_dll_init_failed ). when run without -credential $credential program runs correctly. in order isolate problem, manually launched some.exe in prompt target credential , runs smoothly. so problem seems come way start-process cmdlet launch process. i found potential solutions problem tried apply no luck : link , link . would have idea of what's going on here ? edit 1: run proc mon monitoring program activities when launched directly or via powershell script. problem seems occur when loading kernelbase
Read more

twig - Using Twigbridge in a Laravel 5.1 Package -

i'm trying create laravel 5.1 package uses twigbridge instead of .php views. can normal .php views display fine, when try make use of .twig templates i'm met error. possible use twigbridge templates when creating views laravel package or pretty stuck blade , php ? edit 1: loading twig template without extending works. it's when start using {% extends 'file' %} error comes out. i error error loading /virtual/laravel/packages/username/mypackage/src/views/sample.twig: template "templates.master" not defined () in "/virtual/laravel/packages/username/mypackage/src/views/sample.twig" @ line 1. my folders username |_ mypackage |_ src |_ controllers - samplecontroller.php |_ views |_ templates - master.twig - sample.twig twig template sample.twig {% extends 'templates.master' %} {% block content %} {{ parent()
Read more

c# - LINQ join Entities from HashSet's, Join vs Dictionary vs HashSet performance -

i have hashset's each stores t, have written test application compares different relation algorithms can think of, i'm not pleased results getting. does there exist more efficient ways of achieving object relations, once testing? using system; using system.collections.generic; using system.linq; using system.text; using system.threading.tasks; using system.diagnostics; namespace linqtests { class program { static void main(string[] args) { hashset<user> usertable = new hashset<user>(); hashset<userproperty> userpropertytable = new hashset<userproperty>(); #region lets create dummy data. console.writeline("please wait while creating dummy data, can take while..."); console.writeline(""); int rows = 1000000; for(int x = 0; x < rows; x++) { random rnd = new random(); // ad
Read more