¦p¦ó¤U¸üSGX NLT ´Á³f¤Î¿ï¾ÜÅv¸ê®Æ
- ©«¤l
- 29
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOW XP
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TAIPEI
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2021-11-24
|
¦p¦ó¤U¸üSGX NLT ´Á³f¤Î¿ï¾ÜÅv¸ê®Æ
http://www.sgx.com/wps/portal/sgxweb/home/marketinfo/derivatives/Nlt
¦p¦ó¥HVBA «ö"HERE"
Please click HERE to download the text file.
¤U¸üNLT_FUT.UNL ¤Î NLT_OPT.UNL |
|
|
|
|
|
|
- ©«¤l
- 361
- ¥DÃD
- 57
- ºëµØ
- 0
- ¿n¤À
- 426
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2003,2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-13
- ³Ì«áµn¿ý
- 2022-12-8
|
¦^´_ 1# chwqk
postªº¤º®e¤Ó¦h¡A§ï¥Î¥t¤@ºØ¤èªk- Sub SGX_NLT_´Á³f¤Î¿ï¾ÜÅv¸ê®Æ()
- Dim URL As String, shts As Worksheet
- Dim x As Variant, xi As Integer, A As Object, xlHtm
- Set shts = ActiveSheet ' '("¤u§@ªí2")
- shts.Cells.Clear
- URL = "http://www.sgx.com/wps/portal/sgxweb/home/marketinfo/derivatives/Nlt"
- With CreateObject("InternetExplorer.Application")
- .Visible = True ' ¬O§_Åã¥Ü IE
- .Navigate URL
- Do While .ReadyState <> 4 Or .Busy
- DoEvents
- Loop
- Application.Wait Now + TimeValue("00:00:06")
- xlHtm = .Document.body.innerHTML 'Àx¦s
- Set A = .Document.getElementsBytagname("table")
- For xi = 116 To 118 Step 2
- .Document.body.innerHTML = A(xi).outerHTML
- .ExecWB 17, 2 ' Select All
- .ExecWB 12, 2 ' Copy selection
- With shts
- .Range("A" & .[A1048576].End(xlUp).Row + 1).Select
- .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
- End With
- .Document.body.innerHTML = xlHtm 'ÁÙì
- Next xi
- shts.Cells.EntireColumn.AutoFit ' ¦Û°Ê½Õ¾ãÄæ¼e
- .Quit
- End With
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 29
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOW XP
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TAIPEI
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2021-11-24
|
RE: ¦p¦ó¤U¸üSGX NLT ´Á³f¤Î¿ï¾ÜÅv¸ê®Æ
With shts
.Range("A" & .[A1048576].End(xlUp).Row + 1).Select
.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
End With
¸g´ú¸Õ ¦¹¬q°õ¦æ¥X¿ù
½Ð°Ý
.Range("A" & .[A1048576].End(xlUp).Row + 1).Select
¨ä¤¤ 1048576 ¬O§_¦]¬°¶W¥X excel¤u§@ªí¦C¼Æ ¦Ó¥X¿ù |
|
|
|
|
|
|
- ©«¤l
- 361
- ¥DÃD
- 57
- ºëµØ
- 0
- ¿n¤À
- 426
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2003,2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-13
- ³Ì«áµn¿ý
- 2022-12-8
|
¦^´_ 3# chwqk
ª©§ï¦¨
.Range("A" & .[A65535].End(xlUp).Row + 1).Select |
|
|
|
|
|
|
- ©«¤l
- 29
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOW XP
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TAIPEI
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2021-11-24
|
ÁÂÁÂ JOEY0415
¤w¥i¥H¨Ï¥Î
¦ý·Q¤F¸Ñ
For xi = 116 To 118 Step 2
¬°¦ó¬O xi = 116 To 118
¥t¥~ Step 2 ¬O¬Æ»ò·N«ä ?? |
|
|
|
|
|
|
- ©«¤l
- 29
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 50
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOW XP
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TAIPEI
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2021-11-24
|
½Ð±Ð³Ìªñsgx¤S§ïª©
http://www.sgx.com/wps/portal/sgxweb/home/marketinfo/derivatives/Nlt
http://www.sgx.com/wps/portal/sgxweb_ch/home/marketinfo/derivatives/Nlt
§ì¤£¨ì¸ê®Æ
¦p¦ó×¥¿ |
|
|
|
|
|
|
- ©«¤l
- 361
- ¥DÃD
- 57
- ºëµØ
- 0
- ¿n¤À
- 426
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- 2003,2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-13
- ³Ì«áµn¿ý
- 2022-12-8
|
¦^´_ 6# chwqk - Sub SGX_NLT_1()
- Dim URL As String, shts As Worksheet
- Dim x As Variant, xi As Integer, A As Object, xlHtm
- Set shts = ActiveSheet ' '("¤u§@ªí2")
- shts.Cells.Clear
- URL = "http://www.sgx.com/wps/portal/sgxweb/home/marketinfo/derivatives/Nlt"
- With CreateObject("InternetExplorer.Application")
- .Visible = True ' ¬O§_Åã¥Ü IE
- .Navigate URL
- Do While .ReadyState <> 4 Or .Busy
- DoEvents
- Loop
- Application.Wait Now + TimeValue("00:00:06")
- xlHtm = .Document.body.innerHTML 'Àx¦s
- Set A = .Document.getElementsBytagname("table")
- For xi = 74 To 74
- .Document.body.innerHTML = A(xi).outerHTML
- .ExecWB 17, 2 ' Select All
- .ExecWB 12, 2 ' Copy selection
- With shts
- .Range("A" & .[A1048576].End(xlUp).Row + 1).Select
- .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
- End With
- .Document.body.innerHTML = xlHtm 'ÁÙì
- Next xi
- shts.Cells.EntireColumn.AutoFit ' ¦Û°Ê½Õ¾ãÄæ¼e
- .Quit
- End With
- End Sub
½Æ»s¥N½X- Sub SGX_NLT_2()
- Dim URL As String, shts As Worksheet
- Dim x As Variant, xi As Integer, A As Object, xlHtm
- Set shts = ActiveSheet ' '("¤u§@ªí2")
- shts.Cells.Clear
- URL = "http://www.sgx.com/wps/portal/sgxweb_ch/home/marketinfo/derivatives/Nlt"
- With CreateObject("InternetExplorer.Application")
- .Visible = True ' ¬O§_Åã¥Ü IE
- .Navigate URL
- Do While .ReadyState <> 4 Or .Busy
- DoEvents
- Loop
- Application.Wait Now + TimeValue("00:00:06")
- xlHtm = .Document.body.innerHTML 'Àx¦s
- Set A = .Document.getElementsBytagname("table")
- For xi = 113 To 115 Step 2
- .Document.body.innerHTML = A(xi).outerHTML
- .ExecWB 17, 2 ' Select All
- .ExecWB 12, 2 ' Copy selection
- With shts
- .Range("A" & .[A1048576].End(xlUp).Row + 1).Select
- .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
- End With
- .Document.body.innerHTML = xlHtm 'ÁÙì
- Next xi
- shts.Cells.EntireColumn.AutoFit ' ¦Û°Ê½Õ¾ãÄæ¼e
- .Quit
- End With
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|