Copy sheet theo điều kiện sang một file mới? (1 người xem)

[Hoàng Nhật Phương]

Xin chào tất cả các bạn:

Như tiêu đề Oanh Thơ đã nêu kèm với các nội cụ thể được nêu rõ hơn ở trong file đính kèm.
Oanh Thơ rất mong nhận được sự trợ giúp của các bạn.

Xin trân thành cảm ơn,
Oanh Thơ

 

[nghiaphuc]

Xin chào tất cả các bạn:

Như tiêu đề Oanh Thơ đã nêu kèm với các nội cụ thể được nêu rõ hơn ở trong file đính kèm.
Oanh Thơ rất mong nhận được sự trợ giúp của các bạn.

Xin trân thành cảm ơn,
Oanh Thơ

Code thế này:
[GPECODE=vb]Sub ExportFile()
Dim sPath As String
With Application
.ScreenUpdating = False: .DisplayAlerts = False
End With
sPath = ThisWorkbook.Path
Sheets(Array("1", "4", "6")).Copy
With ActiveWorkbook
.SaveAs sPath & "\RoomA.xlsx"
.Close
End With
Sheets(Array("2", "3", "5", "8")).Copy
With ActiveWorkbook
.SaveAs sPath & "\RoomB.xlsx"
.Close
End With
Sheets(Array("7", "9", "10")).Copy
With ActiveWorkbook
.SaveAs sPath & "\RoomC.xlsx"
.Close
End With
With Application
.ScreenUpdating = True: .DisplayAlerts = True
End With
End Sub[/GPECODE]

 

[Hoàng Nhật Phương]

Hi, Cảm ơn nghiaphuc nhiều nhé!
Oanh Thơ muốn 3 code (mỗi code xuất ra 1 file) nhưng bạn đã gộp chung vào 1 code cũng được ạ, Oanh Thơ cũng đã mò mẫm sửa được theo ý mình rồi.

nghiaphuc và các bạn cho Oanh Thơ hỏi thêm 1 trường hợp nữa:
có thể dùng code để xóa đi tất cả các liên kết (liên kết ở đây là các công thức hoặc name liên kết với file bên ngoài đó ạ: data\edit links\break link) cho các file sau khi đã xuất ra không ạ?
Hiện Oanh Thơ đang gặp phải trường hợp các file RoomA,RoomB,RoomC xuất ra và có những liên kêt với file nguồn TTal





Rất mong lại nhận được thêm sự hỗ trợ của nghiaphuc và các bạn trong chủ đề này ạ.

Xin cảm ơn.
Oanh Thơ

 

[Hoàng Nhật Phương]

Xin chào nghiaphuc và tất cả các bạn,

Oanh Thơ xin phép được đính kèm thêm file minh họa sau khi chạy code ExportFile có chứa công thức liên kết ngoài file ( cụ thể là với file nguồn)
để các bạn xem giúp ạ.

Xin cảm ơn

 

[befaint]

Xin chào nghiaphuc và tất cả các bạn,

Oanh Thơ xin phép được đính kèm thêm file minh họa sau khi chạy code ExportFile có chứa công thức liên kết ngoài file ( cụ thể là với file nguồn)
để các bạn xem giúp ạ.

Xin cảm ơn

Do việc save as workbook nên có chỗ màu đỏ.
Bạn thử dùng cách khác xem: Copy file nguồn thành 3 file >> Mở từng file đó rồi xóa đi các sheet không cần.

 

[nghiaphuc]

Do việc save as workbook nên có chỗ màu đỏ.
Bạn thử dùng cách khác xem: Copy file nguồn thành 3 file >> Mở từng file đó rồi xóa đi các sheet không cần.

Với cách liên kết bằng công thưc kiểu như trong file ở bài #4 thì cách này cũng không giải quyết được vấn đề, vì khi xóa sheet TTal đi thì các công thức có tham chiếu đến ô của sheet này sẽ phát sinh lỗi #REF!

 

[befaint]

Với cách liên kết bằng công thưc kiểu như trong file ở bài #4 thì cách này cũng không giải quyết được vấn đề, vì khi xóa sheet TTal đi thì các công thức có tham chiếu đến ô của sheet này sẽ phát sinh lỗi #REF!

Vâng anh.
Vậy còn xem bài #3 có cần lấy giá trị trước khi xóa liên kết liên quan không.

 

[Hoàng Nhật Phương]

Hihi,Oanh Thơ xin cảm ơn 2 bạn nghiaphuc và befaint nhiều ạ !
Vậy là không thể break link bằng code được rồi.

 

[befaint]

Hihi,Oanh Thơ xin cảm ơn 2 bạn nghiaphuc và befaint nhiều ạ !
Vậy là không thể break link bằng code được rồi.

Bạn thử file đính kèm...

p/s:Thấy tương tự topic này:
https://www.giaiphapexcel.com/forum/showthread.php?121388-Cách-lưu-1-WorkBook-thành-1-WorkBook-mới

 

[Hoàng Nhật Phương]

Bạn thử file đính kèm...

p/s:Thấy tương tự topic này:
https://www.giaiphapexcel.com/forum/showthread.php?121388-Cách-lưu-1-WorkBook-thành-1-WorkBook-mới

Wow! rât profession !!!
Oanh Thơ đã thử cảm giác rất ưng và hứng thú, xin cảm ơn befaint nhiều ạ.
nếu không phiền và có thể rất mong befaint cho giúp đỡ thêm cho Oanh Thơ 2 vấn đề sau với ạ:

1. Trong sheet"TTal" tại ô A1 nếu Oanh Thơ nhập là:

A thì trong cái hộp hộp Select sheets: sẽ chỉ có thể cho phép tích được vào mục: 1,4,6
B thì trong cái hộp hộp Select sheets: sẽ chỉ có thể cho phép tích được vào mục: 2,3,5,8
C thì trong cái hộp hộp Select sheets: sẽ chỉ có thể cho phép tích được vào mục: 7,9,10

2. Các tệp tin xuất ra chỉ xóa công thức liên kết với file ngoài break link) còn các công thức khác vẫn giữ nguyên.

Oanh Thơ rất mong tiếp tục nhận được thêm sự trợ giúp của bạn và tất cả mọi người.

Xin cảm ơn rất nhiều.