VBAの中のSJIS文字列をUTF8に変換したい

Question

VBAの中からDBにSQLを発行する際にテーブル名等がUTF8である必要があるので、変換しようとしています。
ADODB.Streamを使用するのが一般的なようなので、以下のコードを書いたのですが、うまくいきません。

現象としては、下記コード中の２か所のMsgBoxの出力が空であるとうことです。
WriteText がうまくいってないのか、ReadTextの使い方が間違っているのかと悩んています。

詳しい方にアドバイスをいただけますと幸いです。

Public Sub test()
    Dim adoStreamSJIS As ADODB.Stream
    Dim adoStreamUTF8 As ADODB.Stream
    Dim bufSJIS As String
    Dim bufUTF8 As String
    
    bufSJIS = "あいうえお"

    Set adoStreamSJIS = New ADODB.Stream
    With adoStreamSJIS
        .Charset = "SJIS"
        .Open
        .Type = adTypeText
        '.Type = adTypeBinary
    End With

    Set adoStreamUTF8 = New ADODB.Stream
    With adoStreamUTF8
        .Charset = "UTF-8"
        .Open
        .Type = adTypeText
        '.Type = adTypeBinary
    End With
  
    adoStreamSJIS.WriteText bufSJIS, 1
    MsgBox adoStreamSJIS.ReadText
    adoStreamSJIS.CopyTo adoStreamUTF8
    bufUTF8 = adoStreamUTF8.ReadText
    MsgBox bufUTF8

    adoStreamSJIS.Close
    adoStreamUTF8.Close

    Set adoStreamSJIS = Nothing
    Set adoStreamUTF8 = Nothing

End Sub

Comments

[sazi]

> VBAの中からDBにSQLを発行する際にテーブル名等がUTF8である必要がある
どのようにSQLを発行しているのですか？
DAOで行う分にはそんな縛りはなかったと思うのですが。

[sazi]

ODBC経由ならsjis→utf8変換はコードページの指定をすればやってくれますし

[hatena19]

ひょっとして、
VBAコード内でSQL文を生成しようとしているが、テーブル名にSJISにない文字が含まれているので、VBAエディター上では入力できない、ということかな。
だとしたら、そのテーブル名を提示してもらえますか。
上記の推測が外れているなら、スルーしてください。

[hatena19]

「VBAの中からDBにSQLを発行する際」のコードを提示された方がいいかも。で、どこでうまくいかないのか説明された方がいいですね。
saziさんが言われるようにDAOでもADODBでもそのような縛りはないので。

Answer 1

ODBC経由と勘違いしていましたが、ネイティブのドライバで接続していました。
ODBC経由の接続に変更したところ、文字化けせずに実行できました。

Answer 2

Shift_JISをUTF-8に変換することが本当の目的であれば、以下サイトのコードが参考になると思います。

エクセルの神髄｜鵜原パソコンソフト研究所
Shift_JISのテキストファイルをUTF-8に一括変換｜VBAサンプル集

Answer 3

    Dim bufSJIS As String

    bufSJIS = "あいうえお"

上記の部分の変数名から推測するに、
bufSJISには、シフトJISで格納されていると勘違いされているように思われます。
実際は、Unicodeです。VBAにおいて、文字列(String型)は Unicodeで扱われます。

Unicodeを無理矢理シフトJISとして読み込んで、UTF-8 に変換というまったく無意味な処理をしていることになります。

そもそも、VBA上て「DBにSQLを発行する」のはDAOかADODBを介することになりますが、
DAOかADODBに渡すSQL文はUnicode、つまりString型の文字列でいいわけで、UTF-8 に変換する必要性はありません。

ここからは、推測ですか、現状の問題点は、
テーブル名等に、シフトJISにはない Unicode文字が含まれている。
それを、VBAエディタ上で入力すると文字化けする、ということではないですか。

もし、この推測があっているなら、問題点は下記になります。

VBAにおいて、文字列(String型)は Unicode である。(Office2000 から Shift-JISから Unicode に変わった。）
ところが、VBAエディターは未だにShift-JISのままで、Unicode対応になっていない。よって、Shift-JISに存在しない文字を入力すると文字化けする。

対処法の提示は、この推測があっているか、どうかの返答が質問者さんから出てからにします。

また、推測が外れているなら、「DBにSQLを発行する」コードを提示して、どこでどうまくいかないのが具体的に説明してください。