Access : จุดเริ่มต้นที่ง่ายที่สุดสำหรับการเรียนรู้ ระบบฐานข้อมูล
Access : จุดเริ่มต้นที่ง่ายที่สุดสำหรับการเรียนรู้ การเขียนโปรแกรม
Access : เป็นได้ทั้งตัวเก็บฐานข้อมูล และตัวจัดการฐานข้อมูล
Thai Access : บอร์ดเสริมการเรียนรู้ Access ด้วยภาษาไทย

น้อมรำลึกในพระมหากรุณาธิคุณอันหาที่สุดมิได้ พระบาทสมเด็จพระปรมินทรมหาภูมิพลอดุลยเดชฯ พระผู้เสด็จสู่สวรรคาลัย

Back to Board : Relation Knowledge New Topic    Reply
มีคำสั่ง VBA เพื่อโหลด web เข้ามาเก็บไหมครับ

Topic by Message Posted : on : 10/6/2560 15:20:12
ททท  หมายถึงโหลด รหัส (Code) ของ WEB Site ซึ่งหมายถึง Code HTML น่ะครับ     โหลดเข้าตัวแปร String แล้วผมจะถอด/แปล ข้อความใน String นั้นอีกทีหนึ่ง      

ผมกำลังเขียน VBA อ่านข้อมูลหุ้นจาก WEB ของตลาดหลักทรัพย์ ที่มีความเคลื่อนไหลขณะกำลังซื้อ-ขาย ทุก ๆ   10 วินาที จะอ่านครั้งหนึ่ง แล้วนำข้อมูลที่ได้ไปคำนวน และ เขียนบันทึกใน TABLE ของ Access แต่มาติดปัญหาตรงนี้น่ะครับ

1 Reply in this Topic. Dispaly 1 pages and you are on page number 1

Reply by Message on : 11/7/2560 20:52:43
U&ME
(R23760)
ลองนี่จ้ะ ค้นมา ขออนุญาตลงจ้า
ลองประยุกต์ใช้นะ

Dim ie As Object
Dim html As Object
Dim j As Integer
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
URL = "google.com"
ie.Navigate URL
Do While ie.ReadyState <> READYSTATE_COMPLETE
Application.StatusBar = "Trying to go to website ..."
Loop
Application.StatusBar = " "
Set html = ie.Document
'Dim htmltext As Collection
Dim htmlElements As Object
Dim htmlElement As Object
Set htmlElements = html.getElementsByTagName("*")
For Each htmlElement In htmlElements
    If htmlElement.getAttribute("href") <> "" Then Debug.Print htmlElement.getAttribute("href")
Next
Back to Top

Reply

 *Indicates required fields
Format:
Bold Under Line Italic Add Hyperlink Add Email Link Italic List Indent Add Image Emoticons Insert code Mode:
Message:*
Your Name*:
Normal word*: Please input : ไทยแอ็คเซส
+++ webboard source: ASPThai.Net Webboard 6.0 webbord +++++++ admin : yeadram +++