excel - VBA Macro Memory Leak (how to clear variable= -


i have vba macro script scrapes data. it's scrapes using msie.. believe msie core problem memory leakage.

i'm initializing variable like

set ie = createobject("internetexplorer.application")

i made little test see how memory being used.

i made loop makes 1 instance of ie , pings same website. memory doesn't seem leek.

then made loop ping different site , memory usage started increasing each request.

i made test (i'm posting below) creates new object in every iteration , deletes on end. deleting part doesn't seem work.

it seems instance of ie caching requests object getting bigger. assumption.

here's sample code used test leakage.

do while true dim ie object set ie = createobject("internetexplorer.application") ie.navigate "https://www.google.hr/#hl=hr&gs_nf=1&cp=3&gs_id=8&xhr=t&q=" & counter ie.visible = true while ie.readystate <> 4 or ie.busy = true application.wait now() + timevalue("00:00:01") doevents loop application.wait now() + timevalue("00:00:01") counter = counter + 1 range("a" & counter).value = "https://www.google.hr/#hl=hr&gs_nf=1&cp=3&gs_id=8&xhr=t&q=" & counter ie.quit set ie = nothing loop

any input great!

i tested above code , destroying ie object correctly. in regards this

it seems instance of ie caching requests object getting bigger. assumption.

yes increases not always. see screenshot.

enter image description here

this screenshot of task manager ie 8 loops. shows increase if see brings down. believe seeing not memory leak.

edit

here code had in databank (i didn't write it) can run check memory usage.

sub sample() while true dim ie object set ie = createobject("internetexplorer.application") ie.navigate "https://www.google.hr/#hl=hr&gs_nf=1&cp=3&gs_id=8&xhr=t&q=" & counter ie.visible = false debug.print getprocessmemory("iexplore.exe") while ie.readystate <> 4 or ie.busy = true application.wait now() + timevalue("00:00:01") doevents loop application.wait now() + timevalue("00:00:01") counter = counter + 1 range("a" & counter).value = "https://www.google.hr/#hl=hr&gs_nf=1&cp=3&gs_id=8&xhr=t&q=" & counter ie.quit set ie = nothing loop end sub private function getprocessmemory(byval app_name string) string dim process object, dmemory double each process in getobject("winmgmts:"). _ execquery("select workingsetsize win32_process name = '" & app_name & "'") dmemory = process.workingsetsize next if dmemory > 0 getprocessmemory = resizekb(dmemory) else getprocessmemory = "0 bytes" end if end function private function resizekb(byval b double) string dim bsize(8) string, integer bsize(0) = "bytes" bsize(1) = "kb" 'kilobytes bsize(2) = "mb" 'megabytes bsize(3) = "gb" 'gigabytes bsize(4) = "tb" 'terabytes bsize(5) = "pb" 'petabytes bsize(6) = "eb" 'exabytes bsize(7) = "zb" 'zettabytes bsize(8) = "yb" 'yottabytes = ubound(bsize) 0 step -1 if b >= (1024 ^ i) resizekb = threenonzerodigits(b / (1024 ^ _ i)) & " " & bsize(i) exit end if next end function private function threenonzerodigits(byval value double) double if value >= 100 threenonzerodigits = formatnumber(value) elseif value >= 10 threenonzerodigits = formatnumber(value, 1) else threenonzerodigits = formatnumber(value, 2) end if end function

snapshot

enter image description here


Comments

Post a Comment

Popular posts from this blog

javascript - backbone.js Collection.add() doesn't `construct` (`initialize`) an object -

<!doctype html public "-//w3c//dtd xhtml 1.0 strict//en" "http://www.w3.org/tr/xhtml1/dtd/xhtml1-strict.dtd"> <html> <head> <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.7.2/jquery.min.js"></script> <script src="http://documentcloud.github.com/underscore/underscore-min.js"></script> <script src="http://documentcloud.github.com/backbone/backbone-min.js"></script> </head> <body> <button id="cmd_create_event" name="cmd_create_event" type="button">create new `event`</button> <script type="text/javascript"> var eventmodel = backbone.model.extend({ initialize : function() { console.log("`event` initialized. id: " + this.cid); this.bind("change:status", function() { console.log(this.get("status") + " value `status`"); }); this.bind("error", function(model, e...
Read more

php - Get uncommon values from two or more arrays -

is there function in php give array of uncommon values 2 or more arrays? for example: $array1 = array( "green", "red", "blue"); $array2 = array( "green", "yellow", "red"); .... $result = function_needed($array1, $array2,...); print_r($result); should give output: array("blue", "yellow", ...); use array_diff , array_merge : $result = array_merge(array_diff($array1, $array2), array_diff($array2, $array1)); here's demo. for multiple arrays, combine callback , array_reduce : function unique(&$a, $b) { return $a ? array_merge(array_diff($a, $b), array_diff($b, $a)) : $b; } $arrays = array( array('green', 'red', 'blue'), array('green', 'yellow', 'red') ); $result = array_reduce($arrays, 'unique'); and here's demo of that.
Read more

Adding duplicate array rows in Php -

i create function in php adds rows of array shared column value. so input. $test = array( array("c", 5, 6), array("c", 2, 3), array("test", 5, 6) ); and output. $testduplicatefree = array( array("c", 7, 9), array("test", 5, 6) ) ); i'm thinking function combine_duplicates($array,$col){ ... ... return $duplicatefreearray; } where $col duplicate free array. so, in case, combine_duplicates($test,0); would me desired output. this. <?php function combine_duplicates($array,$col) { $index = array(); foreach ($array $row) { $key = $row[$col]; if (!isset($index[$key])) { $index[$key] = $row; } else { ($i = 0; $i < count($row); ++$i) { if ($i != $col) { $index[$key][$i] += $row[$i]; } } } } return array_values($index); } $array = array( array("c", 5, 6), array("c", 2, 3), array("test", 5, 6) ); print_r(combine_duplicates($array, 0)); try here: http://codepad.org/mdhesqhi
Read more