VBA：否則沒有如果錯誤

Question

我想運行下面的代碼，但我不斷收到沒有如果錯誤在第一個子。代碼應該在列中運行，如果單元格中有URL，則打開網頁，然後將頁面信息保存爲文本文件。如果沒有url，那麼它只是將該文件中的文本保存爲文本文件。我無法弄清楚如何改變語法來使它工作。

Sub LoopOverB() 

Dim myRow As Long 

myRow = 10 

While Worksheets("Input_Format_A").Cells(myRow, 2).value <> "" 
    If InStr(1, Worksheets("Input_Format_A").Cells(myRow, 2).value, "http://", vbTextCompare) Then Call url_Test(Worksheets("Input_Format_A").Cells(myRow, 2).value, "C:\mallet\test\" & Worksheets("Input_Format_A").Cells(myRow, 1).value & ".txt") 
     myRow = myRow + 1 
    Else 
     Open "C:\mallet\test\" & Worksheets("Input_Format_A").Cells(myRow, 1) & ".txt" For Append As #1 
     Print #1, Worksheets("Input_Format_A").Cells(myRow, 2).value 
     Close #1 

     myRow = myRow + 1 
    End If 
Wend 
End Sub 


Sub url_Test(URL As String, Filename As String) 

Dim FSO As Object 
Dim ieApp As Object 
Dim Txt As String 
Dim TxtFile As Object 

Set FSO = CreateObject("Scripting.FileSystemObject") 
Set TxtFile = FSO.OpenTextFile(Filename, 2, True, -1) 

Set ieApp = CreateObject("InternetExplorer.Application") 
ieApp.Visible = True 
ieApp.Navigate URL 

While ieApp.Busy Or ieApp.ReadyState <> 4 
    DoEvents 
Wend 

Txt = ieApp.Document.body.innerText 
TxtFile.Write Txt 
TxtFile.Close 

ieApp.Quit 

Set ieApp = Nothing 
Set FSO = Nothing 
End Sub 

Answer 1

與第一If行了，你必須去到一個新行Then後，否則你If將隱含關閉。

'Good (in this case) 
If <condition> Then  
    DoSomething 
    myRow = myRow + 1 
Else 
    DoSomething Different 
End if 


'NOT good 
If <condition> Then DoSomething 
    'the if is now "closed" !!! 
    myRow = myRow + 1 
Else 
    DoSomething Different 
End if