Không save as được định dạng Unicode (*.txt)

[challenge98]

Mình có một đoạn mã sao lưu bảng tính thành dạng txt nhưng khi lưu thì font chữ bị lỗi ai giúp mình với.

1    Nguy?n Th? Hoàng Hà                    
2    Tr?n Th? Bình                    
3    Cao Th? Chung                    
4    Nguy?n V?n Ki?u                    
5    Chu V?n Cung

Phải thế này mới đúng

1    Nguyễn Thị Hoàng Hà                    
2    Trần Thị Bình                    
3    Cao Thị Chung                    
4    Nguyễn Văn Kiều                    
5    Chu Văn Cung

đây là code

Sub Test()
Dim KillFile As String
KillFile = "C:\Test.txt"
'Check that file exists
If Len(Dir$(KillFile)) > 0 Then
    'First remove readonly attribute, if set
    SetAttr KillFile, vbNormal
    'Then delete the file
     Kill KillFile
End If
ActiveWorkbook.SaveAs Filename:="C:" & "\" & "Test.txt", FileFormat:=xlText
Application.DisplayAlerts = False
Workbooks.Application.Quit
End Sub

Mình đã thay File format:= nhiều định dạng text nhưng không được.

 

[ndu96081631]

Mình có một đoạn mã sao lưu bảng tính thành dạng txt nhưng khi lưu thì font chữ bị lỗi ai giúp mình với.

1    Nguy?n Th? Hoàng Hà                    
2    Tr?n Th? Bình                    
3    Cao Th? Chung                    
4    Nguy?n V?n Ki?u                    
5    Chu V?n Cung

Phải thế này mới đúng

1    Nguyễn Thị Hoàng Hà                    
2    Trần Thị Bình                    
3    Cao Thị Chung                    
4    Nguyễn Văn Kiều                    
5    Chu Văn Cung

đây là code

Sub Test()
Dim KillFile As String
KillFile = "C:\Test.txt"
'Check that file exists
If Len(Dir$(KillFile)) > 0 Then
    'First remove readonly attribute, if set
    SetAttr KillFile, vbNormal
    'Then delete the file
     Kill KillFile
End If
ActiveWorkbook.SaveAs Filename:="C:" & "\" & "Test.txt", FileFormat:=xlText
Application.DisplayAlerts = False
Workbooks.Application.Quit
End Sub

Mình đã thay File format:= nhiều định dạng text nhưng không được.

Đó là do bạn lưu chưa đúng format ---> Phải lưu thành kiểu Unicode Text mới được!
Sửa chổ này:
FileFormat:=xlText
Thành:
FileFormat:=xlUnicodeText
là được!
-------------
Ngoài ra code của bạn nên sửa lại cho gọn:

Sub Test()
  Dim KillFile As String
  KillFile = "C:\Test.txt"
  If Len(Dir$(KillFile)) > 0 Then
    SetAttr KillFile, vbNormal
    Kill KillFile
  End If
  ThisWorkbook.SaveAs KillFile, xlUnicodeText
  Application.DisplayAlerts = False
  Application.Quit
End Sub

 

[challenge98]

Thanks bạn nhiều à mình không hiểu sao một số dòng lại có dấu "" nhỉ?

"Nguyễn Văn Hùng"

có cách nào bỏ dấu "" đi khi save as như cách trên không?

 

[ndu96081631]

Thanks bạn nhiều à mình không hiểu sao một số dòng lại có dấu "" nhỉ?

"Nguyễn Văn Hùng"

có cách nào bỏ dấu "" đi khi save as như cách trên không?

File đính kèm của bạn tôi lưu bình thường, không thấy dấu "" như bạn đã nói!

 

[challenge98]

Bạn xem file này dùm mình nhé.

 

[ndu96081631]

Bạn xem file này dùm mình nhé.

Bạn thử sửa dấu phẩy thành dấu chấm xem:
Nhân công 2,5/7 thành Nhân công 2.5/7
Cũng chẳng biết nguyên nhân tại sao lại vậy nữa!

 

[challenge98]

Đúng là có dấu phẩy thì sinh ra cái đó nhưng nếu làm bằng tay trực tiếp save as thì không bị. mình cũng không hiểu sâu về code lắm dù sao cũng cảm ơn bạn nhiều.