Lưu vùng dữ liệu ra file csv (1 người xem)

[quangdiepctmbk]

Bạn nào giúp mình viết code như sau : lưu một vùng dữ liệu file excel A thành một file mới định dạng csv.

 

[quanluu]

Bạn nào giúp mình viết code như sau : lưu một vùng dữ liệu file excel A thành một file mới định dạng csv.

1 vùng dữ liệu thì nó như thế nào thì mới code đc chứ? Bạn nghiên cứu về save as file nhé.

 

[qdtoday]

csv đó giờ mình chưa xài, dùng để làm j cậu?

 

[quangdiepctmbk]

1 vùng dữ liệu thì nó như thế nào thì mới code đc chứ? Bạn nghiên cứu về save as file nhé.

Ví dụ mình muốn lưu vùng dữ liệu từ A2:E100 của file A thành một file csv mới.

 

[haonlh]

Tập tin CSV (Comma Separated Values), các giá trị của mỗi ô phân cách bằng dấu phẩy, mỗi hàng là 1 dòng...

Nó không chứa định dạng. Nếu có nhiều hàng trống ở phía đầu thì nó bỏ qua...

Thường dùng lưu cho phần mềm khác đọc.

Trong Excel cũng có lưu file dạng CSV. Dùng File \ Save As (E2003)

 

[quangdiepctmbk]

Bạn nào giúp mình với!

 

[qdtoday]

Bạn nào giúp mình với!

~~> https://www.extendoffice.com/documents/excel/626-excel-save-selection.html#kutools
Free 60 days trial, full fearures, no limit.
60 ngày đủ để pác giải quyết xong vấn đề của mình rồi.

 

[sealand]

Bạn nào giúp mình với!

Thì bạn record Macro xem sao?

Trình tự:
-Bật Record Macro
-Chọn và chép vùng dữ liệu cần ghi.
-Mở 1 file Excel mới
-Paste dữ liệu vào Sheet1
-Chọn save as (Thư mục lưu, tên file,chọn dạng file *.CSV) đóng file lưu lại.
-Dừng Record.

Từ code thu được ta chỉnh sửa 1 chút, ví dụ như sau:

Sub SaveCSV()
Dim Tm
  Tm = Worksheets("DATA").Range("A2:E100")
  
   With Workbooks.Add
      .Sheets(1).Range("A2:E100") = Tm
       Application.CutCopyMode = False
      .SaveAs Filename:="C:\Users\Admin\Desktop\Sealand.csv", _
        FileFormat:=xlCSV, CreateBackup:=False
      .Save
      .Close
   End With
End Sub

Giờ bạn mở file bằng NotePat xem có đúng định dạng không?

 

[haonlh]

Có lẽ làm như sau
+ Gõ Ctrl - F11 để tạo sheet mới.
+ Về sheet chứa dữ liệu, chọn vùng có dữ liệu cần chuyển sang CSV, chép nó sang sheet mới.
+ Chọn Save As (hiện cửa sổ), chọn CVS () trong mục Save as type, OK.

Zậy thôi.