VBAでの単純なループが動作しない

Question

これはVBAで何もコーディングしていない初めてのことです。ファイルを読み込んでビットとピースをwestまたはcolumnのどちらかの列に分ける短いマクロを作成しようとしています。

すべてが間違っているかもしれませんし、単純なものかもしれませんが、現時点では私のdoループも認識しません。どんな助けも大歓迎です。

Private Sub seperateTextFile() 
    Dim file As String 
    Dim text As String 
    Dim textLine As String 

    Dim west As Boolean 
    west = True 

    file = ".alltxt" 

    Open file For Input As #1 

    Do Until EOF(1) 
     Line Input #1, textLine 
     text = textLine 
     If InStr(text, "HMW") <> 0 Then 
      west = True 
     If InStr(text, "other") <> 0 Then 
      west = False 
     If west = True Then 
      Sheets("Sheet2").Range("West").End(x1Up) = text 
     If west = False Then 
      Sheets("Sheet2").Range("East").End(x1Up) = text 
    Loop 

    Close #1 

    End Sub 

Answer 1

if30がある場合は、elesifが不足していると思います。そして、あなたは私のためにEnd if

Dim file As String 
Dim text As String 
Dim textLine As String 

Dim west As Boolean 
west = True 

file = "c:\temp\a.alltxt" 

Open file For Input As #1 

Do Until EOF(1) 
    Line Input #1, textLine 
    text = textLine 
    If InStr(text, "HMW") <> 0 Then 
     west = True 
    ElseIf InStr(text, "other") <> 0 Then 
     west = False 
    ElseIf west = True Then 
     'Sheets("Sheet2").Range("West").End(x1Up) = text 
    ElseIf west = False Then 
     'Sheets("Sheet2").Range("East").End(x1Up) = text 
    End If 
Loop 

Close #1 

そして、あなたのfile = ".alltxt"は{テスト}が続いて{アクション} `1行にある場合は、それが必要と`ない限り、このようなfile = "c:\temp\a.alltxt"