返回列表下一主題上一主題發帖

[發問] 下載大量網頁

jak

中學生 Rank: 2

帖子: 36
主題: 7
精華: 0
積分: 76
點名: 0
作業系統: XP
軟體版本: 2007
閱讀權限: 20
性別: 男
註冊時間: 2012-10-1
最後登錄: 2016-3-21

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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輸入號碼,只能一家一家下載,要如何讓它自動大量下載呢?

樓主熱帖

靜思自在 : 能善用時間的人，必能掌握自己努力的方向。

返回列表下一主題上一主題