[Giúp đỡ] Sửa chữa Code Export, Import Excel từ file csv (1 người xem)

[quyenpv]

Do nhiều mục đích khác nhau, lang thang Google tìm kiếm được Code Export và Import từ file csv. Code chạy khá tốt đáp ứng nhu cầu của em
Em nhờ các anh chị trên diễn đàn sửa giúp em đoạn Code khi Import file csv có thể kẻ khung và Autofit cột giúp em với ạ
Chân thành cám ơn anh chị!

 

[Kiều Mạnh]

Do nhiều mục đích khác nhau, lang thang Google tìm kiếm được Code Export và Import từ file csv. Code chạy khá tốt đáp ứng nhu cầu của em
Em nhờ các anh chị trên diễn đàn sửa giúp em đoạn Code khi Import file csv có thể kẻ khung và Autofit cột giúp em với ạ
Chân thành cám ơn anh chị!

Bạn thêm Code Sau trên dòng End Sub của Sub ImportCSV xem thế nào nha

Public Sub KeKhung()
With ActiveSheet
    .UsedRange.Borders.LineStyle = xlNone
    .Range("A1").CurrentRegion.Borders.Value = 1
    .Columns("A:F").EntireColumn.AutoFit
End With
End Sub

 

[quyenpv]

Bạn thêm Code Sau trên dòng End Sub của Sub ImportCSV xem thế nào nha

Public Sub KeKhung()
With ActiveSheet
    .UsedRange.Borders.LineStyle = xlNone
    .Range("A1").CurrentRegion.Borders.Value = 1
    .Columns("A:F").EntireColumn.AutoFit
End With
End Sub

Code của anh thỏa mãn nhu cầu của em rồi. Tuy nhiên file trên khi Export và Import dữ liệu không ra định dạng utf-8 (Unicode) dẫn đến khi export và import bị lỗi. Mong các anh chỉnh sửa giúp làm sao chay code nó đúng kiểu Unicode với ạ
Thanks các a chị