返回列表 上一主題 發帖

[發問] 一個用VBA從網頁取得想要資料的寫法~

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
1  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2024-4-26 
1# 跳轉到 »
發表於 2017-6-26 16:21 | 顯示全部帖子
請教一下!    我想下載http://isin.twse.com.tw/isin/C_public.jsp?strMode=2    上面的資料， 使用white5168大的 VBA碼， 出現"Class WorksheetSpecial方法失敗"。請問是哪裡有問題?


Sub Test()
    Const url As String = "http://isin.twse.com.tw/isin/C_public.jsp?strMode=2"
    Cells.Clear
    Set ie = CreateObject("internetexplorer.application") '使用此方式可以免除 "設定引用項目"
    With ie
        .Visible = False 'True為開啟ie, False為不開啟ie
        .Navigate url
        Do While .ReadyState <> 4 '等待網頁開啟
            DoEvents
        Loop
        .ExecWB 17, 2 'Select All
        .ExecWB 12, 2 'Copy selection
        Sheets("工作表1").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

TOP

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
1  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2024-4-26 
2#
發表於 2017-6-26 23:16 | 顯示全部帖子
解決了!

討論區內找到一篇 相關的貼文
[上市個股日成交資訊下載改版建議]
http://forum.twbts.com/viewthrea ... amp;from=indexheats

由該篇 joey0415大 提供的 VBA碼 小改一下就OK了!


Sub 股票代碼更新()

    Cells.Clear
    surl = "http://isin.twse.com.tw/isin/C_public.jsp?strMode=2"
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:="URL;" & surl, Destination:=Range("$A$1"))
        .Refresh BackgroundQuery:=False
    End With
   
   
End Sub

TOP

        靜思自在 : 虛空有盡．我願無窮，發願容易行願難。
返回列表 上一主題