How to collect stream tick stock data in IE by VBA

Ask Question Forum:

Model Library:2025-02-08 Updated:A.I. model is online for auto reply question page

Show

ASK RECENT

How to collect stream tick stock data in IE by VBA

Asked by duncanb7

at 2024-09-14 09:40:12

Point:500 Replies:5 POST_ID:828367USER_ID:11059

Topic:

Java Programming Language;Visual Basic Programming;JavaScript

I get one stock software Java Applet application running in IE 7, and I know a little of
internet data extraction and Java Applet programming. Now I try to use VBA to
start my project to collect the live data in every minutes into excel file format.
In the market, there is a lot of company provide this kind of service such as the following website
http://www.analyzerxl.com/qtxl.htm, but its target data extraction website is assigned in certain or destinated website address only. It is not helping me at all. SO I try to write the VBA program instead.
First of above, I will use nagviate to locate my website and activate the software application in
the IE instance or window and I found the difficuity to collect the data becase it is Java Script
for Java Applet and it is not easier than collecting table or data from HTML document using
ie.document.getelementbytage or Webquery Excel table. Anyone is familar with the data
collection in IE by VBA, please advise and help on it

Please advise

DUncan

Sub loginonly()Dim myIE As SHDocVw.InternetExplorerSet myIE = NothingSet myIE = CreateObject("InternetExplorer.Application")With myIE .Visible = True.navigate "https://www.dowstock.com.hk/nfs/login.htm?lang=zh_US"Call WAITING(myIE, 10).document.all("j_username").Value = "username".document.all("j_password").Value = "passwrod".document.all("login").ClickCall WAITING(myIE, 10).document.Links(50).Click  ' To activate the stock live Java Applet application in the same IEWindowCall WAITING(myIE, 11).ie.document,getelementby ''Try to write a code for data collectionFunction WAITING(ByRef myIE As SHDocVw.InternetExplorer, state1 As Integer)With myIE    Do Until Not .Busy And .readyState = READYSTATE_COMPLETE        ' Debug.Print state1' Debug.Print .Busy ' Debug.Print .readyState        'Sleep (300)    Loop End WithEnd Function

1:2:3:4:5:6:7:8:9:10:11:12:13:14:15:16:17:18:19:20:21:22:23:24:25:26:27:28:29:30:

Select All Code

Author: duncanb7 replied at 2024-09-20 15:56:50

It is Java Applet application data , but why impossible , it should be okay if I can read the data in
my computer. Whether the protocol data format transmit in web by Java Applet is defined by
software company? It should be same data format for client collect like IE could read
the data and shown it in IE windows no matter it is Java Applet or not

Please read the the source code of the web page and advise

Thanks

Duncan

Attachment:stockfuture-1-.txt

Author: duncanb7 replied at 2024-09-20 15:32:49

Attachment:stockfuture-1-.txt

Accepted Solution

Expert: imnorie replied at 2024-09-15 11:09:28

500 points GOOD

Attachment:stockfuture-1-.txt

Author: duncanb7 replied at 2024-09-14 10:34:55

Attachment:stockfuture-1-.txt

Expert: Surone1 replied at 2024-09-14 10:13:26

Attachment:stockfuture-1-.txt