macro to open a series of excel files

[p4nny]

Hi,

I would like a macro:


- to open an excel file in a specified location
- delete the first 6 rows
- save
- and close

next workbook (same as above) until completed


appreciate the guidance

anthony

 

[Runsk1]

Hi!
You can use this. I tested it out and it worked nicely.

Sub DeleteRowsMultipleWorkBooks()


Dim directory As String, filename As String
'Directory, where all your needed workbooks are
directory = "C:\Users\Username\Documents\My_examplefolder\"

filename = Dir(directory & "*.xl??")
'Do-loop trough all files stored in directory
Do While filename <> ""
Workbooks.Open (directory & filename)
With Workbooks(filename)
Sheets(1).Rows("1:6").Delete
.Save
.Close
End With
filename = Dir()
Loop
End Sub

Remember, this will delete first 6 rows from all your workbooks stored in that folder.
Create blank workbook for this one and don't store it in the same folder, just in case. I'm not sure it'll work if its in the same folder.


Hope this works for you,
Matias

 

[p4nny]

very kind.. many thanks