Từ dấu phẩy bị chuyển thành dấu chấm khi lưu file

[xuanlinh91]

Em dùng hàm sau để lưu một sheet file excel thành 1 file csdl .csv

Sub SaveToCSV(path2 As String)
    myDir = path2
    ActiveWorkbook.SaveAs FileName:=myDir, FileFormat:=xlUnicodeText
End Sub

với tham số path2 được truyền vào là : "C:/.....DM.csv"




Sheet Dm của e như sau

Tuy nhiên thì khi lưu thành file csv thì lại bị chuyển toàn bộ dấu phẩy thành dấu chấm, làm lẫn lộn dữ liệu

Vậy mọi người cho em hỏi lý do và cách giải quyết trường hợp này ạ


Em xin cảm ơn

 

[vodoi2x]

File CSV mặc định dấu phân cách hàng thập phân là dấu "." nên save dạng đó thì dấu thập phân từ "," (như của bạn) sẽ thành dấu "."

Vì thế khi mở lại file CSV đó, bạn phải chuyển định dạng dấu thập phân trở lại dấu "." ở trong Control Panel nhé

 

[xuanlinh91]

File CSV mặc định dấu phân cách hàng thập phân là dấu "." nên save dạng đó thì dấu thập phân từ "," (như của bạn) sẽ thành dấu "."

Vì thế khi mở lại file CSV đó, bạn phải chuyển định dạng dấu thập phân trở lại dấu "." ở trong Control Panel nhé

Nhưng nếu em save bằng tay thì lại ko như thế

Vẫn có dấu phẩy phân cách thập phân như bình thường

 

[xuanlinh91]

Ai vào giúp em với ạ

 

[vba_gpe]

Ai vào giúp em với ạ

Bạn thử vầy thử xem:

Sub SaveToCSV(path2 As String)    
myDir = path2   
ActiveWorkbook.SaveAs FileName:=myDir, FileFormat:=xlCSV
End Sub

 

[xuanlinh91]

Bạn thử vầy thử xem:

Sub SaveToCSV(path2 As String)    
myDir = path2   
ActiveWorkbook.SaveAs FileName:=myDir, FileFormat:=xlCSV
End Sub

Thì nó lại thế này ạ

 

[ndu96081631]

Em dùng hàm sau để lưu một sheet file excel thành 1 file csdl .csv

Sub SaveToCSV(path2 As String)
    myDir = path2
    ActiveWorkbook.SaveAs FileName:=myDir, FileFormat:=xlUnicodeText
End Sub

với tham số path2 được truyền vào là : "C:/.....DM.csv"




Sheet Dm của e như sau



Tuy nhiên thì khi lưu thành file csv thì lại bị chuyển toàn bộ dấu phẩy thành dấu chấm, làm lẫn lộn dữ liệu



Vậy mọi người cho em hỏi lý do và cách giải quyết trường hợp này ạ


Em xin cảm ơn

Bạn đưa file mẫu của bạn lên xem thử (file Excel ấy)

 

[PhanTuHuong]

Lỗi này thường do nguyên nhân cài đặt Region, VN chơi 1 mình 1 kiểu dạng số nên nhiều chương trình bị trục trặc.

 

[xuanlinh91]

Bạn đưa file mẫu của bạn lên xem thử (file Excel ấy)

Đây ạ, em đã viết sẵn hàm trong module trong file, anh thử chạy rồi xem xét giúp e

 

[huuthang_bd]

Bạn thử như thế này xem:

Sub SaveToCSV()
    Application.DecimalSeparator = "."
    Application.ThousandsSeparator = ","
    Application.UseSystemSeparators = False
    myDir = "d:\DM.csv"
    ActiveWorkbook.SaveAs Filename:=myDir, FileFormat:=xlUnicodeText
    Application.UseSystemSeparators = True
End Sub

 

[ndu96081631]

Bạn thử như thế này xem:

Sub SaveToCSV()
    Application.DecimalSeparator = "."
    Application.ThousandsSeparator = ","
    Application.UseSystemSeparators = False
    myDir = "d:\DM.csv"
    ActiveWorkbook.SaveAs Filename:=myDir, FileFormat:=xlUnicodeText
    Application.UseSystemSeparators = True
End Sub

