UTF-8の文字列をセルに区切ってセットするには？ (ID:87983)

名前

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

本文 > Do Until Stm.EOS 'End Of Streamまでループ > mDatData = mDatData + Stm.ReadText(adReadLine) > Loop これは、改行文字を除去する処理でしょうか? > Range("F2").Value = MidB(mDatData, 3, 5) バイト単位で処理をされているのには、何か理由があるのでしょうか? 特に理由が無ければ、MidB関数ではなく、Mid関数を使ってみて下さい。 MidBを使えないわけではありませんが、その場合は、MidB関数の 第3引数に指定する数値は、(奇数ではなく)偶数である必要があります。 (VB6/VBAの文字列型は、1文字を2バイトで表現しますから)