Sub テキストファイル読み込みタブ区切り() Dim filePath As String Dim buf As String, iRow As Integer Dim i As Integer Dim temp As Variant Dim fileNo As Integer filePath = Application.GetOpenFilename("CSVファイル(*.csv),*.csv,テキストファイル(*.txt),*txt") fileNo = FreeFile() Open filePath For Input As #fileNo Do Until EOF(1) Line Input #fileNo, buf temp = Split(buf, vbTab) iRow = iRow + 1 For i = LBound(temp) To UBound(temp) Cells(iRow, i + 1) = temp(i) Next Loop Close #fileNo End Sub 'エラー処理を入れましょう