contact@exceltr.com

ExcelTR - Microsoft Excel Eğitim Sitesi

Görsel Video Microsoft Excel Eğitim Sitesi
2 Mar 2012

Excel VBA Internetten Dosya Indirme

//
Yorumlar1
/
Etiketler, ,

Excel VBA Internetten Dosya Indirme

Internette bulunan herhangi bir dosyayi indirebilmek icin bir calisam paylasacagiz. Amacimiz linkini yazdigimiz bir dosyanin bir buton yardimi ile internet uzerinden indirebilebilmesi.

Option Explicit

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

Sub Dosya_Indir()
    Dim Dosya_Kayit_Yolu As String
    Dim URL As String, Uzanti As String
    Dim buf, ret As Long
    URL = Worksheets("Download").Range("Dosya_Adresi").Value
    buf = Split(URL, ".")
    Uzanti = buf(UBound(buf))
    Dosya_Kayit_Yolu = ThisWorkbook.Path & "" & "Indirilen_Dosya." & Uzanti
    ret = URLDownloadToFile(0, URL, Dosya_Kayit_Yolu, 0, 0)
    If ret = 0 Then
        MsgBox "Dosya Indirme Islemi Basari Ile Tamamlanmistir!"
    Else
        MsgBox "URL Basina http:// ekini ekleyiniz, Eger ek varsa dosya paylasaniniza durumu bildiriniz"
    End If
End Sub

Ornek dosya uzerinde Dosya_adresi adini verdigimiz bir ad bulunmaktadir. Bu ad tanimimiz icerisine indirecegimiz dosyanin linkini girmekteyiz. Ornegimizde buseen kullanici adiyla sitemizde bulunan Altin_Uyemiz`in ftp`sini kullandik. ve buraya Ornek adli ve icerisinde sadece ornek yazan bir dosya ekledik.

Bu dosya butona bastiginizda Indirilen_dosya adi ile ekteki dosyayi indirdiginiz klasor icerisine kaydedilecek. Bu uygulamayi sizde linki degistirerek deneyebilirniz, iyi calismalar.

Excel VBA Internetten Dosya Indirme

1 Yanıt

Cevap bırakın


5 + 6 =