operating system - Not able to run vbscript on windows 7 and above version -


i not able run vbscript on windows 7 , above version. script used copy data 1 excel workbook another. please me.

thanks.

option explicit on error resume next  dim objexcel,objfso,objfolder,objsubfolder,objfile,objrange dim objworkbook,objworkbook2,objworksheet dim strpath,pathname,endroww,introw,k,i dim intnewrow,startrow,endrow dim objrange1,objrange2  'constants asigned sort const xlascending = 1 const xlyes = 1  set objexcel = createobject("excel.application")  intnewrow=1  strpath = "c:\documents , settings\supriyas\desktop\feb 141" pathname="xls"  if strpath = "" wscript.quit if pathname = "" wscript.quit  'creating excel workbook in documents(destination) set objworkbook2= objexcel.workbooks.add()  'to supress flashing oh screens objexcel.visible = false  'to supress dialog box objexcel.displayalerts = false  set objfso = createobject("scripting.filesystemobject") set objfolder = objfso.getfolder (strpath) set objsubfolder = objfolder.subfolders set objfile = objsubfolder.files  'loop through subfolders each objsubfolder in objfolder.subfolders  'loopt hrough excel files in subfolder each objfile in objsubfolder.files  'to check excel files using extention if objfso.getextensionname (objfile.path) = "xls"  'open workbook copied from(source) set objworkbook = objexcel.workbooks.open(objfile.path)  'activate worksheet set objworksheet = objworkbook.worksheets(1) objworksheet.activate  'copy 2nd row  if intnewrow = 1 startrow = 1 else startrow = 2 end if  'count number of used row endrow = objworkbook.worksheets("sheet1").usedrange.rows.count  'copy data objworkbook.worksheets("sheet1").range(startrow & ":" & endrow).copy  'close workbook after copying objworkbook.close  'paste on workbook2 objworkbook2.worksheets("sheet1").cells(intnewrow,1).pastespecial  'increment row intnewrow = intnewrow + (endrow - startrow + 1)  end if next next  'counting row of workbook2 endroww = objworkbook2.worksheets("sheet1").usedrange.rows.count  'deleting empty rows w.r.t column (sl.no) while endroww >= 2    if objworkbook2.worksheets("sheet1").cells(endroww,1).value = ""  set objrange = objworkbook2.worksheets("sheet1").cells(endroww,1).entirerow objrange.delete end if  endroww = endroww -1  wend     'sorting data w.r.t date in ascending order set objworksheet2 = objworkbook2.worksheets(1) set objrange1 = objworksheet2.usedrange header = xlyes set objrange2 = objexcel.range("d2") objrange2.sort objrange2,xlascending,,,,,,xlyes  'counting rows of workbook2 after deleting k = objworkbook2.worksheets("sheet1").usedrange.rows.count  'editing serial number introw = 2 = 1 k objworkbook2.worksheets("sheet1").cells(introw,1).value = introw = introw + 1 next  'save , close workbook2 objworkbook2.save objworkbook2.close

this script , loop through subfolder , copy's data excel workbooks in sub folder single workbook. when run code runs not getting excepted output i,e., not copying data @ , not getting error while running code.

you need comment out line.

on error resume next

by

'on error resume next

then you'll error number, line number, , column nnumber of error.


Comments

Post a Comment

Popular posts from this blog

apache - Remove .php and add trailing slash in url using htaccess not loading css -

i have add following code htaccess file removing .php extension , add trailing slash urls. worked fine reduced page loading speed , css code not loading @ all. pages ugly. please help rewriteengine on rewritebase / ## hide .php extension snippet # externally redirect /dir/foo.php /dir/foo rewritecond %{the_request} ^[a-z]{3,}\s([^.]+)\.php [nc] rewriterule ^ %1/ [r,l] # add trailing slash rewritecond %{request_filename} !-f rewritecond %{request_uri} !/$ rewriterule . %{request_uri}/ [l,r=301] # internally forward /dir/foo /dir/foo.php rewritecond %{request_filename} !-d rewritecond %{request_filename}.php -f rewriterule ^(.*?)/?$ $1.php [l] we can rewrite urls using .htaccess files. before writing in .htaccess files need verify kind of server using. can check server adding a <?php phpinfo(); ?> in php page. ensure mod_rewrite module enabled in apache server. can identified checking phpinfo included page. common methods used url rewriting follows ...
Read more

javascript - jQuery show full size image on click -

pretty self explanatory not workking . i want display full image when user click on image... yes know there tons of plugins but i want keep simple. any idea ? css : .full { display: none; width: 500px; height: 500px; margin-left: 100px; margin-top: -300px; position: fixed; background-color: #f00; z-index: 6; } .thumbnail { width: 50px; height: 50px; } html: <img class="thumbnail" src="http://4.bp.blogspot.com/-uhbdp2esxng/txneptvi92i/aaaaaaaaaky/upfqis7zto0/s1600/rihanna-wallpaper.jpg"> jquery: $(document).ready(function() { $('.thumbnail').on('click', function() { var img = $('<img />',{src:this.src,'class':'full'}); $('.full').html(img).show(); console.log('done!'); }); }); try looking how jquery works. $(document).ready(function() { $('.thumbnail').on('click', function(...
Read more