vba - Run-time error '1004': Method 'Range' of object '_worksheet' failed while merging - 


option explicit  public sub compile_workbook_data()  dim master_wkbk workbook: set master_wkbk = thisworkbook dim master_sht worksheet: set master_sht = thisworkbook.worksheets("task tracking-internal & org.") dim current_wkbk workbook dim current_sht worksheet dim wkbk_list(1 3) string dim x integer dim last_row integer dim last_col integer  wkbk_list(1) = "sub project_workbook - core services.xlsm" wkbk_list(2) = "sub project_workbook - esp2.0.xlsm" wkbk_list(3) = "sub project_workbook - p2e.xlsm"  x = 1 ubound(wkbk_list)      set current_wkbk = workbooks.open("d:\delta dental\" & wkbk_list(x))                    set current_sht = current_wkbk.worksheets("task tracking-internal & org.")      last_row = current_sht.cells.find("*", searchorder:=xlbyrows, searchdirection:=xlprevious).row     last_col = current_sht.cells.find("*", searchorder:=xlbycolumns, searchdirection:=xlprevious).column      current_sht.range(cells(4, 1), cells(last_row, last_col)).copy      last_row = master_sht.cells.find("*", searchorder:=xlbyrows, searchdirection:=xlprevious).row     master_sht.range("a" & last_row + 1).pastespecial paste:=xlpastevalues      current_wkbk.close false next x  end sub

im getting following error while running merge code:

run-time error '1004': method 'range' of object '_worksheet' failed

the following code code. yet, made bit more verbose. might allow tell error is:

option explicit  public sub compile_workbook_data()  dim master_wkbk workbook dim master_sht worksheet dim current_wkbk workbook dim current_sht worksheet dim wkbk_list(1 3) string dim x integer dim last_row integer dim last_col integer  dim bolfound boolean dim strfilepath string dim strsheetname string dim fso new filesystemobject  set master_wkbk = thisworkbook strsheetname = "task tracking-internal & org." strfilepath = "e:\delta dental\"  bolfound = false each master_sht in master_wkbk.worksheets     if master_sht.name = strsheetname bolfound = true: exit next master_sht if bolfound = false msgbox "couldn't find required sheet in excel file." & chr(10) & "aborting...": exit sub  wkbk_list(1) = "sub project_workbook - core services.xlsm" wkbk_list(2) = "sub project_workbook - esp2.0.xlsm" wkbk_list(3) = "sub project_workbook - p2e.xlsm"  if not fso.driveexists(split(strfilepath, "\")(0)) msgbox "couldn't find required drive" & split(strfilepath, "\")(0) & "." & chr(10) & "aborting...": exit sub if not fso.folderexists(strfilepath) msgbox "couldn't find required folder." & chr(10) & "aborting...": exit sub  x = 1 ubound(wkbk_list)      if dir(strfilepath & wkbk_list(x)) = vbnullstring msgbox "file " & chr(10) & "   " & strfilepath & wkbk_list(x) & chr(10) & "not found." & chr(10) & "aborting...": exit sub      set current_wkbk = workbooks.open("d:\delta dental\" & wkbk_list(x))      bolfound = false     each current_sht in current_wkbk.worksheets         if current_sht.name = strsheetname bolfound = true: exit     next current_sht     if bolfound = false msgbox "couldn't find required sheet in file:" & chr(10) & "   " & strfilepath & wkbk_list(x) & chr(10) & "aborting...": exit sub      last_row = current_sht.cells.find("*", searchorder:=xlbyrows, searchdirection:=xlprevious).row     last_col = current_sht.cells.find("*", searchorder:=xlbycolumns, searchdirection:=xlprevious).column      current_sht.range(cells(4, 1), cells(last_row, last_col)).copy      last_row = master_sht.cells.find("*", searchorder:=xlbyrows, searchdirection:=xlprevious).row     master_sht.range("a" & last_row + 1).pastespecial paste:=xlpastevalues      current_wkbk.close false next x  end sub

note, above code requires reference microsoft scripting runtime. please make sure set before running code.

enter image description here


Comments

Post a Comment

Popular posts from this blog

javascript - Clear button on addentry page doesn't work -

this addentry blog page have made scratch , there underlying problems code particularly clear button supposed clear text entered when button clicked on doesn't work have saved html file problem. also 1 other problem submit button works doesn't pass of text index file have written php , reason whenever click on submit button redirects me index page without posting entry have made. <!doctype html> <html> <head> <script> function message() { alert("clear form?"); } </script> <style> body {background-color: beige;} h1 {color: black;} p {color: black;} textarea { width: 50%; height: 150px; padding: 12px 20px; box-sizing: border-box; border: 2px solid #ccc; border-radius: 4px; background-color: white; font-size: 16px; resize: none; } div { padding-left: 20px; } </style> </head> <meta charset="utf-8"> <link rel="stylesheet" href=".
Read more

c# - Selenium Authentication Popup preventing driver close or quit -

i have selenium automated task setup login website retrieve information. it's basic in automation. logging in , clicking 2 links. running issue proving problem. the site in question uses authentication required popup not javascript popup rather regular windows auth popup. have read isn't handled out of box selenium. i using " http://username:password@url.com " site every , site has issues on end prompt me again username/password randomly. have enter username/password twice in row when navigating there hand. since task loops continuously few hours picking needed info figured use webdriverwait verify element present on page. if authentication popup appears, element isn't present. no need care run, start over. the problem having when authentication popup displayed , hit timeout limit want close driver/browser window can start task on again. however, driver.close() , driver.quit() not doing anything. browser remains open , unloaded page still there login p
Read more

tensorflow when input_data MNIST_data , zlib.error: Error -3 while decompressing: invalid block type -

i'm geting started tensorflow,followed tutorials,but cannot download mnist data. import tensorflow tf tensorflow.examples.tutorials.mnist import input_data mnist=input_data.read_data_sets("mnist_data/",one_hot=true) print("download done!") error information: extracting mnist_data/train-images-idx3-ubyte.gz traceback (most recent call last): file "/home/sj/program/tesorflow_try.py", line 6, in <module> mnist=input_data.read_data_sets("mnist_data/",one_hot=true) file "/usr/local/lib/python2.7/dist-packages/tensorflow/contrib/learn/python/learn/datasets/mnist.py", line 213, in read_data_sets train_images = extract_images(f) file "/usr/local/lib/python2.7/dist-packages/tensorflow/contrib/learn/python/learn/datasets/mnist.py", line 60, in extract_images buf = bytestream.read(rows * cols * num_images) file "/usr/lib/python2.7/gzip.py", line 268, in read self._read(readsize) file
Read more