làm sao convert tử CSV kiểu EUC sang CSV kiêu SJIS

[lipton150786]

Tôi có một ứng dụng trên Exel đọc file csv nhưng với file csv kiểu EUC(font) thì đọc không được còn file csv kiểu SJIS(font) thì đọc được,

ai biết cách convert tư EUC sang SJIS xin chỉ giùm.

(code VBA viết trên Exel chứ không phải viết trên VB6 hay VB.NET)

cám ơn nhiều

[truongphu]

Lời khuyên:
Nên gởi Box Cơ hội - Việc làm

[HaiPT]

Cái này nhiều, em nghĩ có thê trả lời nhanh đc ( dùng VBA for excel )
Option Explicit

Sub SaveAsSJIS(sFullName As String)
Dim oWbk As Workbook

On Error GoTo Err_SaveAsSJIS

Set oWbk = Workbooks.Add
oWbk.WebOptions.Encoding = msoEncodingJapaneseShiftJIS
oWbk.SaveAs Filename:=sFullName, FileFormat:=xlCSV, TextCodepage:=msoEncodingJapaneseShiftJIS
oWbk.Close SaveChanges:=True

Exit_SaveAsSJIS:
On Error Resume Next
Set oWbk = Nothing
Exit Sub

Err_SaveAsSJIS:
MsgBox Err.Description, vbExclamation, Err.Number
Resume Exit_SaveAsSJIS

End Sub
Detail :
http://www.codeproject.com/Questions/18 ... n-VBA.aspx

[lipton150786]

Hinh như bạn Chưa test thư thì phải. Cách này không nhưng không thể chuyển tử EUC sang SJIS mà làm cho data của file input bị xóa hết nửa. nếu còn thì khả năng bị lỗi font của những file input vào mà có format làSJIS là rất cao.

còn cách nàokhac1 không bạn?