ファイルの操作(Shift-JIS/UTF8対応)[ExcelのVBA]

Option Explicit Private Sub CommandButton1_Click() Dim fileNo As Integer ' ファイル番号 Dim buffer As String ' 一時的に文字列を格納 ' ファイルを開く為のファイル番号を取得 fileNo = FreeFile ' 指定されたファイルを開く Open "C:\excel_vba_22_sjis.txt" For Input As #fileNo ' ファイルがEOF(ファイルの終端)になるまでループをする Do Until EOF(fileNo) ' ファイルから一行づつbufferに読み込む Line Input #fileNo, buffer ' 読み込んだ一行をイミディエイトに出力 Debug.Print buffer Loop Close #fileNo End Sub 結果 正常にフ

[vamview]

まとまってる