如果您的程式一直顯示 430 或執行階段錯誤 2147417848（80010108），那很有可能是您的程式沒有正確地執行物件的初始化（initialization）。

在您的程式中，您使用了 CreateObject 函數來建立 Internet Explorer 物件，並在建立物件後直接進行設定和操作，沒有正確地初始化物件。這會導致程式無法正確執行，並且出現上述錯誤訊息。

為了解決這個問題，您需要在建立物件後先使用 Set 語法將物件設定給一個變數，再進行設定和操作。例如，您可以將下面這段程式碼：

Set ie = CreateObject("internetexplorer.application")

With ie
.Visible = False
.navigate url
Do While .Readystate <> 4
Loop
.ExecWB 17, 2
.ExecWB 12, 2
Sheets("臨時").Activate
Sheets("臨時").Cells(1, 1).Select
ActiveSheet.PasteSpecial Format:="HTML"
End With
改寫成下面這樣：

Dim ie As Object
Set ie = CreateObject("internetexplorer.application")

With ie
.Visible = False
.navigate url
Do While .Readystate <> 4
Loop
.ExecWB 17, 2
.ExecWB 12, 2
Sheets("臨時").Activate
Sheets("臨時").Cells(1, 1).Select
ActiveSheet.PasteSpecial Format:="HTML"
End With

這樣，您的程式就可以正常執行，不會再出現 430 或 2147417848（80010108）錯誤了