Example of Looping through Worksheets, Deleting Rows & Converting to CSV
This VBA is an example of that loops through selected worksheets in a workbook, deletes the top ten rows and exports it as a CSV.
Sub Test_loop()
ActiveWorkbook.Save
Dim ws As Worksheet
Dim path As String
path = ActiveWorkbook.path & "\" & Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)
' Loop through all selected sheets.
For Each ws In ActiveWindow.SelectedSheets
IF ws.name <> "Monday" then
ws.Rows("1:10").Delete ' Delete 10 rows at top of each sheet.
ws.Copy
Range("A1").Interior.Color = 1 ' Format A1 so the top rows are included in the used range and saved
ActiveWorkbook.SaveAs Filename:=path & "_" & ws.Name & ".csv", FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close SaveChanges = False
End IF
Next ws
End SubLooking for business solutions to automate your Excel files? Please contact us through Excel Automation services page.
Our experts will be glad to help you, If this article didn't answer your questions.
We believe this content can enhance our services. Yet, it's awaiting comprehensive review. Your suggestions for improvement are invaluable. Kindly report any issue or suggestion using the "Report an issue" button below. We value your input.
About the Author: Hajir Hoseini
