[發問] vba開多網頁

jun2460

下載 (15.68 KB)

2015-5-29 19:06

請問各位大大~

每日要下載很多網頁去下載資料，vba要怎麼寫出，讓他去開啟e2跟e3的網頁~~因為我只會用錄的怎麼錄都無法成功，可以請大家幫忙~感謝不盡~

mark15jill

回復 1# jun2460


    提供另外一種方式...

    Ex： IE瀏覽器 開 yahoo網頁   
           步驟1：開啟記事本
           步驟2：輸入格式 ：start  瀏覽器名稱.exe   想要開啟的網址  ：   start iexplore.exe www.yahoo.com.tw
           步驟3：檔案→另存新檔→檔案類型選"全部"  檔案名稱打 你要的名稱.bat
           步驟4：開起步驟3的執行檔




(建議一次不要太多，因為太多的話有時會跳過讓過...)

jun2460

回復 2# mark15jill


    感謝您的分享!

GBKEE

回復 3# jun2460

試試看

1. Sub Ex_Ie_ADD()
   
2. Dim AR(1 To 4) As String, objShell As Object, E As Object, Ie(1 To 4) As Object, i As Integer
   
3.    
   
4.     AR(1) = "http://forum.twbts.com/"
   
5.     AR(2) = "http://forum.twbts.com/forum-5-1.html"
   
6.     AR(3) = "http://forum.twbts.com/forum-6-1.html"
   
7.     AR(4) = "http://forum.twbts.com/forum-7-1.html"
   
8.    
   
9.     Set objShell = CreateObject("shell.application")
   
10.     If objShell.Windows.Count = 0 Then                              '網際網路沒有開啟
    
11.         Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE", 2  ' (2  應用程式視窗會以一個圖示來顯示，並具有駐點)
    
12.     End If
    
13.    
    
14.     For Each E In objShell.Windows
    
15.         Do While E.BUSY:   DoEvents:  Loop '等候 網頁 開啟完畢
    
16.     Next
    
17.     For i = 1 To 4
    
18.         objShell.Windows(0).Navigate2 AR(i), CLng(2048)  '新開網頁
    
19.     Next
    
20.     For Each E In objShell.Windows
    
21.        Do While E.BUSY: DoEvents:  Loop '等候 新開網頁  開啟完畢
    
22.         For i = 1 To 4
    
23.             If E.LocationURL = AR(i) Then Set Ie(i) = E          '設定變數=新開網頁
    
24.         Next
    
25.     Next
    
26. End Sub

複製代碼

jun2460

回復 4# GBKEE


    萬分感謝您的分享