VBA Excel file to CSV, keeps CSV filename same as original workbook -


i trying find fast way save xlsx files csv files same file-name xlsx file (just in csv format). have recorded macro shortcut, issue whenever try new file saves same file-name recorded initial macro (i.e. see below, because have file labelled in code as: 3wdl_1 (2014-08-07)10secdatatable sit.csv). there need replace 3wdl_1 (2014-08-07)10secdatatable sit.csv make macro save same file-name actual workbook working with.

so have folder full of xlsx files , want use shortcut/macro on each xslx file convert them csv files have same name original xlsx file, , saved same folder.

sub xlstocsv() ' ' xlstocsv macro ' ' keyboard shortcut: ctrl+a '     columns("a:a").select     range("a41243").activate     selection.numberformat = "0.00"     activewindow.scrollrow = 41231     activewindow.scrollrow = 41090     activewindow.scrollrow = 39753     activewindow.scrollrow = 30184     activewindow.scrollrow = 26385     activewindow.scrollrow = 13017     activewindow.scrollrow = 10976     activewindow.scrollrow = 8162     activewindow.scrollrow = 4785     activewindow.scrollrow = 4503     activewindow.scrollrow = 774     activewindow.scrollrow = 1     range("a1").select     chdir "c:\users\paddy\desktop\new csv files whole cgm date ok!"     activeworkbook.saveas filename:= _         "c:\users\paddy\desktop\new csv files whole cgm date ok!\3wdl_1 (2014-08-07)10secdatatable sit.csv" _         , fileformat:=xlcsvmac, createbackup:=false end sub

right now, you've got file-name hard-coded in after "activeworkbook.saveas" it's saving hard-coded name.

i think you'll want use "activeworkbook.name" name of current file , concatenate "filename" variable have there (without file extension) new extension. example:

"c:\users\padd\desktop\new csv...ok!\" & left(activeworkbook.name, instr(activeworkbook.name, ".") - 1) & ".csv")

this kind of dirty way it, should serve needs. also, depending on version of excel use, think might need use "thisworkbook" instead of "activeworkbook" i'm not sure.


Comments

Post a Comment

Popular posts from this blog

jquery - How do you format the date used in the popover widget title of FullCalendar? -

Image
in fullcalendar, how format date used in popover widget title when clicking '+n more'? code: <div class="fc-popover fc-more-popover"> <div class="fc-header fc-widget-header"> <span class="fc-close fc-icon fc-icon-x"></span> <span class="fc-title">tuesday, april 7</span> ... </div> ... </div> you use daypopoverformat that. determines date format of title of popover created eventlimitclick option. must date formatting string. default value "dddd, mmmm d" english , "ll" other languages.
Read more

Bubble Sort Manually a Linked List in Java -

Image
this first question here. trying manually sort linked list of integers in java , can not figure out wrong code. suggestions? don't error, still have output unordered. tried few different ways, nothing worked. appreciate if can me that. public class node { int data; node nextnode; public node(int data) { this.data = data; this.nextnode = null; } public int getdata() { return this.data; } } // node class public class datalinkedlist implements datainterface { private node head; private int size; public datalinkedlist(){ this.head = null; this.size = 0; } public void add(int data) { node node = new node(data); if (head == null) { head = node; } else { node currentnode = head; while(currentnode.nextnode != null) { currentnode = currentnode.nextnode; } currentnode.nextnode = node; ...
Read more

asp.net mvc - SSO between MVCForum and Umbraco7 -

i need integrate sso between mvcforum (forum of company) , umbraco7 (manages cms company). however struggling shared authentication work. tried several ways suggested on other threads still not running expected. here did: 1. in mvcforum (forum.mywebsite.com) 1.1. machine key in web.xml: <machinekey validationkey="the same key umbraco7" decryptionkey="the same key umbraco7" validation="sha1" decryption="aes" /> 1.2. authenticate forms in web.xml <forms name="my-sso-auth" protection="all" path="/" timeout="43200" domain="forum.mywebsite.com" loginurl="/members/logon" enablecrossappredirects="true" /> 2. in umbraco7 (news.mywebsite.com) 2.1. machine key in web.xml: <machinekey validationkey="the same key mvcforum" decryptionkey="the same key mvcforum" validation="sha1" decryption="aes" /> 2.2. a...
Read more