ファイルからSpecficテキストを読み、</p> <p>/メイン-----------------------エクセル

Question

/シャントIDENTITIES FILES /でboxexを埋めますシャンツ /------------

S101   S103   S105   S106   S107 
    S108   S112   S113   S115   S116 
    S117   S118   S119   S120   S122 
    S123   S505   S507   S509   S510 
    S511   S512   

/--------------------------- -------------------------------------------------- -

こんにちは私はVBAで "S ###"のようなテキストのみが読み込まれ、Excelの列にコピーされるようにコーディングしたいと思います。だから私はSで助け

 Open selectedPaths(I) For Input As #1 
     Close #1 

     x = 4 
     Do While Not EOF(1) 
     Line Input #1, txt 

     Lines = Split(txt, " ") 

     For Each Line In Lines 

     If Line Like "S*" Then 

      If x Mod 30 = 0 Then 
       x = x + 4 
      End If 
       Cells(x, 1) = Line 
      x = x + 1 
      Cells(x, 1) = Line 

      If x Mod 30 <> 0 Then 
       x = x + 1 
      End If 

     End If 
     Next 
     Loop 

     Close #1 

    Next I 
End If 

Answer 1

ため

感謝を開始し、その対処何があなたの質問ではありません

If Line Like "S????" Then