Chuyển các sheet trong 1 file excel thành nhiều file lẻ

[nghiait]

Các bác giúp em giải pháp trường hợp này với ạ:

Em có 1 file excel gồm 20 sheet dữ liệu, em muốn chuyển 20 sheet trong file này ra thành 20 file excel riêng và nếu làm ngược lại được nữa thì càng tốt ạ

 

[Quang_Hải]

Các bác giúp em giải pháp trường hợp này với ạ:

Em có 1 file excel gồm 20 sheet dữ liệu, em muốn chuyển 20 sheet trong file này ra thành 20 file excel riêng và nếu làm ngược lại được nữa thì càng tốt ạ

Sub TachFile()
Application.DisplayAlerts = 0
Dim sh As Worksheet
For Each sh In Worksheets
   sh.Copy
   With ActiveWorkbook
      .SaveAs ThisWorkbook.path & "\" & sh.Name, 51
   End With
Next
Application.DisplayAlerts = 1
End Sub

 

[TrungChinhs]

Sub TachFile()
Application.DisplayAlerts = 0
Dim sh As Worksheet
For Each sh In Worksheets
   sh.Copy
   With ActiveWorkbook
      .SaveAs ThisWorkbook.path & "\" & sh.Name, 51
   End With
Next
Application.DisplayAlerts = 1
End Sub

51 là cái gì đó Hải, mình chạy thì lỗi dòng này, xóa đi thì OK

 

[Quang_Hải]

51 là cái gì đó Hải, mình chạy thì lỗi dòng này, xóa đi thì OK

50 là xlsb, 51 là định dạng xlsx, 52 là xlsm và 18 là xls

Nghi ngờ là anh vẫn còn quấn quýt với Excel 2003

 

[yoomi]

50 là xlsb, 51 là định dạng xlsx, 52 là xlsm và 18 là xls

Nghi ngờ là anh vẫn còn quấn quýt với Excel 2003

Cop đoạn code bỏ vào module rùi làm sao để chạy tách ra nhiều file được hả bạn ơi

 

[Quang_Hải]

Cop đoạn code bỏ vào module rùi làm sao để chạy tách ra nhiều file được hả bạn ơi

Sau khi copy code vào module thì bấm F5 thử xem coi được hay không.