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
ThisWorkbook.Sheets(i).copy
ActiveWorkbook.Sheets(1).Range("a1").Select
ActiveWorkbook.SaveAs "C:\Documents and Settings\achamanlalko\Desktop\abc docs\" & ThisWorkbook.Sheets(i).Name & ".xlsx"
ActiveWorkbook.Close
Next i
End Sub
Subscribe to:
Post Comments (Atom)
Import data from SQL
Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...
-
If you want to copy the data from pdf file to Excel. Sub method1_using_sendkey() Dim task ' open the file ' change the path of ...
-
Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...
No comments:
Post a Comment