ADOで取得した結果が文字化けする (ID:122192)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 譚ア莠ヤ（全角カナは実際は半角カナ） 008B71FFA0836CFF（エンディアン違うかも） ということなら UTF-8を間違ってShift_JISと解釈して、Unicodeへ変換してませんか？ なおすなら、 文字列⇒Shift_JIS変換⇒StreamオブジェクトでUTF-8⇒Unicode でいけませんか？ ?modoshi("譚ア莠ャ") 東京 以下、実験コード Function modoshi(sInput As String) Dim bInput() As Byte bInput = StrConv(sInput, vbFromUnicode) sInput = convertCharset(bInput, "UTF-8") Debug.Print sInput End Function Function convertCharset(striInText As Variant, toCharset As String) As String Dim oStream As Object Set oStream = CreateObject("ADODB.Stream") oStream.Open oStream.Type = 1 oStream.write (striInText) oStream.position = 0 oStream.Type = 2 oStream.Charset = toCharset convertCharset = oStream.readText() Set oStream = Nothing End Function