標題: [發問] 下載大量網頁 [打印本頁]

---

作者: jak    時間: 2012-10-2 13:04     標題: 下載大量網頁

本帖最後由 jak 於 2012-10-2 13:06 編輯

我想要擷取這個網頁每一家上市櫃公司的資料
http://jsjustweb.jihsun.com.tw/z/zc/zcj/zcj_1101.djhtm
才剛學VBA,寫不出東西請大家指教,
以下是參考各位前輩們寫的程式湊出來的,還請前輩們見諒

Sub Test()
Dim url As String
Stk = [A1].Value
url = "http://jsjustweb.jihsun.com.tw/z/zc/zcj/zcj_" & Stk & ".djhtm"
Cells.Clear
    Set ie = CreateObject("internetexplorer.application")
    With ie
        .Visible = False
        .Navigate url
        Do While .ReadyState <> 4
            DoEvents
        Loop
        .ExecWB 17, 2
        .ExecWB 12, 2
        Sheets("Sheet1").Cells.Select
        Range("A1").Activate
        ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
                False, NoHTMLFormatting:=True
    End With
    Columns("A:B").Delete
    ie.Quit
    MsgBox
End Sub

在SHEET1的A1輸入號碼,只能一家一家下載,要如何讓它自動大量下載呢?

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)