vb.net - Unable to kill excel processes -


i using followiwing code copying , pasting excel files:

imports excel = microsoft.office.interop.excel imports system.io imports system.runtime.interopservices  private sub btncombine_click(byval sender system.object, byval e system.eventargs) handles btncombine.click      dim xlappsource new excel.application     dim xlapptarget new excel.application     dim xlwbsource excel.workbook     dim xlwbtarget excel.workbook     dim xlsheetsource excel.worksheet     dim xlsheettarget excel.worksheet     dim xlrangesource excel.range     dim xlrangetarget excel.range      dim progress integer = 0     pbrprogress.minimum = 0     pbrprogress.maximum = amountoffiles      btncombine.enabled = false     btnselect.enabled = false     pbrprogress.visible = true      getsavelocation()     makeexcelfile()      'loop through excel files required data     = 0 amountoffiles - 1           dim currentfile string = strfilenames(i)         dim intamountofrows integer = amountofrows(currentfile)         dim intstartofemptyrow integer = amountofrows(summarylocation)          xlappsource.displayalerts = false         xlapptarget.displayalerts = false          'set current workbook         xlwbsource = xlappsource.workbooks.open(currentfile)         xlwbtarget = xlapptarget.workbooks.open(summarylocation)          'set current worksheet         xlsheetsource = xlwbsource.activesheet         xlsheettarget = xlwbtarget.activesheet          'copy range of data source target file         xlrangesource = xlsheetsource.range("a2:k" & intamountofrows)         xlrangesource.copy()          xlrangetarget = xlsheettarget.range("a" & intstartofemptyrow)         xlrangetarget.pastespecial(excel.xlpastetype.xlpastevalues)          'save summary file before closing         xlsheettarget.saveas(summarylocation)          'updating progress bar         progress = progress + 1         pbrprogress.value = progress      next      'close excel     xlwbsource.close(true)     xlwbtarget.close(true)     xlappsource.quit()     xlapptarget.quit()      xlappsource.displayalerts = true     xlapptarget.displayalerts = true       'cleanup     marshal.releasecomobject(xlappsource)     marshal.releasecomobject(xlapptarget)     marshal.releasecomobject(xlwbsource)     marshal.releasecomobject(xlwbtarget)     marshal.releasecomobject(xlsheetsource)     marshal.releasecomobject(xlsheettarget)     marshal.releasecomobject(xlrangesource)     marshal.releasecomobject(xlrangetarget)      xlappsource = nothing     xlapptarget = nothing     xlwbsource = nothing     xlwbtarget = nothing     xlsheetsource = nothing     xlsheettarget = nothing     xlrangesource = nothing     xlrangetarget = nothing      msgbox("samenvoegen compleet")      init()  end sub

i have tried every solution given on so:

  • never use 2 points on line
  • i have tried using marshall.releasecomobject
  • i have tried setting objects "nothing"

however, everytime run application, there 10-20 excel processes still running.

option explicit  sub main()      dim xlapp excel.application     set xlapp = new excel.application      xlapp.visible = false     xlapp.displayalerts = false      dim xlwb workbook     set xlwb = xlapp.workbooks.open("c:\...\path")      dim xlsht worksheet     set xlsht = xlwb.sheets(1)      xlsht.range("a1") = "message " & thisworkbook.fullname      xlwb.saved = true     xlwb.save     xlwb.close      xlapp.quit  end sub

works me every single time , not leave excel processes hanging in task manager.

note: if code breaks @ point , not handle opened objects hang in processes tab in task manager. if haven't implemented error handling in code start here.

just consider alternative

option explicit  sub main()      on error goto errhandler     dim xlapp excel.application     set xlapp = new excel.application      xlapp.visible = false     xlapp.displayalerts = false      dim xlwb workbook     set xlwb = xlapp.workbooks.open("c:\...\path")      dim xlsht worksheet     set xlsht = xlwb.sheets(1)      xlsht.range("a1") = "message " & thisworkbook.fullname      xlwb.saved = true     xlwb.save     xlwb.close      xlapp.quit     exit sub  errhandler:     xlwb.saved = true     xlwb.save     xlwb.close      xlapp.quit end sub

Comments

Post a Comment

Popular posts from this blog

java.util.scanner - How to read and add only numbers to array from a text file -

i'm learning java , have question regarding reading file want read numbers file contains strings well. here example of file: 66.56 "3 java 3-43 5-42 2.1 1 and here coding: public class test { public static void main (string [] args){ if (0 < args.length) { file x = new file(args[0]); try{ scanner in = new scanner( new fileinputstream(x)); arraylist<double> test = new arraylist<>(); while(in.hasnext()){ if(in.hasnextdouble()){ double f=in.nextdouble(); test.add(f);} else {in.next();} } catch(ioexception e) { system.err.println("exception during reading: " + e); } } my problem add 66.56,2.1 , 1 doesn't add 3 after "3 or ignores 3-43 , 5-42 can tell me how skip strings , add doubles here? thanks all said 3 ie; "3, 3-43 , 4-42 strings either u read string , split , check number @ " , - or put in space between characters , integers. jvm after compilation tre...
Read more

rewrite - Trouble with Wordpress multiple custom querystrings -

i'm working on adding multiple querystring , doesn't seem work. i've found codes seems work others might i'm missing something. i want like: http://mydomain.com/board/?getyear=2013&getsometext2=sometext to http://mydomain.com/board/2013/sometext/ i added code below functions.php file. doesn't seem work should though. this works. echoing querystring gets both variable without problem. http://mydomain.com/board/2013/sometext/ but doesn't. tested querystring vis isset() seems nothing being set/get http://mydomain.com/board/2013/ function add_query_vars($vars) { $vars[] = "getyear"; $vars[] = "getsometext2"; return $vars; } add_filter('query_vars', 'add_query_vars'); function add_rewrite_rules($arules) { $anewrules = array('board/([^/]+)/([^/]+)/?$' => 'index.php?pagename=board&getyear=$matches[1]&getsometext2=$matches[2]'); $arules = $a...
Read more