從 Internet Explorer 檢索 URL

Question

我在以下方面苦苦掙扎：我嘗試打開一個 URL（鏈接），重定向到一個新的 URL 並將這個新的 URL 檢索到我的 ZBF57C906FA7D2BB66D966D96ZD 工作表中的單元格中。

我編寫了以下代碼，但它沒有檢索新的 URL 並且最后沒有退出 Internet Explorer：

Sub Get_URL()

Dim ISIN As String
Dim Link As String
Dim IE As Object

ISIN = Range("A1").Value
Link = "https://www.finanzen.net/suchergebnis.asp?_search=" & ISIN

Set IE = CreateObject("InternetExplorer.Application")
With IE
    .Visible = True
    .Navigate Link
End With

Range("A2") = IE.LocationURL
Set IE = Nothing
IE.Quit

End Sub

A1 中的 ISIN 是KYG875721634 。 如果你們中的一些人能找到問題，我會很高興。 非常感謝，你好，羅賓

Answer 1

這行得通。 請閱讀評論：

Sub Get_URL()

Dim ISIN As String
Dim Link As String
Dim IE As Object

  'ISIN = Range("A1").Value
  ISIN = "KYG875721634"
  Link = "https://www.finanzen.net/suchergebnis.asp?_search=" & ISIN
  
  Set IE = CreateObject("InternetExplorer.Application")
  With IE
    .Visible = True
    .Navigate Link
  End With
  'You must wait to load the page
  Do While IE.readystate <> 4: DoEvents: Loop
  
  'Range("A2") = IE.LocationURL
  MsgBox IE.LocationURL
  
  'First quit the IE
  'because this step needs the reference ;-)
  IE.Quit
  Set IE = Nothing
End Sub

Answer 2

您的代碼中有兩個問題：

1. 您需要添加等待加載頁面。

    Do Until IE.readyState = 4 DoEvents Loop

2. 首先退出IE。 如果您首先將 IE 設置為 Nothing，則退出時將不會引用 IE。

    IE.Quit Set IE = Nothing

最終的代碼是這樣的，可以很好地工作：

Sub Get_URL()

Dim ISIN As String
Dim Link As String
Dim IE As Object

ISIN = Range("A1").Value
Link = "https://www.finanzen.net/suchergebnis.asp?_search=" & ISIN

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate Link
Do Until IE.readyState = 4
   DoEvents
Loop

Range("A2") = IE.LocationURL
IE.Quit
Set IE = Nothing

End Sub

結果：