Minggu, 02 November 2014

[smf_addin] Digest Number 3228

6 Messages

Digest #3228

Messages

Sat Nov 1, 2014 3:59 am (PDT) . Posted by:

alankc_mok

Randy,


I have been successfully using your add in to get US Stock Options Quote. Currently, I want to get the data for HK Stock Options.


https://www.hkex.com.hk/eng/ddp/Contract_Details.asp?PId=157 https://www.hkex.com.hk/eng/ddp/Contract_Details.asp?PId=157



I am new to RchGetTableCell and may I ask how can I get the Last Traded for C Nov-14 - 120.00, P Nov-14 - 120.00 ?


Thanks


Alan




Sat Nov 1, 2014 4:14 am (PDT) . Posted by:

"Randy Harmelink" rharmelink

Actually, both can be done with the simplest form of the function:

=RCHGetTableCell("
https://www.hkex.com.hk/eng/ddp/Contract_Details.asp?PId=157",4,"C Nov-14 -
120.00")
=RCHGetTableCell("
https://www.hkex.com.hk/eng/ddp/Contract_Details.asp?PId=157",4,"P Nov-14 -
120.00")

On Sat, Nov 1, 2014 at 3:59 AM, alankc_mok@yahoo.com [smf_addin] <
smf_addin@yahoogroups.com> wrote:

> I have been successfully using your add in to get US Stock Options
> Quote. Currently, I want to get the data for HK Stock Options.
>
> https://www.hkex.com.hk/eng/ddp/Contract_Details.asp?PId=157
>
> I am new to RchGetTableCell and may I ask how can I get the Last Traded
> for C Nov-14 - 120.00, P Nov-14 - 120.00 ?
>

Sat Nov 1, 2014 6:25 am (PDT) . Posted by:

alankc_mok

Randy,

Thanks for your prompt reply.

Appreciated.

Alan

Sat Nov 1, 2014 10:48 am (PDT) . Posted by:

dsellari

Would it be possible to add flags or optional parameters to allow bypassing the code
I have commented out? They seem to cause problems especially then Calculate Full procedures. Thanks.


Public Sub smfForceRecalculation()

'If Val(Application.Version) < 10 Then
' Application.CalculateFull
'Else
' Application.CalculateFullRebuild
' End If
End Sub


Public Function RCHGetURLData1(pURL As String, _
Optional ByVal pType As String = "GET") As String

Do While bASync
'DoEvents
If oHTTP.ReadyState = 4 Then Exit Do



Sat Nov 1, 2014 4:14 pm (PDT) . Posted by:

"Randy Harmelink" rharmelink

Sorry, but your request makes no sense to me.

There's no point in running smfForceRecalculation if you don't want to
recalculate.

And the "bASync" is already a flag to indicate whether it should do events
until the Asynchronous call completes...that was the whole point of adding
it. Just leave it in the default synchronous mode if you don't want that
processing.

On Sat, Nov 1, 2014 at 10:48 AM, don@cemero... wrote:

>
> Would it be possible to add flags or optional parameters to allow
> bypassing the code
> I have commented out? They seem to cause problems especially then
> Calculate Full procedures. Thanks.
>
> Public Sub smfForceRecalculation()
>
> 'If Val(Application.Version) < 10 Then
> ' Application.CalculateFull
> 'Else
> ' Application.CalculateFullRebuild
> ' End If
> End Sub
>
>
> Public Function RCHGetURLData1(pURL As String, _
> Optional ByVal pType As String = "GET") As String
>
> Do While bASync
> 'DoEvents
> If oHTTP.ReadyState = 4 Then Exit Do
>

Sat Nov 1, 2014 8:57 pm (PDT) . Posted by:

tzewei_79

Hi Randy,

I think yahoo is very unstable....their links keep changing. Just yesterday I can see your smfConvertData works but today it gave error because the link does not show any fiancial statement...I'm switching to barchart or zacks. Thanks.

For the Add-in, Documentation, Templates, Tips and FAQs, visit http://ogres-crypt.com/SMF

Tidak ada komentar:

Posting Komentar