Dim tmpDim strBuf As String, strBuf1 As StringDim i As LongDim LastLEN As LongDim shThis As WorksheetDim CSVpath As String'シートとCSVのパスを指定Set shThis = ThisWorkbook.Worksheets("")CSVpath = ""'取り込み先のシートをクリアWith shThis .C…