返回列表 上一主題 發帖

如何下載SGX NLT 期貨及選擇權資料

chwqk
　暱稱: 吳世

中學生Rank: 2

帖子
29 
主題
15 
精華
0 
積分
50 
點名
0  
作業系統
WINDOW XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
TAIPEI 
註冊時間
2010-5-4 
最後登錄
2021-11-24 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2015-1-22 19:30 | 只看該作者

如何下載SGX NLT 期貨及選擇權資料

http://www.sgx.com/wps/portal/sgxweb/home/marketinfo/derivatives/Nlt

如何以VBA 按"HERE"
Please click HERE to download the text file.
下載NLT_FUT.UNL 及 NLT_OPT.UNL
收藏 分享

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
7#
發表於 2015-6-20 21:48 | 只看該作者
回復 6# chwqk
  1. Sub SGX_NLT_1()
  2.     Dim URL As String, shts As Worksheet
  3.     Dim x As Variant, xi As Integer, A As Object, xlHtm
  4.     Set shts = ActiveSheet '  '("工作表2")
  5.     shts.Cells.Clear
  6.     URL = "http://www.sgx.com/wps/portal/sgxweb/home/marketinfo/derivatives/Nlt"
  7.     With CreateObject("InternetExplorer.Application")
  8.         .Visible = True     '  是否顯示 IE
  9.         .Navigate URL
  10.          Do While .ReadyState <> 4 Or .Busy
  11.                 DoEvents
  12.             Loop
  13.         Application.Wait Now + TimeValue("00:00:06")

  15.         xlHtm = .Document.body.innerHTML                '儲存
  16.         Set A = .Document.getElementsBytagname("table")
  17.         For xi = 74 To 74
  18.             .Document.body.innerHTML = A(xi).outerHTML
  19.             .ExecWB 17, 2       '  Select All
  20.             .ExecWB 12, 2       '  Copy selection
  21.             With shts
  22.                 .Range("A" & .[A1048576].End(xlUp).Row + 1).Select
  23.                 .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
  24.             End With
  25.             .Document.body.innerHTML = xlHtm                  '還原
  26.         Next xi
  27.         shts.Cells.EntireColumn.AutoFit     '  自動調整欄寬
  28.         .Quit
  29.     End With
  30. End Sub
複製代碼
  1. Sub SGX_NLT_2()
  2.     Dim URL As String, shts As Worksheet
  3.     Dim x As Variant, xi As Integer, A As Object, xlHtm
  4.     Set shts = ActiveSheet '  '("工作表2")
  5.     shts.Cells.Clear
  6.     URL = "http://www.sgx.com/wps/portal/sgxweb_ch/home/marketinfo/derivatives/Nlt"
  7.     With CreateObject("InternetExplorer.Application")
  8.         .Visible = True     '  是否顯示 IE
  9.         .Navigate URL
  10.          Do While .ReadyState <> 4 Or .Busy
  11.                 DoEvents
  12.             Loop
  13.         Application.Wait Now + TimeValue("00:00:06")

  15.         xlHtm = .Document.body.innerHTML                '儲存
  16.         Set A = .Document.getElementsBytagname("table")
  17.         For xi = 113 To 115 Step 2
  18.             .Document.body.innerHTML = A(xi).outerHTML
  19.             .ExecWB 17, 2       '  Select All
  20.             .ExecWB 12, 2       '  Copy selection
  21.             With shts
  22.                 .Range("A" & .[A1048576].End(xlUp).Row + 1).Select
  23.                 .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
  24.             End With
  25.             .Document.body.innerHTML = xlHtm                  '還原
  26.         Next xi
  27.         shts.Cells.EntireColumn.AutoFit     '  自動調整欄寬
  28.         .Quit
  29.     End With
  30. End Sub
複製代碼

TOP

chwqk
　暱稱: 吳世

中學生Rank: 2

帖子
29 
主題
15 
精華
0 
積分
50 
點名
0  
作業系統
WINDOW XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
TAIPEI 
註冊時間
2010-5-4 
最後登錄
2021-11-24 
6#
發表於 2015-6-18 00:25 | 只看該作者
請教最近sgx又改版
http://www.sgx.com/wps/portal/sgxweb/home/marketinfo/derivatives/Nlt
http://www.sgx.com/wps/portal/sgxweb_ch/home/marketinfo/derivatives/Nlt

抓不到資料
如何修正

TOP

chwqk
　暱稱: 吳世

中學生Rank: 2

帖子
29 
主題
15 
精華
0 
積分
50 
點名
0  
作業系統
WINDOW XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
TAIPEI 
註冊時間
2010-5-4 
最後登錄
2021-11-24 
5#
發表於 2015-1-29 20:21 | 只看該作者
謝謝 JOEY0415
已可以使用

但想了解
    For xi = 116 To 118 Step 2
  為何是 xi = 116 To 118

另外 Step 2 是甚麼意思  ??

TOP

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
4#
發表於 2015-1-29 12:29 | 只看該作者
回復 3# chwqk

舊版改成

.Range("A" & .[A65535].End(xlUp).Row + 1).Select

TOP

chwqk
　暱稱: 吳世

中學生Rank: 2

帖子
29 
主題
15 
精華
0 
積分
50 
點名
0  
作業系統
WINDOW XP 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
TAIPEI 
註冊時間
2010-5-4 
最後登錄
2021-11-24 
3#
發表於 2015-1-29 08:43 | 只看該作者

RE: 如何下載SGX NLT 期貨及選擇權資料

With shts
                .Range("A" & .[A1048576].End(xlUp).Row + 1).Select
                .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
            End With

經測試 此段執行出錯
               請問
               .Range("A" & .[A1048576].End(xlUp).Row + 1).Select
         其中 1048576 是否因為超出 excel工作表列數 而出錯

TOP

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
2#
發表於 2015-1-26 00:06 | 只看該作者
回復 1# chwqk

post的內容太多，改用另一種方法
  1. Sub SGX_NLT_期貨及選擇權資料()
  2.     Dim URL As String, shts As Worksheet
  3.     Dim x As Variant, xi As Integer, A As Object, xlHtm
  4.     Set shts = ActiveSheet '  '("工作表2")
  5.     shts.Cells.Clear
  6.     URL = "http://www.sgx.com/wps/portal/sgxweb/home/marketinfo/derivatives/Nlt"
  7.     With CreateObject("InternetExplorer.Application")
  8.         .Visible = True     '  是否顯示 IE
  9.         .Navigate URL
  10.          Do While .ReadyState <> 4 Or .Busy
  11.                 DoEvents
  12.             Loop
  13.         Application.Wait Now + TimeValue("00:00:06")

  15.         xlHtm = .Document.body.innerHTML                '儲存
  16.         Set A = .Document.getElementsBytagname("table")
  17.         For xi = 116 To 118 Step 2
  18.             .Document.body.innerHTML = A(xi).outerHTML
  19.             .ExecWB 17, 2       '  Select All
  20.             .ExecWB 12, 2       '  Copy selection
  21.             With shts
  22.                 .Range("A" & .[A1048576].End(xlUp).Row + 1).Select
  23.                 .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
  24.             End With
  25.             .Document.body.innerHTML = xlHtm                  '還原
  26.         Next xi
  27.         shts.Cells.EntireColumn.AutoFit     '  自動調整欄寬
  28.         .Quit
  29.     End With
  30. End Sub
複製代碼

TOP

        靜思自在 : 要比誰更受誰．不要比誰更怕誰。
返回列表 上一主題