Test trên máy của tôi: Vẫn không có tác dụng gì, tức file csv vẫn định dạng dấu chấm là dấu thập phân
Có lẽ phải chỉnh Control Panel mới có tác dụng

 

[xuanlinh91]

Bạn thử như thế này xem:

Sub SaveToCSV()
    Application.DecimalSeparator = "."
    Application.ThousandsSeparator = ","
    Application.UseSystemSeparators = False
    myDir = "d:\DM.csv"
    ActiveWorkbook.SaveAs Filename:=myDir, FileFormat:=xlUnicodeText
    Application.UseSystemSeparators = True
End Sub

vẫn bị tình trạng như trên ạ

 

[xuanlinh91]

Bạn thử như thế này xem:

Sub SaveToCSV()
    Application.DecimalSeparator = "."
    Application.ThousandsSeparator = ","
    Application.UseSystemSeparators = False
    myDir = "d:\DM.csv"
    ActiveWorkbook.SaveAs Filename:=myDir, FileFormat:=xlUnicodeText
    Application.UseSystemSeparators = True
End Sub

Em đã thử rồi nhưng kết quả vẫn như cũ

 

[xuanlinh91]

Có ai có cách nào giúp em code vba lưu file thành csv mà k bị chuyển dấu chấm thành phẩy như trên ko ạ, em đang rất cần cho công việc

 

[ndu96081631]

Có ai có cách nào giúp em code vba lưu file thành csv mà k bị chuyển dấu chấm thành phẩy như trên ko ạ, em đang rất cần cho công việc

Tôi nghĩ bạn đừng suy nghĩ tìm phương pháp chi cho mất công, chỉ có 1 cách: Chỉnh trong Control Panel mà thôi

 

[sealand]

Ndu nói chỉnh Control Panel cũng không được? Thực ra yêu cầu của bạn là vô phương. Dạng file *.csv vẫn giữ nguyên cấu trúc và định dạng bảng tính và khi mở lại nó lại vẫn tự động hiển thị theo setting trong Control Panel. Chỉ còn cách là:
1/Dùng hàm Format chuyển dữ liệu thành Text trước khi lưu.
2/Lưu file dưới dạng file *.Txt

 

[ndu96081631]

Ndu nói chỉnh Control Panel cũng không được? Thực ra yêu cầu của bạn là vô phương. Dạng file *.csv vẫn giữ nguyên cấu trúc và định dạng bảng tính và khi mở lại nó lại vẫn tự động hiển thị theo setting trong Control Panel. Chỉ còn cách là:
1/Dùng hàm Format chuyển dữ liệu thành Text trước khi lưu.
2/Lưu file dưới dạng file *.Txt

Ý em là chỉnh Control Panel theo đúng chuẩn English (US), khi ấy thì dấu thập phân sẽ là dấu chấm còn dấu phân cách ngàn sẽ là dấu phẩy ---> Như thế, khi ta mở file Excel gốc ta sẽ nhìn thấy dấu chấm, đồng thời khi lưu thành csv cũng vẫn là dấu chấm ---> Vậy là đồng nhất rồi

 

[xuanlinh91]

Ý em là chỉnh Control Panel theo đúng chuẩn English (US), khi ấy thì dấu thập phân sẽ là dấu chấm còn dấu phân cách ngàn sẽ là dấu phẩy ---> Như thế, khi ta mở file Excel gốc ta sẽ nhìn thấy dấu chấm, đồng thời khi lưu thành csv cũng vẫn là dấu chấm ---> Vậy là đồng nhất rồi

Cả công ty em dùng dữ liệu theo định dạng phần thập phân là dấu phẩy, phần hàng nghìn là dấu chấm. Vậy làm sao bắt cả công ty theo em được ạ


Khi em thực hiện thao tác lưu ra file csv bằng tay thì phần thập phân vẫn đc giữ là dấu phẩy, không hề bị thay đổi ?? thậm chí em đã record lại quá trình lưu đó thành macro, sau đó chạy lại macro đó thì lại bị chuyển dấu phẩy thành dấu chấm

 

[sealand]

Bạn đưa cái file ấy lên đây xem sao?

 

[xuanlinh91]

Bạn đưa cái file ấy lên đây xem sao?

em attach trên trang 1 rồi đấy ạ