掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Unicodeで書かれたハングル文字のテキストファイルをVBAで読み込みセルに描画するには？ (ID：80256)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
下記関数でハングル文字を含むテキストファイルを読み込むと ハングル文字の部分だけ文字化けします。 デバッグでステップ実行すると、 読み込んだ後のStrにはUnicodeのテキストファイルを SJISで開いたときに表示される文字がウォッチできます。 ハングル文字を表示させる環境は整っています。 また、そのテキストファイルをそのままエクセルで開くとちゃんと表示されます。 ファイル(TEST.txt)の中身は、 ハングル文字や半角英数字がUnicodeで箇条書きされているだけです。 関数： Sub LoadFile() Dim idx as Long 'セルの列 Dim n As Long ' Dim sFileName '読み込むファイル名 '変数初期化 idx = 1 n = FreeFile sFileName = "C:\〜\TEST.txt" 'ファイルオープン Open sFileName For Input As #n 'ヘッダ読み飛ばし Do Until EOF(n) 'ファイル読み込み Line Input #n, Str 'セルに書き込み ActiveWorkbook.ActiveSheet.Cells(idx, 1) = Str Loop 'ファイルクローズ Close #n End Sub 過去ログをあさってみたのですが、どうにもつかめません。 よろしくお願いいたします。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.