Excel VBA Internetten Dosya Indirme

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

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

“Excel VBA Internetten Dosya Indirme” için 1 yorum

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


6 + 8 =