excel vba - Why does code fail on second run but not first? -


this code working on first run, when try run again following error:

run-time error '91': object variable or block variable not set... 

private sub cmdingresar_click()   dim excelapp excel.application   dim excelwb excel.workbook   dim excelws excel.worksheet    set excelapp = createobject("excel.application")   set excelwb = excelapp.workbooks.open("c:\users\vere\desktop\carrera desarrollo\visual 6\sistema mascara mahe\cheques.xlsx")    excelapp.visible = false    = txtcheque.text   b = txtfechadeelaboracion.text   c = txtfechadecobro.text   e = txtfactura.text   f = txtproveedor.text   h = txtnumerodecuenta.text   = txtrfc.text   l = txtdescripcion.text   n = txtneto.text   o = txtprecio.text    selection.entirerow.insert ' here appers error when try second run   activesheet.cells(3, 1).select   activesheet.cells(1 + 3, 1) =   activesheet.cells(1 + 3, 2) = b   activesheet.cells(1 + 3, 3) = c   activesheet.cells(1 + 3, 4) = d   activesheet.cells(1 + 3, 5) = e   activesheet.cells(1 + 3, 7) = f   activesheet.cells(1 + 3, 8) = g   activesheet.cells(1 + 3, 9) = h   activesheet.cells(1 + 3, 10) =   activesheet.cells(1 + 3, 11) = j   activesheet.cells(1 + 3, 12) = k   activesheet.cells(1 + 3, 13) = l   activesheet.cells(1 + 3, 14) = m   activesheet.cells(1 + 3, 15) = n   activesheet.cells(1 + 3, 16) = o   excelwb.saved = true   set excelws = nothing   set excelwb = nothing   excelapp.quit   set excelapp = nothing   msgbox "listo" end sub

you have lot of unqualified object references there causing problem. think want:

private sub cmdingresar_click()     dim excelapp              excel.application     dim excelwb               excel.workbook     dim excelws               excel.worksheet      set excelapp = createobject("excel.application")     set excelwb = excelapp.workbooks.open("c:\users\vere\desktop\carrera desarrollo\visual 6\sistema mascara mahe\cheques.xlsx")      excelapp.visible = false      = txtcheque.text     b = txtfechadeelaboracion.text     c = txtfechadecobro.text     e = txtfactura.text     f = txtproveedor.text     h = txtnumerodecuenta.text     = txtrfc.text     l = txtdescripcion.text     n = txtneto.text     o = txtprecio.text      set excelws = excelwb.activesheet     excelws          .cells(3, 1).entirerow.insert         .cells(1 + 3, 1).value =         .cells(1 + 3, 2).value = b         .cells(1 + 3, 3).value = c         .cells(1 + 3, 4).value = d         .cells(1 + 3, 5).value = e         .cells(1 + 3, 7).value = f         .cells(1 + 3, 8).value = g         .cells(1 + 3, 9).value = h         .cells(1 + 3, 10).value =         .cells(1 + 3, 11).value = j         .cells(1 + 3, 12).value = k         .cells(1 + 3, 13).value = l         .cells(1 + 3, 14).value = m         .cells(1 + 3, 15).value = n         .cells(1 + 3, 16).value = o     end     ' if want save file, won't work!     excelwb.saved = true     ' need use     excelwb.close savechanges:=true     set excelws = nothing     set excelwb = nothing     excelapp.quit     set excelapp = nothing     msgbox "listo" end sub

Comments

Post a Comment

Popular posts from this blog

1111. appearing after print sequence - php -

morning, i have code takes string of shoe sizes, explodes , puts in table. code works , info displayed correctly on page after table there few 1's after table. i'm confused this. so table looks (in columns of 3 on webpage) available in following sizes: 3 4 5 6 9 10 111 here's codes, purpose of example $x = 3|4|6|10|9 function get_sizes_pipe($x) { $counter = 0; $splits = explode("|",$x); asort($splits); $x = print "<table class='greentable'>"; $x .= print "<thead><tr><th scope='col' colspan='3' abbr='starter'>available in following sizes:</th></tr></thead><tbody><tr>"; foreach ($splits $split) { $entry = print "<td>".$split."</td>"; if($counter == 2){ $entry .= print "</tr><tr>"; $counter =0; } else { $counter++; ...
Read more

java - WARN : org.springframework.web.servlet.PageNotFound - No mapping found for HTTP request with URI [/board/] in DispatcherServlet with name 'appServlet' -

this question has answer here: why spring mvc respond 404 , report “no mapping found http request uri […] in dispatcherservlet”? 3 answers i trying making simple bbs i'm encountering following error, warn : org.springframework.web.servlet.pagenotfound - no mapping found http request uri [/board/] in dispatcherservlet name 'appservlet' i have tried solve error many times, have failed. how can solve error? here web.xml, controllerand , servlet-context. my web.xml <?xml version="1.0" encoding="utf-8"?> <web-app version="2.5" xmlns="http://java.sun.com/xml/ns/javaee" xmlns:xsi="http://www.w3.org/2001/xmlschema-instance" xsi:schemalocation="http://java.sun.com/xml/ns/javaee http://java.sun.com/xml/ns/javaee/web-app_2_5.xsd"> <filter> <filter-nam...
Read more

Ruby on Rails, ActiveRecord, Postgres, UTF-8 and ASCII-8BIT encodings -

weirdest error, who’s challenge try , me? spent hours yesterday on , it’s magic. can't believe happening , it's driving me crazy. btw, using: rails 4.2.3 ruby 2.2.3 pg 0.18 encoding.default_internal = encoding.default_external = utf-8 config.encoding = 'utf-8' it has postgres, activerecord , encodings! turns out we’ve been getting these errors whenever create new users on database special characters: encoding::undefinedconversionerror: "\xc3" ascii-8bit utf-8 \xc3 may vary depending on characters. weird part we’ve set since beginning utf-8. makes no sense , digged it, , used script: user.all.each |user| user.attributes.each |name, value| if value.is_a? string puts user.email + name.encoding.to_s + value.encoding.to_s end end end and output of 1 of users, users same: dr_lottahelp@blahblah.comutf-8utf-8 dr_lottahelp@blahblah.comutf-8ascii-8bit dr_lottahelp@blahblah.comutf-8ascii-8bit dr_lottahelp@blahblah.comutf-8asci...
Read more