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

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

Python Tkinter keyboard using bind -

i have problem using bind option can click button in keyboard, , call function once key pressed. tried taking other codes have similar purpose , saw i'm doing pretty same, though still have problem must've missed. thankful if me this. here's code: # -*- coding: utf-8 -*- #imports tkinter import * pil import imagetk, image import time import tkmessagebox #===========================================================================================================================================# #tkinter class class app(frame): def __init__(self, master=none): frame.__init__(self, master) self.pack() #===========================================================================================================================================# #game pieces classes class board: def __init__(self, rows = 7, columns = 6, picture_height = none, picture_width = none): self.rows = rows self.columns = columns self.picture
Read more

ubuntu - Selenium Node Not Connecting to Hub, Not Opening Port -

i'm trying set demo selenium grid. have digital ocean ubuntu 14.02 droplet. (i have 2 , tried set using 2 different machines got nowhere.) i'm trying run hub , node both locally. here input both hub, node, , nmap results. https://gist.github.com/mekhami/d5bbecca5ff0de9d2dc9 so, node starting tcp connection reset , port it's supposed operate on closed. i have had no luck in number of different options , configurations work. but... of course, worked randomly once. don't know why, don't know did, know 1 brief moment, node connected , saw on grid console. tried run test , went down again , i've never seen come up. please let me know more information can provide. update: randomly came online again. don't know happened, might related timeout or time_wait or going on. this because vm/server not have enough entropy available. to resolve problem, install haveged (or other similar things). the instructions of how install haveged on ubu
Read more