Chào cả nhà,
em có 1 file macro tìm được trên 4rum, e quên topic rồi ạ
macro giúp tách 1 file ra thành nhiều file, nhưng hiện tại em đang gặp 2 vấn đề
1. File được tách ra đang lưu ở định dạng xls, nhưng vẫn chứa macro trong đó, mỗi lần mở file lại bị báo sai định dạng file. nếu ignore thông báo thì file lại bị trắng data
2. Đường dẫn lưu file xuất ra e ko sửa được, mặc định thư mục lưu là C/Documents
Nhờ mọi người update giúp em ạ, e đính kèm file ví dụ, các bác check giúp
em có 1 file macro tìm được trên 4rum, e quên topic rồi ạ
macro giúp tách 1 file ra thành nhiều file, nhưng hiện tại em đang gặp 2 vấn đề
1. File được tách ra đang lưu ở định dạng xls, nhưng vẫn chứa macro trong đó, mỗi lần mở file lại bị báo sai định dạng file. nếu ignore thông báo thì file lại bị trắng data
2. Đường dẫn lưu file xuất ra e ko sửa được, mặc định thư mục lưu là C/Documents
Nhờ mọi người update giúp em ạ, e đính kèm file ví dụ, các bác check giúp
Mã:
Sub TachFile()
Dim Sh As Worksheet, Cll As Range
Const Pth As String = "H:\"
Application.ScreenUpdating = False
Set Sh = Sheets(1)
With Sh
If .AutoFilterMode Then .AutoFilterMode = False
End With
With CreateObject("scripting.dictionary")
For Each Cll In Sh.Range("A3", Sh.Range("A" & Rows.Count).End(3))
If Not .exists(Cll.Value) Then
.Add Cll.Value, Nothing
Sh.Range("A2").AutoFilter 1, Cll.Value
Workbooks.Add (1)
With ActiveWorkbook
Sh.AutoFilter.Range.Copy .Sheets(1).Range("A1")
.SaveAs Cll.Value & ".xls", 52
.Close False
End With
End If
Next
End With
Sh.AutoFilterMode = False
End Sub
