Snasui Excel Forum

วิธีการโพสต์โค้ด VBA ให้ทำตามกฎข้อ 5 ของบอร์ด อ่านได้ที่ด้านบนของแต่ละหน้าครับ

ดึงข้อมูลจากหน้าเว็บลองดูที่นี่เป็นแนวทางครับ https://www.wiseowl.co.uk/blog/s393/scrape-website-html.htm

ตอนนี้ปิดตัว popup ได้เเล้วครับเเต่ไม่รู้จะเอาตารางมายังไงครับปกตืผมใช้ querytable ครับ

Code ตอนนี้ :

Sub import_FWD()
Application.ScreenUpdating = False
Dim sth As Worksheet
Dim objIE
Dim url As String
url = "https://www.krungthai-axa.co.th/th/nav"
Set objIE = CreateObject("InternetExplorer.Application")
Set sth = Sheets("FWD")
With objIE
.Visible = True
.Navigate "https://iservice.fwd.co.th/pages/unitlinkNAV.aspx"
Do While .Busy Or .readyState <> 4
DoEvents
Loop
.document.getElementById("ctl00_ctl00_MainContent_MainContent_CloseWarning").Click
End With
End Sub

Code ที่ปกติใช้ :

Sub import_Blank()
Application.ScreenUpdating = False
Dim qt As QueryTable
Dim ws As Worksheet
Dim url As String
url = "https://www.prudential.co.th/corp/prudential-th/en/our-products/fund-price/"
Set ws = Sheets("PRU")
Set qt = ws.QueryTables.Add( _
Connection:="URL;" & url, _
Destination:=ws.Range("A1"))
Worksheets("PRU").Range("A1:J31").Clear
qt.Refresh
End Sub

สงสัยว่าถ้าผมเปิดหน้าต่างเว็ปมาตาม code เเรกเเล้วปิด popup ได้ผมพอจะทำ querytable จากหน้าต่างที่เปิดมาได้มั้ยครับ \

:D การ Pop up ลักษณะนั้นเป็นอุปสรรคต่อการดึงข้อมูลด้วย Web Query เพราะมันจะไปดึงข้อความใน Pop up เข้ามาแทน อาจจะต้องพึ่งพาการดึงด้วยวิธีอื่นเช่นเขียน Code ตรวจสอบ Object ที่เป็นตารางแล้วค่อยเก็บข้อมูลเข้ามาครับ

ตัวอย่างงานลักษณะนี้ครับ https://stackoverflow.com/questions/19984280/fetch-data-from-a-web-page-to-excel-using-vba

[url]https://iservice.fwd.co.th/pages/unitlinkNAV.aspx[/url] <=== เว็ปนี้ครับ

ปัญหา : พอเข้าเว็ปมันมี popup ที่ต้องกด continue มันเลยหาตารางไม่เจอครับ อยากรู้ว่าจะใช้ VBA ปิดมันได้ยังไงถึงจะเอาตารางได้

Sub import_fwd()
Application.ScreenUpdating = False
Dim qt As QueryTable
Dim ws As Worksheet
Dim url As String
url = "https://iservice.fwd.co.th/pages/unitlinkNAV.aspx"
Set ws = Sheets("FWD")

Set qt = ws.QueryTables.Add( _
Connection:="URL;" & url, _
Destination:=ws.Range("A1"))

qt.Refresh

End Sub