Question

嘿，我尝试统一构建apk，但有错误。我该怎么解决这个问题？

DoEvents

While IE.readyState <> 4: Wend
Do While IE.readyState = 4 And Not IE.Busy
If IE.readyState = 4 Then
    Exit Do
End If
Sleep 100
DoEvents
Loop

Do While IE.readyState = 4 And Not IE.Busy
Sleep 100
DoEvents:
Loop

DoEvents

Sheet1.Range("A1:K500").ClearContents

Set elemCollection = IE.document.getElementsByTagName("Table")

    For t = 0 To (elemCollection.Length - 1)

        For r = 0 To (elemCollection(t).Rows.Length - 1)
            For c = 0 To (elemCollection(t).Rows(r).Cells.Length - 1)

            MsgBox elemCollection(t).Rows(r).Cells(c).innerText


         If elemCollection(t).Rows(r).Cells(c).fontWeight = 400 Then
                wb.Worksheets(1).Cells(r + 1, c + 1) = elemCollection(t).Rows(r).Cells(c).innerText
                ctr = ctr + 1
           End If


Next c: Next r: Next t: End With: IE.Quit: Set IE = Nothing

Sheet1.Range("A3:F" & Sheet1.Cells(Rows.Count, 1).End(xlUp).Row).Copy
Sheet3.Range("C" & Sheet3.Cells(Rows.Count, 1).End(xlUp).Row).PasteSpecial xlPasteValues
If ctr <> 0 Then
    Sheet3.Range("A" & Sheet3.Cells(Rows.Count, 1).End(xlUp).Row & ":B" & Sheet3.Cells(Rows.Count, 1).End(xlUp).Row).Copy
    Sheet3.Range("A" & Sheet3.Cells(Rows.Count, 1).End(xlUp).Row & ":B" & Sheet3.Cells(Rows.Count, 3).End(xlUp).Row).PasteSpecial xlPasteValuesAndNumberFormats
End If
ctr = 0: Z = 0:
End If
Next:

End Sub

Answer 1

我遇到了相同的错误，并且通过以管理员身份运行的 cmd 重新安装了Android SDK，从而解决了该错误。

希望有帮助！

如果此构建错误不断重复该怎么办

1 个答案: