excel - Subscript out of range when trying to access 2d array value using variables -


i have workbook needs open workbook, copy range , paste in first workbook. range being copied 2d array. before pasting value, need check if value blank doesn't paste 0 table. after should paste value original spreadsheet , loop next value. array needs dynamic function run different sized tables. number of columns change, number of rows constant.

the getvalue2 function passes range myarray fine "subscript out of range" error occurs when try access individual values in myarray using variables ro , col.any insight how fix this? see code below.

public function multicolgetvalsrev2(startj integer, starti integer, endj integer, endi integer, startc integer, startr integer, endc integer, endr integer, instcountrow integer, instcountcol integer, p string, f string, s string, thisworksheet string)  dim myarray() variant dim colnum integer dim rownum integer dim ro integer dim col integer dim path, file, sheet string dim wkbk workbook  path = p file = f sheet = s colnum = endc - startc rownum = 24 ro = 0 col = 0 redim myarray(rownum, colnum)  'getvalue2 call myarray = getvalue2(path, file, startr, endr, startc, endc) redim preserve myarray(rownum, colnum) 'paste values flow map j = startj endj = starti endi     if col <= colnum         if ro <= rownum              'clear existing cell             thisworkbook.sheets(thisworksheet).cells(i, j).clear              'check if cell blank             if myarray(ro, col) = isblank 'error occurs here                 myarray(ro, col) = ""             end if              'paste value flow map             thisworkbook.sheets(thisworksheet).cells(i, j).value = myarray(ro, col)          end if     ro = ro + 1     end if next col = col + 1 ro = 0 next j end function

the getvalue2 function follows:

private function getvalue2(path, file, startr, endr, startc, endc) dim wb workbook application.screenupdating = false application.asktoupdatelinks = false set wb = workbooks.open(path & application.pathseparator & file) wb.sheets(1).activate getvalue2 = range(cells(startr, startc), cells(endr, endc)) wb.close (false) application.asktoupdatelinks = true application.screenupdating = true end function


Comments

Post a Comment

Popular posts from this blog

asynchronous - C# WinSCP .NET assembly: How to upload multiple files asynchronously -

i using winscp .net assembly uploading files. want upload multiple files asynchronous way. have created method works single upload. public class uploadingdata { private sessionoptions _sessionoptions; private session _session; //connection etc private void onconnected() { foreach (var fileinfo in localfileslist) { var task = task.factory.startnew(() => uploadfilesasync(fileinfo)); } } private async task uploadfilesasync(string file) { string remotefilepath = _session.translatelocalpathtoremote(file, @"/", "/test_data_upload"); var uploading = _session.putfiles(file, remotefilepath, false); //when done await task.run(() => thread.sleep(1000)); } } please suggest me correct way. thanks you can use backgroundworker class this: string[] images = new string[50]; foreach (var path in images) { backgroundworker
Read more

aws api gateway - SerializationException in posting new Records via Dynamodb Proxy Service in API -

i getting "__type": "com.amazon.coral.service#serializationexception" as reply in postman & in test console in api gateway trying post record directly dynamodb using api proxy services.. referring aws article - https://aws.amazon.com/blogs/compute/using-amazon-api-gateway-as-a-proxy-for-dynamodb/ here's mapping { "tablename": "tablenamegoeshere", "item": { "id" : "$context.requestid" "eventname" : "$input.path('$.eventname')", "timestamp" : $input.path('$.timestamp'), "answers": "$util.parsejson($input.path('$.answers'))" } } update: did asked ... , worked if try add array of json objects gives me above same error - here's trying now. please - couldnt find on google well #set($inputroot = $input.path('$')) { "tablename": "answer", "item": {
Read more

asp.net - Problems sending emails from forum -

i have been redesigning site has message board, has been written guy looked after site. it has few problems , written in .asp , uses .mdb files database. you can see whole thing here . feel free post if helps, test thing have set using original files , new database. the basic problem when posts message, supposed email sent them, have posted it. when replies, originator supposed message, replier has been posted. i’d have thought @ point in process there should script/file in postmessage.asp? the postmessage.asp page below. <% option explicit %> <!-- #include virtual="common/adovbs.inc" --> <html> <head> <meta http-equiv="content-type" content="text/html; charset=windows-1252"> <meta name="generator" content="microsoft frontpage 4.0"> <meta name="progid" content="frontpage.editor.document"> <title>new page 2</title> <base target="_self"
Read more