Friday, October 21, 2011

Save each worksheet of a workbook in a new workbook

If you want to save each worksheet of a workbook in a separate (new)workbook.

Here is the code-

Sub copy_selected_sheets_to_new_workbook_and_save()
For i = 1 To Sheets.Count
ActiveWorkbook.SaveAs "C:\Documents and Settings\achamanlalko\Desktop\abc docs\" & ThisWorkbook.Sheets(i).Name & ".xlsx"
Next i
End Sub

No comments:

Post a Comment

Import data from SQL

Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...