Save 1 sheet trong 1 workbook đang mở thành 1 workbook mới chỉ chứa sheet cần save

[rosy84]

Các bác có cách nào để Save 1 sheet trong 1 workbook đang mở thành 1 workbook mới chỉ chứa sheet cần save.

thanks!

 

[nam2806]

Đặt trỏ vào tên sheet-->bấm phải-->chọn move and copy-->chọn new book tại to book và tự làm tiếp bạn nhé!

 

[rosy84]

Làm như thế thì em lam OK rồi. Nhưng em muốn dùng code macro để save nó đến 1 nơi mà mình mong muốn cơ.

Hoặc ít nhất thì cũng phải save vào đường dẫn mặc định sẵn.

Thanks!

 

[nam2806]

Bạn sử dụng record macro đi. Dễ làm lắm.

 

[Hai Lúa Miền Tây]

Các bác có cách nào để Save 1 sheet trong 1 workbook đang mở thành 1 workbook mới chỉ chứa sheet cần save.

thanks!

Gửi bạn code lưu tất cả các sheet có chứa trong workbook thành mỗi file mới:

Sub CopySheet()
Dim wbDest As Workbook
Dim wbSource As Workbook
Dim sht As Object
Dim strSavePath As String
On Error Resume Next

Application.ScreenUpdating = False

strSavePath =[COLOR=Blue][B] "C:\Users\Le Phat Dom\Desktop\Copy Sheet\"[/B][/COLOR] [B][COLOR=Green]'Doi duong dan luu file cua ban[/COLOR][/B]
Set wbSource = ActiveWorkbook

    For Each sht In wbSource.Sheets
        sht.Copy
        Set wbDest = ActiveWorkbook
        wbDest.SaveAs strSavePath & sht.Name
        wbDest.Close
    Next

Application.ScreenUpdating = True


End Sub

 

[ndu96081631]

Làm như thế thì em lam OK rồi. Nhưng em muốn dùng code macro để save nó đến 1 nơi mà mình mong muốn cơ.

Hoặc ít nhất thì cũng phải save vào đường dẫn mặc định sẵn.

Thanks!

Thử code này xem:

Sub SaveActiveSh()
  On Error GoTo ExitSub
  ActiveSheet.Copy
  With Application.FileDialog(2)
    .Show: .AllowMultiSelect = False
    ActiveWorkbook.SaveAs .SelectedItems(1)
  End With
ExitSub:
  ActiveWorkbook.Close (False)
End Sub