Xuất dữ liệu tùy chọn ra file exel

[pingping2288]

Xin chào thầy Ba Tê và mọi người ạ! Em có 1 file như này, bao gồm rất nhiều các sheet, giờ em muốn xuất riêng ra từng file excel một, 1 file có thể có 1 hoặc nhiều sheet do mình chọn, nội dung các sheet vẫn phải giữ nguyên, mục đích của em là để gửi riêng cho từng bộ phận phụ trách, chứ nếu làm theo kiểu copy hoặc tạo file copy thì rất lâu. Em tìm trên diễn đàn nhưng chưa thấy có phần này. Em xin cám ơn ạ!

 

[snow25]

Xin chào thầy Ba Tê và mọi người ạ! Em có 1 file như này, bao gồm rất nhiều các sheet, giờ em muốn xuất riêng ra từng file excel một, 1 file có thể có 1 hoặc nhiều sheet do mình chọn, nội dung các sheet vẫn phải giữ nguyên, mục đích của em là để gửi riêng cho từng bộ phận phụ trách, chứ nếu làm theo kiểu copy hoặc tạo file copy thì rất lâu. Em tìm trên diễn đàn nhưng chưa thấy có phần này. Em xin cám ơn ạ!

Cho cái ví dụ khi chạy code nào

 

[pingping2288]

Cho cái ví dụ khi chạy code nào

Em xin gửi file ạ! Từ rất nhiều sheet ban đầu sẽ được tách riêng các sheet theo ý của mình, em tin rằng code này sẽ được ứng dụng rất nhiều ạ!

 

[pingping2288]

Cho cái ví dụ khi chạy code nào

Em sưu tầm được 1 file như này, nhưng khi chạy code nó lại tách ra từng sheet một cho mình chứ không có tùy chọn, giả sử mình cần tách 2 sheet hoặc nhiều hơn trong file tổng thì ...chịu ạ!

 

[LamNA]

Em sưu tầm được 1 file như này, nhưng khi chạy code nó lại tách ra từng sheet một cho mình chứ không có tùy chọn, giả sử mình cần tách 2 sheet hoặc nhiều hơn trong file tổng thì ...chịu ạ!

Bạn thử cách này
1. ấn giữ ctrl và chọn những sheet cần xuất
2. bấm tổ hợp phím ctrl + shift + s
3. đổi tên file cần lưu

Sub CopySheet()
Dim sh As Worksheet, NewFileName
With Application
        .DisplayAlerts = False
 With ActiveWindow.SelectedSheets
   .Copy
   With ActiveWorkbook
      For Each sh In .Worksheets
         sh.UsedRange.Value = sh.UsedRange.Value
      Next
      For Each Name In .Names
         Name.Visible = True
         Name.Delete
      Next
      NewFileName = Application.GetSaveAsFilename
      .SaveAs NewFileName & "xlsx"
      .Close
   End With
 End With
        .DisplayAlerts = True
End With
End Sub

 

[pingping2288]

Bạn thử cách này
1. ấn giữ ctrl và chọn những sheet cần xuất
2. bấm tổ hợp phím ctrl + shift + s
3. đổi tên file cần lưu

Sub CopySheet()
Dim sh As Worksheet, NewFileName
With Application
        .DisplayAlerts = False
With ActiveWindow.SelectedSheets
   .Copy
   With ActiveWorkbook
      For Each sh In .Worksheets
         sh.UsedRange.Value = sh.UsedRange.Value
      Next
      For Each Name In .Names
         Name.Visible = True
         Name.Delete
      Next
      NewFileName = Application.GetSaveAsFilename
      .SaveAs NewFileName & "Ten file can luu" & "xlsx"
      .Close
   End With
End With
        .DisplayAlerts = True
End With
End Sub

Em cám ơn anh ạ! Nhưng mình không thể dùng nút bấm, sau đó nó hiện lên danh sách sheet cần xuất được ạ?