Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Convert .csv files
How can I use macro rename the sheet in the .csv files in a folder to
"Sheet1" and convert them to .xls files? |
#2
|
|||
|
|||
Hi nc,
just open the file and use save as 'file name' and in save type 'microsoft excel workbook' anirudh "nc" wrote: How can I use macro rename the sheet in the .csv files in a folder to "Sheet1" and convert them to .xls files? |
#3
|
|||
|
|||
Anirudh
I am not being funny, I meant macro???!!!. Because I have about 70 odd files. "Anirudh" wrote: Hi nc, just open the file and use save as 'file name' and in save type 'microsoft excel workbook' anirudh "nc" wrote: How can I use macro rename the sheet in the .csv files in a folder to "Sheet1" and convert them to .xls files? |
#4
|
|||
|
|||
Since you posted in .misc, you're requirement of a macro solution for multiple
files wasn't immediately evident--well, not to me or anirudh. But you could try this one: Option Explicit Sub testme() Dim myFileNames As Variant Dim fCtr As Long Dim wks As Worksheet Dim newFileName As String myFileNames = Application.GetOpenFilename _ (filefilter:="Comma Separated Values, *.csv", MultiSelect:=True) If IsArray(myFileNames) = False Then 'user hit cancel Exit Sub End If For fCtr = LBound(myFileNames) To UBound(myFileNames) Set wks = Workbooks.Open(Filename:=myFileNames(fCtr)).Worksh eets(1) wks.Name = "Sheet1" newFileName _ = Left(myFileNames(fCtr), Len(myFileNames(fCtr)) - 4) & ".xls" With wks.Parent Application.DisplayAlerts = False .SaveAs Filename:=newFileName, FileFormat:=xlWorkbookNormal Application.DisplayAlerts = True .Close savechanges:=False End With Next fCtr End Sub Just click & ctrl-click on as many as you want to convert (or click the top one and shift-click the bottom one to select all in between). nc wrote: Anirudh I am not being funny, I meant macro???!!!. Because I have about 70 odd files. "Anirudh" wrote: Hi nc, just open the file and use save as 'file name' and in save type 'microsoft excel workbook' anirudh "nc" wrote: How can I use macro rename the sheet in the .csv files in a folder to "Sheet1" and convert them to .xls files? -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Convert xls files | Excel Discussion (Misc queries) | |||
Convert multiple XLS files to TXT | Excel Discussion (Misc queries) | |||
password protect .csv files | Excel Discussion (Misc queries) | |||
Errors when opening .csv files | Excel Discussion (Misc queries) | |||
Must convert 500+ xls files to txt (tsv) | Excel Discussion (Misc queries) |