Bài viết này minh họa 3 cách đơn giản để chuyển đổi tệp excel để lưu dưới dạng CSV với dấu ngoặc kép. Lưu tệp CSV với dấu ngoặc kép là cần thiết để tránh bất kỳ sự trình bày sai dữ liệu nào. Ví dụ:hãy xem xét hàng dữ liệu USD, 25.000, Model1 . Ở đây, dấu phân cách bằng dấu phẩy hơi khó hiểu. Thay vào đó, USD, “25,000”, Model1 phù hợp hơn. Hình ảnh sau đây nêu bật mục đích của bài báo này. Hãy xem nhanh nó để tìm hiểu cách thực hiện điều đó.
Bạn có thể tải xuống sách bài tập thực hành từ nút tải xuống bên dưới.
3 cách nhanh nhất để lưu Excel dưới dạng CSV với dấu ngoặc kép
1. Sử dụng Định dạng Tùy chỉnh để Lưu Excel dưới dạng CSV với Dấu ngoặc kép
Hãy tưởng tượng bạn có tập dữ liệu sau. Bạn muốn lưu nó dưới dạng tệp CSV với các giá trị ô được đặt trong dấu ngoặc kép. Sau đó, hãy làm theo các bước bên dưới.
📌 Các bước
- Đầu tiên, hãy chọn toàn bộ phạm vi ( A1:B6 ) của tập dữ liệu.
- Sau đó, nhấn CTRL + 1 để mở Định dạng ô cửa sổ.
- Tiếp theo, chọn Tùy chỉnh định dạng từ Số tab.
- Sau đó, nhập \ “# \”; \ “@ \” trong Loại lĩnh vực này.
- Sau đó, nhấn OK .
- Tiếp theo, chọn Tệp> > Lưu dưới dạng . Sau đó, duyệt qua vị trí mong muốn để lưu tệp.
- Sau đó, nhập tên tệp. Bây giờ, hãy chọn CSV (Phân cách bằng dấu phẩy) (* .csv) làm loại tệp bằng cách sử dụng mũi tên thả xuống.
- Sau đó, nhấp vào nút Lưu nút.
- Tiếp theo, đi đến vị trí mong muốn đó. Sau đó, mở tệp CSV bằng trình chỉnh sửa văn bản (Notepad, v.v.).
- Sau đó, bạn sẽ thấy kết quả sau có chứa thêm một số dấu ngoặc kép.
- Bây giờ, nhấn CTRL + H để mở Thay thế cửa sổ. Nhập một dấu ngoặc kép trong phần Tìm gì trường mà không có bất kỳ khoảng trống nào ở giữa chúng. Giữ nút Thay thế bằng trường trống và chọn Thay thế tất cả .
- Cuối cùng, bạn sẽ nhận được kết quả mong muốn như sau.
Đọc thêm:Cách áp dụng Macro để chuyển đổi nhiều tệp Excel sang tệp CSV
2. Sử dụng Windows PowerShell
Ngoài ra, bạn có thể lưu tệp CSV mà không có dấu ngoặc kép trước. Sau đó, bạn có thể thêm dấu ngoặc kép bằng Windows Powershell. Làm theo các bước bên dưới để có thể thực hiện điều đó.
📌 Các bước
- Trước tiên, hãy chuyển đến trang tính mà bạn muốn lưu dưới dạng tệp CSV.
- Tiếp theo, chọn Tệp> > Lưu dưới dạng như trong phương pháp trước đó.
- Sau đó, duyệt qua vị trí mong muốn cho tệp. Tiếp theo, nhập tên cho tệp.
- Sau đó, chọn CSV (Phân cách bằng dấu phẩy) (* .csv) làm loại tệp bằng cách sử dụng mũi tên thả xuống.
- Sau đó, nhấp vào nút Lưu nút.
- Sau đó, bạn sẽ nhận được kết quả sau.
- Bây giờ, giữ SHIFT và nhấp chuột phải vào bất kỳ khoảng trống nào trong vị trí của tệp CSV không có dấu ngoặc kép.
- Sau đó, nhấp vào Mở cửa sổ PowerShell tại đây .
- Bây giờ, hãy sao chép lệnh sau. Bạn cần thay đổi tên tệp dựa trên tệp của mình.
import-csv Sales1.csv | export-csv Sales2.csv -NoTypeInformation -Encoding UTF8 - Sau đó, dán mã đã sao chép vào cửa sổ PowerShell và nhấn Enter .
- Sau đó, bạn sẽ nhận được kết quả mong muốn như trong hình bên dưới.
Đọc thêm:Cách chuyển đổi tệp Excel thành tệp văn bản với dấu phân cách bằng dấu phẩy (3 phương pháp)
Bài đọc tương tự
- Macro để chuyển đổi Excel thành tệp văn bản được phân cách bằng đường ống (3 phương pháp)
- Cách chuyển đổi nhiều tệp Excel sang CSV (3 cách phù hợp)
3. Áp dụng mã VBA cho tệp CSV có dấu ngoặc kép
Bạn cũng có thể sử dụng Excel VBA để có được kết quả tương tự. Làm theo các bước bên dưới để thực hiện điều đó.
📌 Các bước
- Đầu tiên, nhấn ALT + F11 để mở cửa sổ VBA.
- Sau đó, chọn Chèn>> Mô-đun như trong hình sau. Thao tác này sẽ tạo một mô-đun mới.
- Bây giờ, hãy sao chép mã bên dưới bằng nút sao chép.
Sub ExcelToCSV()
Dim rng, row, cell As Range
Dim dqt, dlim, text As String
Dim file As Variant
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
text = ActiveWindow.RangeSelection.AddressLocal
Else
text = ActiveSheet.UsedRange.AddressLocal
End If
Set rng = Application.InputBox("Please select the data range:", "ExcelDemy.Com", text, , , , , 8)
If rng Is Nothing Then Exit Sub
file = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")
dlim = Application.International(xlListSeparator)
Open file For Output As #1
For Each row In rng.rows
dqt = ""
For Each cell In row.Cells
dqt = dqt & """" & cell.Value & """" & dlim
Next
While Right(dqt, 1) = dlim
dqt = Left(dqt, Len(dqt) - 1)
Wend
Print #1, dqt
Next
Close #1
If Err = 0 Then MsgBox "The CSV file has been saved to: " & file, vbInformation, "ExcelDemy.Com"
End Sub- Sau đó, dán mã đã sao chép vào mô-đun như hình bên dưới.
- Tiếp theo, nhấn F5 để chạy mã. Điều này sẽ yêu cầu phạm vi mong muốn của bạn. Bây giờ, bạn có thể chuyển trở lại trang tính và chọn phạm vi. Sau đó, nhấn OK . Thao tác này sẽ đưa bạn trực tiếp đến Lưu dưới dạng cửa sổ.
- Bây giờ, hãy duyệt qua vị trí của tệp và nhập tên. Sau đó, nhấp vào Lưu .
- Sau đó, excel sẽ hiển thị thông báo sau.
- Cuối cùng, bạn có thể kiểm tra các kết quả sau.
🔎 Giải thích về Mã VBA
Sub ExcelToCSV ()
Chúng tôi sẽ viết mã bên trong thủ tục chủ đề này.
Làm mờ rng, hàng, ô Như Phạm vi
Dim dqt, dlim, text as String
Làm mờ tệp dưới dạng biến thể
Khai báo các biến cần thiết.
Khi có lỗi Tiếp tục lại tiếp theo
Bỏ qua bất kỳ lỗi nào.
Nếu ActiveWindow.RangeSelection.Count> 1 Thì
text =ActiveWindow.RangeSelection.AddressLocal
Khác
text =ActiveSheet.UsedRange.AddressLocal
Kết thúc nếu
Tự động phát hiện dữ liệu để chọn.
Đặt rng =Application.InputBox (“Vui lòng chọn dải dữ liệu:”, “ExcelDemy.Com”, text,,,,, 8)
Yêu cầu phạm vi dữ liệu.
Nếu rng Không có gì thì Thoát Sub
Thoát khỏi hoạt động mà không cần đầu vào.
file =Application.GetSaveAsFilename (“”, “Tệp CSV (* .csv), * .csv”)
Đặt định dạng của tệp mới.
dlim =Application.International (xlListSeparator)
Chỉ định dấu phẩy làm dấu phân cách.
Mở tệp cho đầu ra là số 1
Tạo một tệp mới.
Đối với mỗi hàng Trong rng.rows
dqt =“”
Đối với mỗi ô Trong hàng.
dqt =dqt &“” ”” &cell.Value &“” ”” &dlim
Tiếp theo
Trong khi Phải (dqt, 1) =dlim
dqt =Left (dqt, Len (dqt) - 1)
Wend
In # 1, dqt
Tiếp theo
Đóng # 1
Bao bọc các giá trị ô bằng dấu ngoặc kép và điền vào tệp mới.
If Err =0 Then MsgBox “Tệp CSV đã được lưu vào:” &file, vbInformation, “ExcelDemy.Com”
Xác nhận lưu tệp CSV.
Đọc thêm:Cách tự động chuyển đổi tệp Excel sang CSV (3 phương pháp dễ dàng)
Những điều cần nhớ
- Bạn cần cung cấp đường dẫn tệp thích hợp trong lệnh PowerShell trong trường hợp bạn mở tệp từ các vị trí khác.
- Bạn cần thay đổi tên tệp dựa trên tệp của mình.
Kết luận
Bây giờ bạn đã biết cách chuyển đổi tệp excel để lưu dưới dạng tệp CSV với dấu ngoặc kép. Vui lòng cho chúng tôi biết nếu bài viết này đã cung cấp cho bạn giải pháp mong muốn của bạn. Bạn cũng có thể sử dụng phần bình luận bên dưới cho các truy vấn hoặc đề xuất thêm. Hãy truy cập ExcelDemy của chúng tôi blog để tìm hiểu thêm về excel. Hãy ở lại với chúng tôi và tiếp tục học hỏi.
Các bài viết liên quan
- [Đã sửa!] Excel Không lưu CSV bằng Dấu phẩy (7 Giải pháp Có thể có)
- Cách chuyển đổi tệp Excel sang định dạng CSV (5 cách dễ dàng)
- Chuyển đổi Excel sang Tệp CSV được phân tách bằng dấu phẩy (2 cách dễ dàng)
- Cách chuyển đổi Excel sang CSV mà không cần mở (4 Phương pháp Dễ dàng)