VBA Code Download File from URL เขียนโค๊ดอย่างไรครับ


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

15 ก.ค. 66 , 16:40:56
อ่าน 251 ครั้ง

kamondanai syrup

ขอความอนุเคราะห์ ท่านผู้รู้ครับ เรื่อง VBA Code Download File from URL เขียนโค๊ดอย่างไรครับ ผมหาคำตอบจาก intrnet แต่อ่านแล้วไม่เข้าใจครับผม รบกวนช่วยด้วยครับ

 

20 ก.ค. 66 , 21:13:51
ตอบกลับ #1

TTT

: VBA Code Download File from URL เขียนโค๊ดอย่างไรครับ
« ตอบกลับ #1 เมื่อ: 20 ก.ค. 66 , 21:13:51 »
หากรู้ url เป้าหมายที่จะทำการใส่แล้วดาวโหลดไฟล์ได้เลย เราสามารถเขียนฟังก์ชั่นสำหรับ Download ไฟล์นั้นด้วย VBA โดยไม่ต้องเปิดเว็บเบราว์เซอร์ (web browser) เพื่อดาวน์โหลด

'----------------Code Start----------------
Public Function DownloadFileB(ByVal URL As String, ByVal DownloadPath As String, ByRef Username As String, ByRef Password, Optional Overwrite As Boolean = True) As Boolean
On Error GoTo Failed
    Dim WinHttpReq As Object
    Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
    WinHttpReq.Open "GET", URL, False, Username, Password
    WinHttpReq.send
    If WinHttpReq.Status = 200 Then
        Dim oStream As Object: Set oStream = CreateObject("ADODB.Stream")
        oStream.Open
        oStream.Type = 1
        oStream.Write WinHttpReq.responseBody
        oStream.SaveToFile DownloadPath, Abs(CInt(Overwrite)) + 1
        oStream.Close
        DownloadFileB = Len(Dir(DownloadPath)) > 0
        Exit Function
    End If
Failed:
    DownloadFileB = False
End Function
'-----------------Code End-----------------
 
<การใช้งาน>
DownloadFileB("ที่อยู่ url เป้าหมาย", "ที่อยู่พาธและชื่อไฟล์ที่ต้องการเซฟ", "ชื่อผู้ใช้(ถ้ามี)", "รหัสผ่าน(ถ้ามี)", เขียนทับไฟล์เดิม ) As Boolean
 
<ตัวอย่าง>
DownloadFileB("https://wallpapersflix.com/cool/wp-content/uploads/2020/07/Cool-Wallpaper-PC.jpg", "C:\TEMP\Pic.jpg", "", "")
ฐานข้อมูลเป็นเรื่องใกล้ตัว ใครๆก็ทำฐานข้อมูลเองได้นะครับhttp://www.youtube.com/c/AccessCreator
 
โพสต์นี้ได้รับคำขอบคุณจาก: PookPuy, kamondanai syrup

21 ก.ค. 66 , 14:12:42
ตอบกลับ #2

kamondanai syrup

: VBA Code Download File from URL เขียนโค๊ดอย่างไรครับ
« ตอบกลับ #2 เมื่อ: 21 ก.ค. 66 , 14:12:42 »
ช่วยอธิบายโดยละเอียดด้วยครับผม คือผมต้องการสร้างฟอร์มมา 1 ฟอร์ม แล้วมีปุ่มคำสั่ง Download ผมจะต้องสร้างวัตถุบนฟอร์มอะไรบ้าง และคำสั่งเรียกใช้งานอย่างไรครับผม

 


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


 

Sitemap 1 2 3 4 5