從excel逐個打開鏈接到Internet Explorer

我在Excel中有超過100個鏈接，我想在Internet Explorer中逐一打開它們。分配給我的計算機有點慢，這就是爲什麼只需在Internet Explorer的一個選項卡中打開鏈接的原因。從excel逐個打開鏈接到Internet Explorer

我想：從A1

1.複印鏈接，將其粘貼到Internet Explorer。

2.等待頁面完全加載。

3.從A2複製鏈接，粘貼到Internet Explorer（相同的選項卡，不打開新選項卡）。

4.等待頁面完全加載。

5.重複步驟，直到帶有鏈接的「A」的最後一個單元格。

在下面的代碼中，我可以導航從A1的鏈接。你怎麼能循環它，它會從導航小區1到小區X

Sub OpenInAnotherBrowser() 
Dim iePath As String 
Dim browser As String 
Dim URL As String 

iePath = "C:\Program Files\Internet Explorer\iexplore.exe" 

If Dir(iePath) = "" Then pathie = "C:\Program Files\Internet Explorer\iexplore.exe" 

URL = ActiveSheet.Range("A1").Value 

If Dir(iePath) = "" Then 
    If MsgBox("IE Not Found, Open with default browser?", vbQuestion + vbYesNo) = vbYes Then 
     Application.FollowHyperlink URL 
     Exit Sub 
    End If 
End If 

Shell """" & iePath & """" & URL, vbHide 

End Sub

來源

2017-04-03 carlosng07

似曾相識？我確信我在上週左右看到了這個完全相同的問題。 – YowE3K

我編輯了代碼。有點相同的問題。 – carlosng07

此代碼循環在Sheet1 A列中的鏈接。注意斷開的鏈接和類似的東西，因爲在這段代碼中沒有檢查這些東西。

Sub Main() 

Dim IE As Object 
Dim rngURL As Range 
Dim rng As Range 

' not perfect, but it is a quick way to keep VBA from looping through 1000000+ rows without using a bunch of ifs.... 
Set rngURL = Intersect(Sheet1.UsedRange, Sheet1.Columns("A")) 

Set IE = CreateObject("internetexplorer.application") 

IE.Visible = True 

For Each rng In rngURL 

    rng.Select 

    If Trim(rng.Value) <> "" Then 

     IE.Navigate Trim(rng.Value) 

     Do While IE.ReadyState <> READYSTATE_COMPLETE 
     Loop 

     MsgBox IE.LocationURL ' This is just to slow things down a little bit 

    End If 

Next rng 

IE.Quit 

End Sub

來源

2017-04-03 11:29:45

Lungdren。這裏有一個錯誤：IE.Navigate Trim（rng.Value） – carlosng07

從excel逐個打開鏈接到Internet Explorer

回答

相關問題