Page 1 of 1
ต้องการดึงข้อมูลผ่านเว็บ ทำอย่างไรครับ
Posted: Sun Sep 28, 2014 2:30 am
by nutpochan
ต้องการดึงข้อมูลอัตโลมัตผ่านเว็บ มีขั้นตอนดังนี้
1.เปิดเว็บ
2.ใส่user password ในช่องในเว็บนั้น
3.เลือกข้อมูลวันที่ มีกดตกลงบ้างอะไรบ้าง
4.กดดาวโหลด text ไฟล์ ชื่อไม่เหมือนกันซักวัน
5.นำข้อมูลใน text ไฟล์ ชื่อไม่เหมือนกันซักวัน นั้นมาลงexcell ที่เรากำหนดใว้แล้ว
ขั้นตอนดังต่อไปนี้
เราสามารถ ใช้ visual basiceได้ไหมครับ ถ้าใช้ได้อาจารย์ช่วยแนะนำคำสั่ง เบื้องต้นหน่อย
ถ้าใช้ visual basice ไม่ได้สามารถใช้โปรแกรมอะไรได้ครับ
ผมจะไปศึกษาเพิ่มเติม
Re: ต้องการดึงข้อมูลผ่านเว็บ ทำอย่างไรครับ
Posted: Sun Sep 28, 2014 10:39 am
by snasui
Re: ต้องการดึงข้อมูลผ่านเว็บ ทำอย่างไรครับ
Posted: Mon Sep 29, 2014 11:13 am
by nutpochan
Code: Select all
Sub DownloadFile()
Dim myURL As String
myURL = "https://YourWebSite.com/?your_query_parameters"
Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False, "username", "password"
WinHttpReq.send
myURL = WinHttpReq.responseBody
If WinHttpReq.Status = 200 Then
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write WinHttpReq.responseBody
oStream.SaveToFile "C:\file.csv", 2 ' 1 = no overwrite, 2 = overwrite
oStream.Close
End If
End Sub
ผมไม่เข้าใจที่
CreateObject("Microsoft.XMLHTTP") คือตั้งค่าอะไรครับ
WinHttpReq.Open "GET" คือตั้งค่าอะไรครับ
Re: ต้องการดึงข้อมูลผ่านเว็บ ทำอย่างไรครับ
Posted: Mon Sep 29, 2014 12:56 pm
by snasui
nutpochan wrote:ผมไม่เข้าใจที่
CreateObject("Microsoft.XMLHTTP") คือตั้งค่าอะไรครับ
WinHttpReq.Open "GET" คือตั้งค่าอะไรครับ
ตัวแรกเป็นฟังก์ชั่นในการสร้าง Object XMLHttpRequest ส่วนตัวถัดมาเป็น Method ของ XMLHttpRequest ศึกษาเพิ่มเติมจาก Link นี้ครับ
http://msdn.microsoft.com/en-us/library ... px#methods
Re: ต้องการดึงข้อมูลผ่านเว็บ ทำอย่างไรครับ
Posted: Mon Sep 29, 2014 7:06 pm
by nutpochan
ลิ้งดูไม่ได้ครับ เว็บขึ้นว่า
Content not found
We could not find the page you requested.
Re: ต้องการดึงข้อมูลผ่านเว็บ ทำอย่างไรครับ
Posted: Mon Sep 29, 2014 8:25 pm
by snasui
ผมปรับ Link ด้านบนให้แล้วครับ
