- 帖子
- 4
- 主題
- 2
- 精華
- 0
- 積分
- 12
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- 7
- 閱讀權限
- 10
- 註冊時間
- 2012-4-4
- 最後登錄
- 2017-3-6
|
本帖最後由 GBKEE 於 2016-2-18 12:54 編輯
網址： http://www.twse.com.tw/ch/tradin ... T/MI_5MINS_HIST.php
<input type=button class="board" value="查詢" onclick="date_form.submit();" >
查詢鈕 無法點擊，跑出的資料非設定的查詢資料，
請教 如何修改下列程式碼
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Row = 8 And .Column = 1 Then
If .Value <> 10 Then
Dim A As Object, xDate As Date, EDATE As Date
Dim myear, mmon
'myear = Year(Worksheets("匯總").Cells(8, 1)) - 1911
'mmon = Month(Worksheets("匯總").Cells(8, 1))
'***********測試用
'抓到有為止(只抓5天)，5天都抓不到也提示
Worksheets("加權指").Select
EDATE = Date
xDate = EDATE
xDate = Worksheets("匯總").Cells(8, 1)
'*************
'xDate = Date '正式常程式碼
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "http://www.twse.com.tw/ch/trading/indices/MI_5MINS_HIST/MI_5MINS_HIST.php"
Do While .Busy Or .readyState <> 4: DoEvents: Loop
Ie_Refresh:
With .Document
.ALL("myear").Value = Year(xDate) - 1911 '日期可修改
.ALL("mmon").Value = Format(Month(xDate), "0#")
.ALL("查詢").Click
End With
Do While .Busy Or .readyState <> 4: DoEvents: Loop
If InStr(.Document.BODY.innerText, "查無資料") Then
If xDate >= EDATE Then '測試用********
'If xDate + 4 >= Date Then '正式常程式碼
Debug.Print xDate '驗證用 可刪除
xDate = xDate - 1
GoTo Ie_Refresh
End If
.Quit
MsgBox Format(xDate, "E/MM/DD") & " 查無資料"
Exit Sub
End If
Set A = .Document.GetElementsByTagName("table")
.Document.BODY.innerHTML = A(10).outerHTML '取最後的一個"table"
Do While .Busy Or .readyState <> 4: DoEvents: Loop
.ExecWB 17, 2 ' Select All
.ExecWB 12, 2 ' Copy selection
'.Quit '關閉網頁
With ActiveSheet '可指定工作表
.UsedRange.Clear
.Range("A1").Select
.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NOHTMLFormatting:=True
Worksheets("匯總").Select
End With
End With
Else: .Offset(0, 1) = ""
End If
End If
End With
End Sub |
|
發表於 2015-3-25 21:40
| 
