Download 1 file từ Internet

[thunoka]

Chào mọi người,

Giả sử mình muốn download 1 file từ địa chỉ "http://img3.ak.crunchyroll.com/i/spire1/aa4b1fba17b026d88ba410ea5d2ad6e21230710144_full.png" và save vào thư mục: C:\Download thì code phải như thế nào?

Làm ơn giúp mình nha! Cảm ơn nhiều lắm!!! =)

 

[tigertiger]

Chào mọi người,

Giả sử mình muốn download 1 file từ địa chỉ "http://img3.ak.crunchyroll.com/i/spire1/aa4b1fba17b026d88ba410ea5d2ad6e21230710144_full.png" và save vào thư mục: C:\Download thì code phải như thế nào?

thực ra bạn muốn viết trong VBA của Exel? thế thì hơi buồn cười

tham khảo code VB ở link này nhé, nó có ích cho bạn
http://www.visualbasic.happycodings.com/Internet_Web_Mail_Stuff/code8.html

 

[thunoka]

thực ra bạn muốn viết trong VBA của Exel? thế thì hơi buồn cười

tham khảo code VB ở link này nhé, nó có ích cho bạn
http://www.visualbasic.happycodings.com/Internet_Web_Mail_Stuff/code8.html

À, cái file đó chỉ là ví dụ thôi. Thực tế là mình muốn biết code chung chung để tải 1 file và lưu file thôi.

Cảm ơn nhiều nha tigertiger! =)

 

[ndu96081631]

À, cái file đó chỉ là ví dụ thôi. Thực tế là mình muốn biết code chung chung để tải 1 file và lưu file thôi.

Cảm ơn nhiều nha tigertiger! =)

Code mà Tigertiger đưa ở trên là "chung" rồi còn gì
Phát triển thêm cho bạn đây

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
  (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, _
   ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub CommandButton1_Click()
  Dim SrcUrl As String, DesFile As String
  SrcUrl = TextBox1.Text: DesFile = TextBox2.Text
  If URLDownloadToFile(0&, SrcUrl, DesFile, &H10, 0&) = 0 Then
    MsgBox "Thanh cong!"
  Else
    MsgBox "That bai!"
  End If
End Sub

Đại khái thiết kế 1 UserForm với 1 CommandButton và 2 TextBox
- TextBox1: Điền địa chỉ Url mà bạn cần download vào
- TextBox2: Ghi đường dẩn nơi lưu file
- Nhấn CommandButton để ra lệnh Download

 

[ngodany135]

Xin sư phụ chỉ dùm cái sai. Cảm ơn

 

[ndu96081631]

Xin sư phụ chỉ dùm cái sai. Cảm ơn

Sai ở chổ:
- Hàm URLDownloadToFile bạn đặt trong module mà lại khai báo Private thì làm sao code trong UserForm có thể "gọi" nó được? Lúc này nó mang tính "riêng tự", chỉ code nào "chung nhà" với nó mới "gọi" nó được ("chung nhà" là những code chung module)
Vậy có 2 cách sửa:
- Một là vẫn để hàm ấy trong module nhưng sửa Private thành Public
- Hai là dời hàm ấy vào chung UserForm
--------------------------
Mà chẳng lẽ bạn định down 1 file 38MB bằng Excel sao? Biết chừng nào mới xong?