excel - copying data from another workbook -


i trying replace current data in file data in selected file have same attributes. want replace data a1:q in current file other selected file. tried writing code showing errors .

sub newdata()    set appxl = createobject("excel.application") dim myfile window dim currentsheet worksheet dim lastrow double dim sourcefilename string   'open source file.xlsx appxl      vfile = application.getopenfilename(title:="select file opened")     if vfile = false exit sub  'if user didn't select file, exit sub    ' set myfile = workbooks.open(vfile)       .visible = false end  'get first sheet data set myfile = appxl.windows(vfile) myfile.activate set currentsheet = myfile.sheets(1)  'past table in current excel file lastrow = currentsheet.range("a1").end(xldown).row sheets("data retrieval").range("a1:e" & lastrow) = currentsheet.range("a1:q" & lastrow).value  'close source file.xlsx appxl.workbooks(vfile).close   end sub

this not prettiest of codes works asked!

sub newdata()  dim myfile window dim currentsheet worksheet dim lastrow double dim sourcefilename string dim sourcefileworksheet string dim destinationwb string dim destinationwksheet string 'set destination worksheet open workbook when run macro  destinationwb = activeworkbook.name destinationwksheet = activesheet.name  'select source file dim fnameandpath variant, wb workbook     fnameandpath = application.getopenfilename(title:="select file opened")  ' cancel macro if nothing selected         if fnameandpath = false         msgbox ("nothing selected, macro cancelled")         exit sub         end if  'open source file.xlsx workbooks.open (fnameandpath)  'set source names sourcefilename = activeworkbook.name sourcefileworksheet = activesheet.name  'determine last row of source lastrow = workbooks(sourcefilename).worksheets(sourcefileworksheet).range("a1").end(xldown).row  'past table in current excel file - note should change range of destination a1:q if want copied workbooks(destinationwb).worksheets(destinationwksheet).range("a1:e" & lastrow) = workbooks(sourcefilename).worksheets(sourcefileworksheet).range("a1:q" & lastrow).value  'close source file.xlsx workbooks(sourcefilename).close  'confirm complete msgbox ("complete!")  end sub

Comments

Post a Comment

Popular posts from this blog

php - failed to open stream: HTTP request failed! HTTP/1.0 400 Bad Request -

this code i'm using find latitude , longitude of place: function coords($address){ echo $url="http://maps.googleapis.com/maps/api/geocode/json?address=".$address; $json = file_get_contents(urlencode($url)); $data = json_decode($json, true); print_r($data['results'][0]['geometry']['location']['lat']); print_r($data['results'][0]['geometry']['location']['lng']); } however returns warning: failed open stream: http request failed! http/1.0 400 bad request if use above code in simple procedure works fine not in function. note: have tried curl_init()... method produced same result? instead of encoding whole url encode address part. following code work fine $add='jamshoro phase 2'; $url="http://maps.googleapis.com/maps/api/geocode/json?address=".urlencode($add); $json = file_get_contents($url); $data = json_decode($json, true); print_r($data['r
Read more

java - How to filter a backspace keyboard input -

i have code gives message when key number pressed: txtvalueofclause.addeventfilter(keyevent.key_typed, new eventhandler<keyevent>() { @override public void handle(keyevent t) { char ar[] = t.getcharacter().tochararray(); char ch = ar[t.getcharacter().tochararray().length - 1]; if (!(ch >= '0' && ch <= '9')) { system.out.println("the char entered not number"); t.consume(); } } }); now if press on wrong button , press backspace remove it, error message. how can add backspace input if statement? i have found answer: txtvalueofclause.addeventfilter(keyevent.key_typed, new eventhandler<keyevent>() { @override public void handle(keyevent t) { char ar[] = t.getcharacter().tochararray(); char ch = ar[t.getcharacter().tochar
Read more

java - Show Soft Keyboard when EditText Appears -

i have code in android app, alert dialog , keyboard, , when dialog shown want keyboard appear. not , not sure why? here code: final alertdialog.builder alert = new alertdialog.builder(this); alert.settitle("title"); alert.setmessage("message"); final edittext input = new edittext(this); input.setinputtype(inputtype.type_class_number); alert.setview(input); input.setonfocuschangelistener(new view.onfocuschangelistener() { @override public void onfocuschange(view v, boolean hasfocus) { if (hasfocus) { log.i(tag, "in focus"); inputmethodmanager inputmethodmanager = (inputmethodmanager) getsystemservice(context.input_method_service); inputmethodmanager.showsoftinput(input, inputmethodmanager.show_implicit); } } }); but keyboard not appear though edit text in focus, , tell appear why, doesn't come up? thanks in advance.
Read more