ExcelVBAマクロについて確認させてください。

>UTF-8形式の場合でも読み込める方法 予めCharsetを調べ、 ADODB.Streamオブジェクトを使う対応になりましょう。 以下、サンプルです。 'Microsoft ActiveX Data Objects x.x Libraryを参照設定 Sub Sample5() 　Dim Target As String 　Dim judgeCode As String 　Dim adoSt As Object 　Dim MyText As String 　 　'ADODB.Streamオブジェクトを生成 　Set adoSt = CreateObject("ADODB.Stream") 　 　'テキストファイルを選ぶ 　Target = Application.GetOpenFilename("テキストファイル,*.*") 　If Target = "False" Then Exit Sub 　'ファイルのCharsetを調べる 　judgeCode = GetCharset(Target) 　With adoSt 　　.Charset = judgeCode　　　　'Streamで扱う文字コートを設定 　　.Open　　　　　　　　　　　 'Streamをオープン 　　.LoadFromFile (Target)　　　'ファイルからStreamに読み込む 　　MyText = .Readtext(adReadAll) 　　'Debug.Print MyText 　　MsgBox (MyText) 　　.Close 　End With End Sub 'ファイルを調べCharsetを取得　引数：ファイル名フルパス Function GetCharset(strFileName As String) As String 　Dim buf(2) As Byte 　Dim intFileNo As Integer 　intFileNo = FreeFile 　Open strFileName For Binary Access Read As intFileNo 　Get intFileNo, , buf 　Close intFileNo 　If (buf(0) = 255) And (buf(1) = 254) Then 　　GetCharset = "unicode" 　ElseIf (buf(0) = 239) And (buf(1) = 187) And (buf(2) = 191) Then 　　GetCharset = "utf-8" 　Else 　　GetCharset = "shift-jis" 　End If End Function