■以下のようなUTF-8形式のテキストファイルを読み込んで変数に格納 Sub readUtfFile() Dim buf As String, Target As String Target = "C:\Users\デスクトップ\UTFデータ.csv" With CreateObject("ADODB.Stream") .Charset = "UTF-8" .Open .LoadFromFile Ta…