Xin code VBA lưu 1 sheet thành file xls mới chỉ chứa data (1 người xem)

[nn.tien]

Chào cả nhà, em có 1 số file excel nhận từ đối tác có rất nhiều style và format lạ, mỗi lần xử lý mất nhiều thời gian


Em muốn xin đoạn code cho phép lưu 1 sheet excel thành 1 file excel mới chỉ chứa data mà không giữ bất kỳ format hay styles nào của file gốc, rất mong mọi người giúp đỡ!
Trân trọng cảm ơn!

 

[chuot0106]

Chào cả nhà, em có 1 số file excel nhận từ đối tác có rất nhiều style và format lạ, mỗi lần xử lý mất nhiều thời gian


Em muốn xin đoạn code cho phép lưu 1 sheet excel thành 1 file excel mới chỉ chứa data mà không giữ bất kỳ format hay styles nào của file gốc, rất mong mọi người giúp đỡ!
Trân trọng cảm ơn!

Bạn đưa File lên và yêu cầu của bạn cụ thể vào trong File thì các thành viên mới viết code được chứ?

 

[nn.tien]

Bạn đưa File lên và yêu cầu của bạn cụ thể vào trong File thì các thành viên mới viết code được chứ?

Tks bạn, Ý mình là ko cần biết file có format hay styles gì, mình muốn lưu 1 sheet excel thành 1 file exell mới chỉ chứa dữ liệu như kiểu file xlcsv vậy nhưng file ra phải là định dạng xls cơ

 

[doveandrose]

Tks bạn, Ý mình là ko cần biết file có format hay styles gì, mình muốn lưu 1 sheet excel thành 1 file exell mới chỉ chứa dữ liệu như kiểu file xlcsv vậy

Public Sub csvSave()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    ws.SaveAs ThisWorkbook.Path & "\" & ws.Name & ".csv", xlCSV
Next
End Sub

 

[nn.tien]

Public Sub csvSave()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    ws.SaveAs ThisWorkbook.Path

 

[nn.tien]

Thế giờ bạn không biết mở cái file CSV lên sau đó tự save as thành .xls không được ah? Chứ code mà nó thành .xls luôn sẽ dính tới format công thức (ở đây bạn chỉ muốn lấy data không thôi thì chỉ có cách là lưu thànhcsv thì nó mất hết format, công thức...)

Tks, mình biết, nhưng khi xuất ra file thì sẽ đưa vào chương trình để xử lý tiếp nên mình muốn nó thành định dạng file xls luôn thôi, tất nhiên là chỉ chứa data như vay

 

[mrbl4c]

Nếu mình chỉ muốn lưu sheet đang mở hoặc chỉ 1 hoặc 2 sheet chứ k phải lưu tất cả thì phải sửa code như thế nào? Thanks!

Public Sub csvSave()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    ws.SaveAs ThisWorkbook.Path & "\" & ws.Name & ".csv", xlCSV
Next
End Sub