I would like to open 3 excel files (with identical names) from 3 different mapped drives eg M,N and O. How can I use Excel VBA to rename these 3 files based on their original locations and save them in a folder in the C drive eg M_Filename,N_Filename and O_Filename.
View 3 Replieshow I can loop through folders to select files starting with a certain word and copy all of them to a different folder and rename them. The folder structure is given below
Company 1(parent folder)
North South East(sub folder) West(sub folder)
Jan Feb Mar.... Dec Jan Feb Mar.... Dec Jan Feb Mar.... Dec Jan Feb Mar.... Dec
In the above structure, the files are present inside each folders Jan, feb...Dec under the regions North, South East n west. note that I have to select files starting with "Sales" and copy them into a new folder(say results) and rename copied files as Sales1.xls, Sales2.xls etc. (Files are not present in the folder company1, north, south, east and east.)
I have a series of worksheets (different workbooks) that have the same exact column widths and line depths. On screen the width and depth is identical but when printed, one takes up less width and more depth and the other vice-versa. Most (over 100) are just fine but every once in a while another is found that is distorted in print preview and printing and there seems to be nothing I can do to correct the problem. One difficult solution is to take the content from the "wrong" worksheet, do a save as on a "right" worksheet and drop the content in there.
Office and Excel 2013Windows 8Saving as different versions (xls instead of xlsx) makes no difference.Same printerSame monitorsAll worksheets are set to 17 pixels for both columns and rows (looks like graph paper)After setting up print area and viewing, the light gray dashed lines that show page breaks are different! The majority ("right") sheets have four fewer columns and four more rows than do the "wrong" worksheets.
I'm having difficulty trying to get the second file appended to the bottom of the 1st imported file. I get "run-time error '13' type mismatch". There is no difference between the two files. I'm thinking there is a problem with my range statement in the second file import, but this range works fine in other macros. Here's my code so far:
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;\server1usersmydataIMPORT1.CSV", Destination _
:=Range("$A$1"))
.Name = "IMPORT1"
.FieldNames = True
.RowNumbers = False
[Code] .........
I want to rename some files that I have in a folder, the names I want to end up with are in an excel sheet.
So the below 2 files are what 2 files are call currently, the file name below is what I want to change it to.
01 - Whigwield - Saturday Night.cdg
01 - Whigwield - Saturday Night - which is a music file.
I want to rename the file to this,
SF010-1 WHIGFIELD - SATURDAY NIGHT
The next file is
02 - Take That – Sure.cdg
02 - Take That – Sure – which is a music file.
I want to rename it to:
SF010-2 TAKE THAT - SURE
Is it possible to rename pdf files in a folder based on data in active workbook?
View 9 Replies View RelatedI have several .mp3 files in a directory that I'd like to rename based on a list.
Currently I have a sheet with two columns starting at "A2" and "B2"
Column A contains the file path and old name (without extension) ie: C:RenameFromListOldName_01
Column B contains the file path and new name (without extension) ie: C:RenameFromListNewName_01
I've modified the code below (obtained here on these forums) to work with mp3 files, which renames them, but it also corrupts my files.
VB:
Sub Rename_Files_from_List()
Dim oFiles As Range, fPath As String
Set oFiles = Range("A2", Range("A65536").End(xlUp))
fPath = Range("D2").Value
[Code] .....
I have a sheet with two columns; Column "A" has a list of existing filepaths of jpeg files that I would like to rename to the value in Column "B" in the same row. Is it possible for VBA to open each picture file and rename? Or open the parent folder and rename from there?
View 4 Replies View RelatedMacro to rename files
I have following problem, discribed also in the link above.
I need a vba code to
- choose a folder instead of a file
- find all the files in the chosen folder with name that starts with "sz" and end with "_d"
- rename those files by replacing the first 5 numbers that follow sz with 5 different numbers that the user can choose e.g. through a user form.
I imagine the user to open the excel file, click on a form thats linked to a macro. The macro will call a userform and ask the user to choose the folder and type in a textbox the 5 new numbers.
I need the code that will be pasted behind the "OK" button in the userform.
Is this possible with vba?
Here a code i found in the link mentioned above, that i have applied and works - but needs to be modified to meet my needs:
Sub GetImportFileName()
Dim Filt As String
Dim FilterIndex As Integer
Dim Title As String
Dim FileName As Variant
Dim newname As String
[Code].....
In a folder I have several text files (each text file is a customer statement)
I get the files from the computer dept named randomly, I need to rename each
File to its customer ID number, each ID consists of 15 characters (including the dash characters) and is found on the 3rd row of the file (3rd row , skip one character And count 15 characters ex : 0010-902514-422)
I found a code that renames the text files incrementally (1,2,3…..). I need to modify the code so that instead of renaming the files that way I rename them by their ID number (get the ID of each file while looping then rename It by that ID)
One more thing, can I get the ID then skip 44 characters and attach the following 14 characters to the ID (ex : 0010-902514-422- Lebanese Pound). ttached is a folder containing an excel file with the code and 2 statements
Sub RenFile()
Dim arrFiles As Variant
Dim intCounter As Integer
Dim datFile As Date
Dim strFile As String, strPath As String
strPath = ActiveWorkbook.Path
arrFiles = FileArray(strPath, "*.txt")
For intCounter = 1 To UBound(arrFiles)
strFile = arrFiles(intCounter)
Name strPath & strFile As strPath & intCounter & ".txt"
Next intCounter
End Sub
Private Function FileArray(strPath As String, strPattern As String)
Dim arrDatabase()
Dim intCounter As Integer.............................
I have excel files in a folder, I need a macro to loop through all files, rename them and save them in another folder. the file's name is available in a cell in each file, I am able to get the file name as text (I had to dig a little to get the text as it was between ""). Well I am stuck right now because the macro is doing what it's supposed to do for one excel file only and does not continue with the rest of the available files for a reason.
VB:
Sub RenameAllFiles()
Dim Bk As Variant
Dim n As Integer
Dim NewName As String
[Code] .....
I'm using 2007 Excel and I have a list of 200 JPG files on column A which mirror actual file names of files I have located in C:photos.
My objective is to use Excel 2007 to batch rename all the files located in C:photos from the names listed in column "A" to the names listed in column "B" that I have created.
a VBA script that will accomplish this task?
I am trying to rename a lot of files within 1 folder. The Spreadsheet Column A contains all the old file names within a folder and Column B has the new file name. (1)My code is below but I continue getting an error that the file isn't found. (2) I would like to start with row 2 because row 1 will contain the folder path as a result of another macro.
[Code].....
I have 400ish departmental budget files in a folder that I need to upload to a Sharepoint doc library. The files in the folder will have to exactly match the files we already have set up in sharepoint in order to upload them to the sharepoint site. As it stands now there is only one consistency between the sharepoint files and the budget files in the folder, which is the department number (which every file in both begins with).
I'm thinking some sort of macro will let me insert a sheet into each of the files in the budget folder, which would have a formula that pulls the department number from a certain sheet in the file, and produce the file name I want into a certain cell. Then I would like a macro that goes into each file and renames it based on that cell. I'd like to know if this is possible and if there may be a better way to do it.
I would like to copy every file named "Current Day.csv" from every subfolder found in the folder c: est
Rename the file as the value in A1 (3 digit code) and B1 (date) and save the file into v: est (and the folder name the file orginally came from)
Is that possible? (looking at about 30 filesfolders so if need be I can define the folder names)
I regularly receive many files that require renaming. Column A contains the current name and column B contains the desired name. Could anyone tell me how to use these lists to rename the files?
View 4 Replies View RelatedI have used macro to ftped a couple of files to my desktop and save them in a folder but i have problems performing the following.
1) Count the number of files in this directory "C:Summary_Reports_from_VBA". Note that the number of files is not fixed every time.
2) Rename each files to .txt files. (intially files do not have any extension and we do not know the name of the file until it has been ftped over but all files will end with a term "sorts" eg renaming of "xxxsorts" to "xxxsorts.txt")
3) Save each renamed files in an Array such that i can "opentext" each file in an excel worksheet. So if there's multiple files, there will be multiple worksheets.
I have a macro attached with attached file; it will list the files then will re-name the files based on other cell
example;
Cell A2 = New.mp4
Cell B2 = ggffrr.mp4
so the file New.mp4 will be renamed to ggffrr.mp4.
it is working fine but the location will be always desktop or documents location
i need from the macro to rename the files and to keep them in the same location.
After working on this script for a while, I have come up with this.
Code:
Sub CopyAndRenameImages()
Dim fs As Object
Dim oldPath As String, newPath As String
Dim LastRow As Long
Const PW As String = "Password"
[Code] ..........
Handler:
MsgBox oldPath & " cannot be found."
Resume Next
End
End Sub
But for some reason it is always pulling an error on the last item in the list, even if the file is there.
Can a macro rename Excel files based on a cell's contents? The problem maybe that I download these files en masse from a website and they all have 54-character long randomly generated filenames which I can rename by selecting all and then use the rename function to get a series of filenames like a, a(2), a(3), ... but I would rather have the files renamed based on the text that exists in cell B1 which is the title of the report. I also read somewhere that this kind of macro only works if the tabs have names like "Sheet 1"
View 1 Replies View RelatedFor the last year I have been downloading cash register X1 and Z1 files onto an SD card. Each night's files (X1 & Z1) are stored in a new folder with the naming convention "RP + [DATE]", (EX: RP120910, [YYMMDD]). I have 265 folders! I need to go through each folder, select the Z1 file (I don't care about the X1, X2 or Z2 files) and rename each with the following naming convention: "Z1 + folder_name + .xls". For Example: Folder RP120910 contains the Z1 file named "Z1_T1729.ECR". After renaming, the file should be "Z1RP120910.xls". As the VBA code loops through each subfolder, selecting and renaming the Z1 files, I would like the new files to be placed into a new folder named "Z1Files". Note: All subfolders are currently in a directory named "RegisterFiles". I am using Excel 2010.
View 3 Replies View RelatedIn the attached Excel file, the data has been place from d2 to dyo2.
For example, value "2607" is placed from cells va2 to wk2.
I need to merge cells from va2 to wk2.
I can't use horizontal alignment - center across selection because my boss wants it to merge only.
I have a list of data which doesnot match with my database and am hence failing to understand what to do.
2 sheets attached.
Was trying to find the employee ids of the advisors from the database.
I am retrieving data from 2 different sources in a database.
i am having problem with identical data being classed as different, see below.
******** ******************** ************************************************************************>Microsoft Excel - Book1___Running: 11.0 : OS = Windows XP (F)ile (E)dit (V)iew (I)nsert (O)ptions (T)ools (D)ata (W)indow (H)elp (A)boutA3=
ABCD11.9.2.1**Access*Security***21.9.2.1**Access*Security***3FALSE***Sheet1*
[HtmlMaker 2.42] To see the formula in the cells just click on the cells hyperlink or click the Name box
PLEASE DO NOT QUOTE THIS TABLE IMAGE ON SAME PAGE! OTHEWISE, ERROR OF JavaScript OCCUR.
These two cell are identical (have checked theer are no random spaces) however the formula is saying that they are not equal. They are also in identical formats.
I need a formula to sum column C if data in column A and Column B are found anywhere else in the list. For Example
A............B.......C
0103019..C.......5
0103019..1.......2
0103019..14.....1
0103019..C......4
Column D would show
9
2
1
9
=If(ISNA(VLOOKUP(B2, 'TableB'!$Y$2:$Y$100,1,FALSE)) , "",Column A in tableB)
I want to search tru all column B in table A. If i find an identical value in table B i want the field in table A to show the corresponding field in Column A in table B.
Also if there is 2 occurrences of column B in table B, i want the field in table A to show both values.
I have three large txt files. All three are the same number of columns but are of a different number of rows. (Each month the number of columns will increase but the 3 source files will still contain an equal number).
Therefore I need to open the first text file, select all data and paste it into my master file.
I then want to open the second txt file and paste all the data at the first empty row of my master file.
I will then open the third txt file and paste all the data at the first empty row of the master file.
Finally I will close the txt files.
I will then have several other amendments to make to the master data file.
So to my problem....
Opening the txt files is fine.
However I want to select all the data in the first txt file but excel gives me an error message. (On the line highlighted in my code). I remember there being a function in VBA that selects all data around a cell, can anyone remember how to do this?
My code so far is:
Workbooks.OpenText Filename:= _
"C:CUSTOMERPass 1.txt" _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
False, Comma:=False, Space:=False, Other:=False, FieldInfo:= Array(Array _
(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8 _
, 1), Array(9, 1))
Cells.Select
Selection.Copy
ActiveWindow.WindowState = xlMinimized
Sheets("Data").Select
ActiveSheet.Paste
i have got two tables each on a different sheet. The column headings are not the same but in both tables column A contain names. Users can enter names in column A in the first table, and these should be copied to the second table. However, users can insert rows in the first table which should automatically be copied to the second table to ensure the tables haven an identical number of rows (names)
View 2 Replies View RelatedThis "If" wont work, does anyone have an idea why? I have try hard coded, with "" and without, i tried to assgind the field value to another double patameter and still nothing. This is my last try where i converted it to double type
View 7 Replies View RelatedI need to extract the text located before last specified character () From C:PicturesPersonalChristmasDSC_00001.jpg ----> C:PicturesPersonalChristmas
I found a nice formula in another thread but that one returns the text located after the last "". The formula is =RIGHT(A1,LEN(A1)-FIND("@",SUBSTITUTE(A1,"","@",LEN(A1)-LEN(SUBSTITUTE(A1,"","")))))