網上找了很多, 真正好用的代碼不多, 自己研究了下,寫下例子備份
Private Sub ConvFile(InputFile As String, OutputFile As String)
Dim ReadStream As Object
Set ReadStream = CreateObject("ADODB.Stream")
Dim FileContent As String
With ReadStream
.Type = 2 'adTypeText
.Charset = "UNICODE"
.Open
.LoadFromFile InputFile
FileContent = .ReadText
.Close
End With
Set ReadStream = Nothing
Dim WriteStream As Object
Set WriteStream = CreateObject("ADODB.Stream")
With WriteStream
.Type = 2 'adTypeText
.Charset = "UTF-8"
.Open
.WriteText FileContent
.SaveToFile OutputFile, 2 'adSaveCreateOverWrite
.Flush
.Close
End With
Set WriteStream = Nothing
End Sub
上半截是讀取文件, 下半截是寫入文件, 需要轉換不同格式, 請自行更換