excel - Application defined error while copying a range of cells from a workbook to the workbook i have created in the code -


i got error @ starred lines. have browsed lot found many answers copied same still getting error . not sure of wrong doing.

please help. in advance.

sub splitintocsv()     dim wbin     dim wbin1 workbook     dim header, ranges, range_lower, range_upper, rangecopy variant     dim rangevariable string     dim commacheck, rows, columns integer      set wbin = createobject("excel.application")     wbin.workbooks.add     wbin.worksheets(1).name = "testdata"     set wbin1 = workbooks.open(sheet1.range("b1").value, true, true)      rows = wbin1.sheets(1).usedrange.rows.count     columns = wbin1.sheets(1).usedrange.columns.count     header = split(thisworkbook.sheets(1).range("b2").value, ",")     rangevariable = thisworkbook.sheets(1).range("b3").value     commacheck = instr(rangevariable, ",")      if commacheck = 0         rangevariable = rangevariable & ","     end if      ranges = split(rangevariable, ",")     = lbound(ranges) ubound(ranges) - 1         j = lbound(header) ubound(header)             wbin.worksheets(1).cells(1, j + 1).value = header(j)         next j          range_lower = split(ranges(i), "-")(0)         range_upper = split(ranges(i), "-")(1)          wbin1.sheets(1)            rangecopy = .range(.cells(1 + range_lower, 1), .cells(1 + range_upper, columns)).value         end          wbin.worksheets(1)             *********                     .range(.cells(1 + range_lower, 1), .cells(1 + range_upper, columns)).value = rangecopy           *********         end      next      wbin1.close savechanges:=true      wbin.displayalerts = false     wbin.worksheets(1).saveas filename:="d:\raghudev\raghu.csv", fileformat:=xlcsv, createbackup:=false     wbin.quit         end sub

i don't same error can try following test in new excel report? i've tried recreate critical area of problem.

just sure put in sample data , select range of 1 3.

sub test()      dim wbin     set wbin = createobject("excel.application")     wbin.workbooks.add     wbin.worksheets(1).name = "testdata"      dim r variant, columns integer      r = selection.value     columns = 3      wbin.worksheets(1)         .range(.cells(1, 1), .cells(1, columns)).value = r     end  end sub

also try define variants:

redim rangecopy(1 (range_upper - range_lower + 1), 1 columns) variant  wbin1.sheets(1)    rangecopy = .range(.cells(1 + range_lower, 1), .cells(1 + range_upper, columns)).value end  wbin.worksheets(1)       .range(.cells(1 + range_lower, 1), .cells(1 + range_upper, columns)).value = rangecopy end

Comments

Post a Comment

Popular posts from this blog

Why does Ruby on Rails generate add a blank line to the end of a file? -

running rails generate controller foo home results in: class foocontroller < application controller def home end end (there's nothing on line in actual file, blank line) is there purpose blank line? it's common use newline indicate end of line, last line. many editors (like vi, use) add in newline silently. consensus text files (especially in unix world) should end in newline, , there have been problems historically if wasn't present. why should text files end newline? the tool used count lines in file "wc" counts newlines in file, without trailing newline show 3 instead of 4. it improves readability of templates used in generator. consider: https://github.com/rails/rails/blob/master/railties/lib/rails/generators/rails/controller/templates/controller.rb to remove trailing newline, template have last line of: end<% end -%> instead of: end <% end -%> that seems less readable me. the discussion below refers
Read more

keyboard - Smiles and long press feature in Android -

i've created android keyboard. how add features inserting smilies, , using long keypresses display symbols? to create long-press behavior allows select several options pop-up menu, follow guide (specifically pop-up menu section): http://developer.android.com/guide/topics/ui/menus.html smileys (also known emoticons) combination of keys, understood programs , parsed same way. have do, when clicks smiley face on keyboard, simulate pressing of key combination matching emoticon. example, when clicks smiley, should simulate key presses ':' , ')' :). here's list of emoticons: http://en.wikipedia.org/wiki/list_of_emoticons
Read more

node.js - Bad Request - node js ajax post -

i'm using express 3.0 , node v0.11.0. have button submits form , i'm using ajax post data json object node server. client code is: $('#contact').submit(function(e) { console.log('submit called'); var formdata = json.stringify($('form').serializeobject()); console.log(formdata); $.ajax({ url: "http://localhost:3000/savedata/", type: "post", datatype: 'json', data: {objectdata: formdata}, contenttype: "application/json", complete: function() { console.log('process complete'); }, success: function(data) { console.log('process sucess'); }, error: function() { console.log('process error'); }, }); return false; }); then on server: var express = require('express'); var app = express(); app.set('views', __dirname + '/views'); app.set('view engine', 'jade'); app.use(express.bodyparser());
Read more