VBA / 透過Excel VBA下載在GoogleCharts製作QrCode的圖檔

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

Public Sub downloadPic()
    '課程代碼
    courseId = InputBox("請輸入課程代碼")
    courseName = InputBox("請輸入課程名稱")
    'QR Code 路徑
    myURL = "https://chart.googleapis.com/chart?chs=120x120&cht=qr&chld=M|3&chl=https://inservice.edu.tw/NAPP/CourseView.aspx?cid=" & courseId
    
    '工作簿所在路徑
    strSavePath = ThisWorkbook.path
    
    '建立 XMLHTTP物件來連線
    Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
    
    'WinHttpReq.Open "GET", myURL, False, "username", "password"
    WinHttpReq.Open "GET", myURL, False
    WinHttpReq.send
    
    If WinHttpReq.Status = 200 Then
        Set oStream = CreateObject("ADODB.Stream")
        oStream.Open
        oStream.Type = 1                      ' 1 = 二進制 , 2=文件檔
        oStream.Write WinHttpReq.responseBody '寫入WinHttpReq.responseBody
        oStream.SaveToFile strSavePath & "\" & courseName & ".png", 2     ' 1 = 不複寫, 2 = 複寫
        oStream.Close
        MsgBox "下載成功"
    End If
End Sub