เขียน VBA อ่าน website หนึ่ง ต้องการรหัส HTML ของเวบนั้น ต้องทำอย่างไรครับ



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

05 ก.พ. 61 , 18:16:54
อ่าน 654 ครั้ง

bgfc

ผมเขียน VBA ของ Access 2010     เพื่ออ่าน รหัส HTML ของ website หนึ่ง เพื่อนำมาถอดข้อมูลของ website นั้น (โดยการอ่านแล้วเก็บไว้ในตัวแปร text แล้วนำมาตัด - ถอดเฉพาะข้อมูลที่ต้องการ)  ผมพยายามหาตัวอย่างใน google มาลองทำดู (ดังภาพ)     แต่พบปัญหาว่า ข้อมูลในตัวแปร  เป็นข้อมูลที่เหมือนใช้แสดงที่หน้าเวป ที่ตัดไม่ได้ ทำให้ไม่มีประโยชน์   ผมอยากได้แบบเป็นรหัส HTML (รูปด่านล่าง) จะต้องทำอย่างไรครับ   เรียนถามท่านผู้รู้ด้วยครับ  (ผมใช้ Microsoft HTML Object Library )  หรือมีวิธีอื่นไหมครับ


 

05 ก.พ. 61 , 20:51:15
ตอบกลับ #1

pizza_p

Private Sub ViewPageSource()
Dim url As String, txtPageSource As String, i As Long

  url = "https://marketdata.set.or.th/mkt/sectorquotation.do?sector=SET50 link"
 
  With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", url, False
    .Send
    txtPageSource = .ResponseText
  End With

End Sub

ดัดแปลงจาก https://www.mrexcel.com/forum/excel-questions/556844-read-html-source-code-vba-5.html link

 
โพสต์นี้ได้รับคำขอบคุณจาก: bgfc

05 ก.พ. 61 , 21:47:39
ตอบกลับ #2

bgfc

ใช้ได้แล้วครับ  ขอบคุณมากครับ คุณ pizza_p        ผมนั่งหาจาก google ทั้งวันเลย

 


บอร์ดเรียนรู้ Access สำหรับคนไทย