Giúp Code VBA lưu ảnh từ 1 link về Excel sao cho nhanh nhất (1 người xem)

[Văn Toàn 1996]

xin chào cả nhà GPE. Em cần 1 đoạn code Save ảnh từ 1 đường link về sao cho nhanh nhất
Ví dụ link: https://img.vietqr.io/image/BacABan...?accountName=NGUYEN VAN TOAN&amount=&addInfo=

 

[befaint]

Sau khi tẩn cho nó một trận vì cái tội không để ý chủ thớt dùng Excel 2010 huyền thoại thì nó cũng ăn lăn hối lỗi.

.

 

[Văn Toàn 1996]

Sau khi tẩn cho nó một trận vì cái tội không để ý chủ thớt dùng Excel 2010 huyền thoại thì nó cũng ăn lăn hối lỗi.

View attachment 305770.
View attachment 305771
View attachment 305772

AI đã quậy nát nhưng chậm như rùa gần 30 giây thì làm ăn gì

 

[befaint]

Rùa bò là dùng Excel 2010 đấy.
Chứ nó lúc đầu đưa code siêu nhiên tốc độ á.
Mà tốc độ mạng internet cùi mía thế. Chậm thế thì AI trả lời dởm là đúng rồi. Tốc độ mạng internet nhanh thì câu trả lời cũng khác bọt.

 

[Văn Toàn 1996]

Rùa bò là dùng Excel 2010 đấy.
Chứ nó lúc đầu đưa code siêu nhiên tốc độ á.
Mà tốc độ mạng internet cùi mía thế. Chậm thế thì AI trả lời dởm là đúng rồi. Tốc độ mạng internet nhanh thì câu trả lời cũng khác bọt.

đã thứ Office 2021 và Office 365 chạy code lần đầu tiền tầm 30 giay. máy i7 thế hệ 13, ram 64gb, win 11 pro. mạng thì khỏi phải nói file 1GB tải 30 giây

Bài đã được tự động gộp: 21/11/24

 

[befaint]

Cái code siêu tốc đó có úp lên đâu.
Viết vậy mà đọc không hiểu gì hết trơn.

 

[Văn Toàn 1996]

Nốt nhạc dài 45 phút đó hả? Lại thiếu hụt kiến thức về âm nhạc rồi.

Code của Bài 2 của mầy đấy . Nó vẫn 30 giây cho lần đầu tiên. Vẫn thiếu kiến thức Và Kinh Nghiệm Trải Nghiệm Test thực tế

Sub InsertPictureFromURL()
Dim picURL As String
Dim picPath As String
Dim ws As Worksheet
Dim pic As Picture

' Set the URL of the picture
picURL = "https://img.vietqr.io/image/OCB-345678997-compact.png?accountName=TRAN THANH THUY&amount=&addInfo="


' Download the picture to a temporary location
picPath = DownloadPicture(picURL)

' Set the worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")

' Insert the picture
Set pic = ws.Pictures.Insert(picPath)

' Position the picture in cell A1
With pic
.Left = ws.Range("A1").Left
.Top = ws.Range("A1").Top
.Width = ws.Range("A1").Width
.Height = ws.Range("A1").Height
End With

End Sub

Function DownloadPicture(picURL As String) As String
Dim WinHttpReq As Object
Dim tempFilePath As String

' Create a temporary file path
tempFilePath = Environ("TEMP") & "\tempImage.jpg"
' Create the WinHttpRequest object
Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")

' Download the picture
WinHttpReq.Open "GET", picURL, False
WinHttpReq.Send

' Save the picture to the temporary file path
If WinHttpReq.Status = 200 Then
With CreateObject("ADODB.Stream")
.Type = 1 ' adTypeBinary
.Open
.Write WinHttpReq.ResponseBody
.SaveToFile tempFilePath, 2 ' adSaveCreateOverWrite
.Close
End With
End If

' Return the temporary file path
DownloadPicture = tempFilePath
End Function

 

[Mr.hieudoanxd]

Vẫn thiếu kiến thức Và Kinh Nghiệm Trải Nghiệm Test thực tế

Code kiếc thì có rất nhiều cách, riêng tạo QRcode trên diễn đàn có cực nhiều bài viết thậm chí cả cá nhân mình cũng có Function tạo các loại barcode này. Tuy nhiên, trong môi trường ảo, không biết ai với ai mà bạn làm thế này thì không ổn rồi. Đặc biệt khi chưa có công kích cá nhân nào nhắm vào bạn. Thật tình khó hiểu....

 

[ptm0412]

Ban nick @Văn Toàn 1996 do cách ứng xử không có văn hóa.
Các nick bị xóa bài trong chủ đề này cũng nên thôi không spam bài nữa.