VBA小技集(Office Boole)Public Sub ReadText1() ' Openステートメントを使用 ' 行単位で読み込み Dim FileNumber As Long Dim FilePath As String Dim TextLine As String Dim ar As Variant Dim i As Long Dim gyo As Long FileNumber = FreeFile FilePath = ThisWorkbook.Path & "\test.txt" Open FilePath For Input As #FileNumber gyo = 1 Do While Not EOF(FileNumber) Line Input #FileNumber, TextLine ar = Split(TextLine, ",") For i = 0 To UBound(ar) Cells(gy
Why?Programming!
PDF加工・編集ソフトが沢山
