VBA：調用函數

訪問時墜毀，並沒有錯誤調用此VBA：調用函數

Public IE As InternetExplorer 
Private Declare Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) 
Dim el As Object 

Public Function IEClick(Idstr As String) 
Do 
    Set el = Nothing 
    On Error Resume Next 
    Set el = IE.Document.getElementById(Idstr) 
    On Error GoTo 0 
    DoEvents 
    Sleep (100) 
Loop While el Is Nothing 
Sleep (1000) 
IE.Document.getElementById(Idstr).Click 
End Function

其時，真正的循環，直到找到正確的elementid我有一個問題。當這個函數被調用像這樣的時候，我在這條線上沒有錯誤信息IEClick Str(Item)。

For Each Item In coll 
    IEClick Str(Item) 
    p = p + 1 
Next

這是完整的代碼體。

Public Sub AutoExtract() 
Dim ProgressBar_Extract As Object 
Dim coll As Collection 
Set coll = New Collection 

'/////////////////controls in order/////////////// 
With coll 
    .Add "ctl00_cmdCustom" 
    .Add "chkAll" 
    .Add "ctl00_cmdContinue" 
End With 
Me.ProgressBar_Extract.Max = coll.Count 
'////////////////////start ie////////////////// 
Set IE = New InternetExplorerMedium 
With IE 
    '.AddressBar = False 
    '.MenuBar = False 
    .Navigate ("*****") 
    .Visible = True 
End With 
'//////////////////////Start Automation/////////////////// 
For Each Item In coll 
    IEClick Str(Item) 
    p = p + 1 
Next 
MsgBox "Extract Complete" 
End Sub

我把範圍縮小到IEClick Str(Item)。當調試，如果我制止它，一步下一個崩潰行。

來源

2017-06-19 Quint

*「沒有錯誤信息時崩潰」*是什麼意思？它鎖定？或者它關閉（然後Access進程仍然運行？）？ – Andre

@Andre關閉進程沒有運行。 – Quint

作爲第一步，我推薦一個完整的[反編譯]（http://stackoverflow.com/a/3268188/3820271）。 – Andre

1）不使用Item作爲變量名，它是在VBA（Collection.Item的保留字）

2）將Option Explicit在每個模塊的頂部。
它執行變量聲明並在編譯時報告未聲明或拼寫錯誤的變量/常量。要在新模塊中自動執行此操作，請在VBA編輯器中設置Require Variable Declaration選項。

3）我無法重現崩潰，但在使用字符串參數調用Str()時出現運行時錯誤。

試試這個：

Option Explicit 

Public Sub TestCrash() 

    Dim coll As Collection 
    Dim vItem As Variant 

    Set coll = New Collection 

    With coll 
     .Add "ctl00_cmdCustom" 
     .Add "chkAll" 
     .Add "ctl00_cmdContinue" 
    End With 

    For Each vItem In coll 
     ' Gives Runtime error 13 "Type mismatch" 
     ' Debug.Print Str(vItem) 

     ' This works 
     Debug.Print vItem 
    Next 

End Sub

，如果它的工作原理，適應你的代碼。

來源

2017-06-19 13:28:29 Andre

謝謝你的幫助安德烈。我會放棄這一點並讓你知道。 – Quint

如果答案解決了您的問題，您可以[接受它]（http://stackoverflow.com/help/someone-answers），這也標誌着問題已解決。 @Quint – Andre

VBA：調用函數

回答

相關問題