Excel VBA：打开UTF-16 XML

我目前正努力在Excel中用VBA打开一个utf-16编码的XML文件。

我当前的stringvariables名为EntireFile目前开始像这样：

ÿþ<?xml version="1.0" encoding="utf-16"?> <Test xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> 

正如你所看到的，一开始似乎有一些angular色。

我通过这样做了Stringvariables：

 Open PathToFile For Input As #1 Do Until EOF(1) Line Input #1, textline EntireFile = EntireFile & textline 

文件格式化为UCS-2 Little Endian根据记事本++，但通过互联网快速search显示，这是微软相当于UTF-16？

我尝试了删除前两个字符的bruteforce方法，但是留下了一个空string。

所有的谷歌search结果包括保存一个没有BOM的XML文件，但是这与我正在寻找的相反。

感谢您的时间

Answer 1

您可以使用Win32 API函数来转换编码。

 Private Declare Function WideCharToMultiByte Lib "kernel32.dll" ( _ ByVal CodePage As Long, _ ByVal dwFlags As Long, _ ByVal lpWideCharStr As Long, _ ByVal cchWideChar As Long, _ ByVal lpMultiByteStr As Long, _ ByVal cbMultiByte As Long, _ ByVal lpDefaultChar As Long, _ ByVal lpUsedDefaultChar As Long) As Long Private Declare Function MultiByteToWideChar Lib "kernel32.dll" ( _ ByVal CodePage As Long, _ ByVal dwFlags As Long, _ ByVal lpMultiByteStr As Long, _ ByVal cbMultiByte As Long, _ ByVal lpWideCharStr As Long, _ ByVal cchWideChar As Long) As Long Private Const CP_UTF16 As Long = 1200& Private Function ConvertToUTF16(ByRef Source As String) As Byte() Dim Length As Long Dim Pointer As Long Dim Size As Long Dim Buffer() As Byte Length = Len(Source) Pointer = StrPtr(Source) Size = WideCharToMultiByte(CP_UTF16, 0, Pointer, Length, 0, 0, 0, 0) ReDim Buffer(0 To Size - 1) WideCharToMultiByte CP_UTF16, 0, Pointer, Length, VarPtr(Buffer(0)), _ Size, 0, 0 ConvertToUTF16 = Buffer End Function Private Function ConvertFromUTF16(ByRef Source() As Byte) As String Dim Size As Long Dim Pointer As Long Dim Length As Long Dim Buffer As String Size = UBound(Source) - LBound(Source) + 1 Pointer = VarPtr(Source(LBound(Source))) Length = MultiByteToWideChar(CP_UTF16, 0, Pointer, Size, 0, 0) Buffer = Space$(Length) MultiByteToWideChar CP_UTF16, 0, Pointer, Size, StrPtr(Buffer), Length ConvertFromUTF16 = Buffer End Function 

Private Const CP_UTF16 As Long = 1200&意味着代码页1200是UTF-16 little andian。

你可以在这里看到所有代码页的列表https://msdn.microsoft.com/de-de/library/windows/desktop/dd317756(v=vs.85).aspx