如何在VBA中将CSV EUC转换为CSV SJIS [英] How to convert from CSV EUC to CSV SJIS in VBA

问题描述

我在VBA(Exel)中有一个应用程序，但是我的应用程序无法读取格式为EUC的CSV文件，而格式SJIS可以.

那么如何将CSV EUC格式更改为CSV SJIS?

你能帮我吗?
感谢

I have a application in VBA(Exel) but my application can not read CSV file that its format is EUC while format SJIS is ok.

So how to change form CSV EUC to CSV SJIS?

Could you help me?
thanks

推荐答案

尝试一下:

Try this:

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

用法:

Usage:

Sub TestTextCodePage()
    SaveAsSJIS "C:\testCP.csv"
End Sub

我认为，TextCodepage变量等于 MsoEncodingEnumeration .在以下位置查看它: http://office.microsoft.com/en-ca/excel-help/HV080559483.aspx [ ^ ]

I think, the TextCodepage variable is equal to MsoEncodingEnumeration. See it on: http://office.microsoft.com/en-ca/excel-help/HV080559483.aspx[^]

这篇关于如何在VBA中将CSV EUC转换为CSV SJIS的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！