掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Unicodeで書かれたハングル文字のテキストファイルをVBAで読み込みセルに描画するには？ (ID：80257)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
具体的には、どのUnicodeですか? (恐らく、UTF-8 か UTF-16 あたりだとは思いますが) > ハングル文字の部分だけ文字化けします。 ADO(2.5以上)の Streamオブジェクトを利用できます。 Charsetで文字コード、LineSeparatorで改行コードを指定します。 Dim Stm As Object Dim SourceFilePath As String Dim rngCells As Excel.Range Const adCRLF = -1 Const adReadLine = -2 Set rngCells = Sheet1.[A1] SourceFilePath = "C:\〜.TXT" Set Stm = CreateObject("ADODB.Stream") Stm.Open Stm.Charset = "UTF-8" Stm.LineSeparator = adCRLF Stm.LoadFromFile SourceFilePath Do Until Stm.EOS 'End Of Streamまでループ rngCells.Value = Stm.ReadText(adReadLine) Set rngCells = rngCells.Offset(1) Loop Set rngCells = Nothing Stm.Close Set Stm = Nothing 上記では1セルずつ出力させているので、行数が多くなると重くなるかもしれません。 必要に応じて、適宜書き換えてみてください。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.