- 帖子
- 93
- 主題
- 15
- 精華
- 0
- 積分
- 111
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- Office 2010 X86
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-7-3
- 最後登錄
- 2020-12-3
|
感謝大大 解答了 我這兩天的困擾:D
不小心爬文找到下面的程式碼
但是新的問題又來囉 再次麻煩大大了
問題
1. ?myear=" & Myear & "&mmon=" & Mmon 這段程式碼要怎麼取得, 在網頁的網址沒顯示這段
我有請教別人 PHP POST 沒辦法知道 但是 這段程式碼是怎麼弄來的,好奇?
2. 匯入的資料暫存怎麼指定到U欄,AB欄開始 我看不出裡面有語法指定這個位置?- Sub 大盤歷史成交資訊_連續月_排序()
- Dim Q(1 To 2) As QueryTable, xlData As Date, Myear, Mmon, i As Integer
- With Sheets("加權歷史行情")
- .Range("E1").CurrentRegion.Offset(1).Clear
- .Range("E1").CurrentRegion.Select
- Application.ScreenUpdating = False
- Set Q(1) = .QueryTables(1)
- Set Q(2) = .QueryTables(2)
- For i = .[b4] - 1 To 0 Step -1
- xlData = DateAdd("m", -i, DateSerial(.[b1] + 1911, .[b2], 1))
- Myear = Year(xlData) - 1911 '民國年
- Mmon = Format(Month(xlData), "00")
- With Q(1)
- .Connection = "URL;http://www.twse.com.tw/ch/trading/indices/MI_5MINS_HIST/MI_5MINS_HIST.php?myear=" & Myear & "&mmon=" & Mmon ' 問題1
- .WebTables = "8"
- .Refresh BackgroundQuery:=False
- .ResultRange.Offset(2).Copy .Parent.Cells(Rows.Count, "E").End(xlUp).Offset(1)
- End With
- With Q(2)
- .Connection = "URL;http://www.twse.com.tw/ch/trading/exchange/FMTQIK/genpage/Report" & Year(xlData) & Mmon & "/" & Year(xlData) & Mmon & "_F3_1_2.php?STK_NO=&myear=" & Year(xlData) & "&mmon=" & Mmon
- Q(2).WebTables = "8"
- Q(2).Refresh BackgroundQuery:=False
- .ResultRange.Columns(2).Offset(2).Copy .Parent.Cells(Rows.Count, "J").End(xlUp).Offset(1)
- .ResultRange.Columns(6).Offset(2).Copy .Parent.Cells(Rows.Count, "K").End(xlUp).Offset(1)
- End With
- Next
- .Range("E1").CurrentRegion.EntireColumn.AutoFit
- End With
- Application.ScreenUpdating = True
- MsgBox "匯入完成 !!! "
- End Sub
 加權歷史行情.rar (15.27 KB)
|
|
發表於 2013-5-16 21:20
| 
