[Nhờ hỗ trợ] sửa hàm vba copy file

Xin chào anh chị,

Trong file đính kèm em gửi phát sinh một lỗi là khi copy ra file excel là
* không giữ nguyên form file gốc
*biến mất hết các cột vẽ
*chỉ còn chữ

Anh chị giúp em viết lại code với ạ.
Nếu được anh chị giúp em xem e bị sai ở chỗ nào với ạ

Em xin cảm ơn,

Lỗi ở chổ Dán đặt biệt, chọn dán value nên không có đường kẻ
Sửa nhanh như thế này:

[Visual Basic] 纯文本查看 复制代码

Sub TaoFileExcel()
Dim Sh As Worksheet
Dim Rg As Range
Dim Rw As Long, Cln As Long
Dim FPath As String

Application.ScreenUpdating = False
FPath = ThisWorkbook.Path & "\"
For Each Sh In ThisWorkbook.Worksheets
    If Sh.Name <> ActiveSheet.Name Then
        Rw = Sh.Cells.SpecialCells(xlCellTypeLastCell).Row
        Cln = Sh.Cells.SpecialCells(xlCellTypeLastCell).Column
        Set Rg = Sh.Range("A1").Resize(Rw, Cln)
        Rg.Copy
        Workbooks.Add
        Range("A1").Select
        ActiveSheet.Paste
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs FPath & Sh.Name & ".xlsx", xlOpenXMLWorkbook
        ActiveWindow.Close
    End If
Next
Application.ScreenUpdating = True
End Sub

Em cám ơn anh đã hỗ trợ
em đã copy code trên dán thay thế nhưng kết quả ra vẫn không được ạ.

bitun1991 gửi lúc 14/1/2021 12:28
Em cám ơn anh đã hỗ trợ
em đã copy code trên dán thay thế nhưng kết quả ra vẫn không ...

Em chạy Sub TaoFileExcel() là đúng.
Còn em nhắp vô buton "ẤNTẠO FILE" sẽ không đúng, Vì nó chạy Sub CommandButton1_Click. Hai cái tương tự nhưng câu lệnh khác nhau
Tóm lại căn cơ VBA còn kém, khó giúp (nếu không làm sẵn luôn)