VBA初心者です。 下記に示すマクロの直した方がいい部分や改善点等あれば教えていただきたいです。 こちらのマクロは、画像のシートFLNに示したB列のテキストファイル名を読み込み、読み込んだテキストファイルをSheet1に出力していくものになります。 こちらのURLは読み込むテキストファイルになります。 http://dtbn.jp/evhUKN3R こちらがマクロです。 Sub In_Text(n As Long) Dim Numb(1000) As Long, RESP1(1000) As String Dim mx(1000, 100) As Single, mt(1000, 100) As Single Dim pas As String Dim ic1 Dim fln Dim a Dim RESP Dim nRESP Dim dt Dim i2 Dim i3 Dim b pas = Worksheets("FLN").Cells(1, 5).Value ic1 = 0 fln = Worksheets("FLN").Cells(n, 2).Value With Worksheets("Sheet1") .Range("B2:W1000000").ClearContents Close #1 Open pas & "\" & fln For Input As #1 On Error GoTo 9999: Line Input #1, a 1000: If Mid(a, 11, 3) = "MAX" Then RESP = Trim(Mid(a, 21, 10)) nRESP = Val(Mid(a, 31, 10)) dt = Val(Mid(a, 51, 12)) End If Line Input #1, a Line Input #1, a For i2 = 1 To 100 Line Input #1, a If Mid(a, 11, 3) = "MAX" Then GoTo 1000: ' End If ic1 = ic1 + 1 Numb(ic1) = Val(Mid(a, 1, 10)) RESP1(ic1) = RESP For i3 = 1 To nRESP Input #1, a, b Cells(ic1 + 1, i3 + 3) = Abs(a) Next i3 .Cells(ic1 + 1, 2).Value = RESP1(ic1) .Cells(ic1 + 1, 3).Value = Numb(ic1) Next i2 9999: End With End Sub よろしくお願いいたします。
Visual Basic