More than 5 years have passed since last update.

VBAでSHIFT-JISのテキストを読み込む

ExcelVBA

Posted at 2013-11-25

Public Function ReadSJISText(isFileName As String) As String

    Dim bytArray()     As Byte
    Dim intFileNo       As Integer
    Dim lngFileLenB  As Long

    'バイト配列の容量を確保する
    lngFileLenB = FileLen(isFileName)
    ReDim bytArray(lngFileLenB - 1)

    '使用可能なファイル番号を取得する
    intFileNo = FreeFile

    'ファイルをバイナリモードで開く
    Open isFileName For Binary As #intFileNo

    'バイナリデータとして読込んで…
    Get #intFileNo, , bytArray
    Close #intFileNo

    'Unicodeに変換して表示
    ReadSJISText= StrConv(bytArray, vbUnicode)

End Function

You get articles that match your needs
You can efficiently read back useful information
You can use dark theme

What you can do with signing up