Excel 2007 VBAで実行時エラー

質問

Excel 2007のＶＢＡで、EUCコードの変換を試す下記コードの(6)行に「実行時エラー '424' オブジェクトが必要です」となります。
修正方法を教えて頂きたくよろしくお願い致します。

(1) Sub Ｔｅｓｔ()
(2) Dim str As String
(3) Dim bytesData(1) As Byte
(4) bytesData(0) = &HC0
(5) bytesData(1) = &HA4
(6) str = System.Text.Encoding.GetEncoding(51932).GetString(bytesData)
(7) MsgBox str
(8) End Sub

回答No.1

samtomsan · ベストアンサー

> (6) str = System.Text.Encoding.GetEncoding(51932).GetString(bytesData)

これは VBA ではなく VB.NET ですよね。

VBAならbyte配列からStringへの変換は例えば
str = StrConv(byteData, vbUnicode)
ですが、EUCに変換するには自分で変換ルーチンを作らなければならなかったと思います。

お礼

今、自分で使用するアプリを作成していますが、初心者の私はネットで色々調べながら悪戦苦闘中です。

EUCから変換したいのですがVB.NETでしたか。VBAでは残念ながら自分で変換ルーチンを作る必要があるのですね。

もうひと頑張りしたいと思います。早速回答頂きありがとうございました。