- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 1# go2hk - Option Explicit
- Sub Ex()
- Dim IE As New InternetExplorer, URL As String, A As Object
- '宣告 Dim ie As New InternetExplorer
- '須在工具-> 設定引用項目加入 新增引用 Microsoft Internet Controls
- URL = "http://stockchannel.sinotrade.com.tw/z/zg/zge/zge_EH000027_1.djhtm"
- With IE
- .Navigate URL
- ' .Visible = True
- Do While .Busy Or .readyState <> 4: Loop
- Set A = .document.getElementsByTagName("TABLE")
- Ep A(2).outerHTML
- .Quit
- End With
- End Sub
- Sub Ep(S As String)
- Dim D As New DataObject
- 'DataObject 物件 在進行轉換動作時，做為格式化文字資料的暫存區域。其也可以暫存和儲存在 DataObject 的文字片段相關的格式。
- '宣告 Dim D As New DataObject
- '須在工具-> 設定引用項目加入 新增引用 Microsoft Forms 2.0 Object Library ,專案 加入一表單即可
- With D
- .SetText S
- .PutInClipboard
- With ActiveSheet
- .UsedRange.Clear
- .Paste .[A1]
- .Shapes.SelectAll
- Selection.Delete
- .Hyperlinks.Delete
- End With
- End With
- End Sub
|
|
發表於 2014-4-17 20:54
| 