Excel- Export specific columns to multiple text files vba -


my excel file looks this

new_filename    media_id    sighting_id frame   face_x  face_y  face_width 28069_00000.png 28069            15775     0    309.715   16.714    141 28069_00060.png 28069            15776     60   318       17      136.57 28069_00075.png 28069            15777     75   325.857   18        138.571 28069_00135.png 28069            15778     135  343.428   30.5757   134.1428 28069_00195.png 28069            15779     195  323.333   18      155.333 28069_00255.png 28069            15780     255  278.243   15.2857   138 28069_00315.png 28069            15781     315  284       18.8      137.85

i extract values columns facex, facey, face width , face height , save extracted values in text file having value in new filename column name of text file.

i repeat same procedure 3000 rows.

so txt file 1 should have values of (2,c6) (2,c7) (2,c8) , should named (2,c1) , on rows. clear enough?

sub test()     dim r long     activesheet          r = 2         while .cells(r, 1).value <> ""             open .parent.path & "\" & left(.cells(r, 1).value, len(.cells(r, 1).value) - 4) & ".txt" output #1             print #1, .cells(r, 6).value & "," & .cells(r, 7).value & "," & .cells(r, 8).value             close #1             r = r + 1         loop      end end sub

-

Comments

Post a Comment

Popular posts from this blog

javascript - Thinglink image not visible until browser resize -

Image
i trying repurpose pre-existing theme, includes drop down menu displays image. trying embed thinglink drop down menu's content section, not visible until resize browser window. here menu looks like: then when clicked, can see empty space image should show: then when browser resized, image appears: this code content of menu: <div class="ajax_accordion_content" style="display: none;"> <div class="report-detail"> <table border="0" cellpadding="0" cellspacing="0" width="100%" class="table_basic"> <tbody> <!-- thinglink image embedded --> <img style="max-width: 100%;" src="http://cdn.thinglink.me/api/image/832705713204625409/1024/10/scaletowidth#tl-832705713204625409;1043138249'" class="alwaysthinglink"/> <script async charset="utf-8" src="http://cdn.thinglink.me/jse/embed.j...
Read more

firebird - Error "invalid transaction handle (expecting explicit transaction start)" executing script from Delphi -

i'm developing update app delphi 10. i'm running windows 7 64x, firebird 2.5.1.26351 32x. execution order: checks current version(select statement firebird database) downloads update(via ftp) apply it(.exe files, , execute .sql) error code -901 pops out when try execute .sql files. know there incompatibility issue w7 64x , fdb 32x, but, can everything: backup , restore(gbak), db commands(all). tried fdb 64x instead, , not working. code: //components fdwaitcursor: tfdguixwaitcursor; fddriverlink: tfdphysfbdriverlink; fdconnection:tfdconnection; fdscript: tfdscript; function tthr_script.createcomponents:boolean; begin try fddriverlink := tfdphysfbdriverlink.create(fddriverlink); fdwaitcursor := tfdguixwaitcursor.create(fdwaitcursor); fdconnection := tfdconnection.create(fdconnection); fdconnection begin drivername := 'fb'; params.username := thrbanco.bduser; params.password := thrbanco.bdpass; params.database := ...
Read more

Sound is not coming out while implementing Text-to-speech in Android activity -

i using texttospeak in 1 of app. while adding speech string texttospeech object instance, doesn't produce sound. though not getting error in log still sound not coming out. want device speak value of textview gets set resultmsg.settext() method. public class resultactivity extends activity { @override protected void oncreate(bundle savedinstancestate){ ............ resultmsg.settext(resultmsg_str); texttospeech = new texttospeech(getapplicationcontext(),newtexttospeech.oninitlistener(){ @override public void oninit(int status) { system.out.println("txt speech status = "+status); system.out.println("txt speech error status = "+texttospeech.error); system.out.println("txt speech success status = "+texttospeech.success); if(status == texttospeech.success){ texttospeech.setlanguage(locale.english); ...
Read more