Web'ten Dosya İndirme

Excel VBA kodlamaları ile yapılmış örnek dosyaları burdan izleyebilir ve paylaşabilirsiniz.

Web'ten Dosya İndirme

İleti#1)  Murat OSMA » 26 Arl 2011 21:51

Sütundaki linkleri sırasıyla bilgisayarınıza inidirebileceğiniz bir çalışma... [evet]

dosya indirme.PNG

Kod: Tümünü seç
Sub Evn()
    Dim i As Integer
    Dim WShel As Object
    Dim a As String

    basla = Timer
    Set WShel = CreateObject("WScript.Shell")
    a = WShel.SpecialFolders("Desktop")

    Const MsgText = "Dosyalar İndirilsin mi ?"
    Const MsgHdr = "İnidiriliyor..."
    If MsgBox(MsgText, vbYesNo Or vbMsgBoxRtlReading Or vbExclamation, MsgHdr) _
        = vbYes Then
    MkDir (a & "\Evn Download")
    For i = 2 To 7
    Cells(i, "C").Value = Right(Cells(i, "A"), 4)
    URL$ = Cells(i, "A").Value
    dosya$ = a & "\Evn Download" & "\" & Cells(i, "B").Value & "." & Cells(i, "c").Value
    DownloadFile URL$, dosya$
    'CreateObject("Wscript.shell").Run """" & dosya$ & """" - Dosyayı çalıştır...
    Next i
    End If
   
    bitir = Timer - basla
    MsgBox "İndirme işlemi " & Format(bitir, "00:00:00.00") & " süresinde tamamlanmıştır. ", _
     vbInformation + vbMsgBoxRtlReading, "Www.ExcelVBA.Net"
    i = Empty
    a = vbNullString
    Set WShel = Nothing
End Sub

Kod: Tümünü seç
Function DownloadFile(ByVal URL$, ByVal LocalPath$) As Boolean
    Dim XMLHTTP, ADOStream, FileName
    On Error Resume Next: Kill LocalPath$
    Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
    XMLHTTP.Open "GET", Replace(URL$, "\", "/"), "False"
    XMLHTTP.send
    If XMLHTTP.statustext = "OK" Then
    Set ADOStream = CreateObject("ADODB.Stream")
    ADOStream.Type = 1: ADOStream.Open
    ADOStream.Write XMLHTTP.responseBody
    ADOStream.SaveToFile LocalPath$, 2
    ADOStream.Close: Set ADOStream = Nothing
    DownloadFile = True
    Else
    MsgBox "Bağlantı sağlanamadı", vbInformation, "Hata !"
    End If
    Set XMLHTTP = Nothing
End Function
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 36
İleti: 14414
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Web'ten Dosya İndirme

İleti#2)  Tarkan VURAL » 27 Arl 2011 09:56

Gayet güzel ve bir o kadar da kullanışlı bir kodlama. Paylaştığın için teşekkürler. --)(
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27421
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Web'ten Dosya İndirme

İleti#3)  Erkan Akayay » 27 Arl 2011 10:01

İyiymiş gerçekten. Teşekkürler.
Sorularınızı düzgün bir Türkçe ile detay vererek ve örnek dosyayla destekleyerek sorunuz.
Örnek dosyalarınızda Application.Visible veya hide gibi sayfa gizlemelerini iptal ediniz.
Alıntı ile gereksiz şişirilen başlıkları takip edemiyorum. Lütfen Cevap Yaz butonunu kullanın.
Kullanıcı avatarı
Erkan Akayay
Site Dostu
 
Kayıt: 20 Ağu 2008 11:59
Konum: YALOVA
Meslek: Bilgi İşlem
Yaş: 51
İleti: 4218
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yalova

Cevap: Web'ten Dosya İndirme

İleti#4)  Murat OSMA » 27 Arl 2011 11:32

Rica ederim. --)(
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 36
İleti: 14414
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Web'ten Dosya İndirme

İleti#5)  Bülent » 27 Arl 2011 20:03

Murat, eline sağlık. şkşk

Download sitelerinden (Rapid vb.) nasıl yaparız?
Kullanıcı avatarı
Bülent
Yönetim Kurulu
 
Adı Soyadı:Bülent ÖZTÜRK
Kayıt: 15 Haz 2008 00:08
Meslek: Bilgi Sistemleri
Yaş: 44
İleti: 3830
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İst/Çekmeköy

Cevap: Web'ten Dosya İndirme

İleti#6)  Murat OSMA » 27 Arl 2011 21:18

Bülent yazdı:Murat, eline sağlık. şkşk

Download sitelerinden (Rapid vb.) nasıl yaparız?


Sağol abi. [evet]
Download sitelerinden indirmek için Moderatör Bölümünde bir başlık vardı gördün mü ? --)(
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 36
İleti: 14414
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Web'ten Dosya İndirme

İleti#7)  mehoaga » 29 Arl 2011 19:01

Murat bey;
Sizler varya sizler dünyada eşi benzeri bulunmaz değerli insanlarsınız.Valla ne söylesem az olur.
Aklınıza, beyninize, ellerinize kollarınıza sağlık. şkşk şkşk
[TESEKKÜR] [TESEKKÜR]
Kullanıcı avatarı
mehoaga
Yeni Başlamış
 
Adı Soyadı:Mehmet Sarıoğlu
Kayıt: 04 Haz 2011 00:37
Konum: Excel'e olan merakım
Meslek: Resmi bir kurumda özel temizlik işçisi.
Yaş: 57
İleti: 71
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kütahya

Cevap: Web'ten Dosya İndirme

İleti#8)  Murat OSMA » 07 Mar 2013 09:46

Güzel sözleriniz için teşekkür ederim Mehmet Bey, sağolun... --)(
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 36
İleti: 14414
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Web'ten Dosya İndirme

İleti#9)  cenk e. » 18 Tem 2013 14:41

Merhaba, bu programla web sayfalarını indirmeyi başaramadım, bu programla web sayfasını nasıl indirebiliriz?
Kullanıcı avatarı
cenk e.
Yeni Başlamış
 
Adı Soyadı:Cenk Erizli
Kayıt: 17 Haz 2013 22:31
Konum: Sakarya
Meslek: Öğrenci
Yaş: 30
İleti: 93
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Cevap: Web'ten Dosya İndirme

İleti#10)  Murat OSMA » 19 Tem 2013 08:00

Web sayfalarını indirmeden neyi kastediyorsunuz ? [ilginc]
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 36
İleti: 14414
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Web'ten Dosya İndirme

İleti#11)  cenk e. » 05 Oca 2016 00:06

Mesela bir siteyi açtık, ctrl+s yaptığıömız zaman farklı kaydet seçeneği çıkıyor, (web sayfası, tümü) kaydet dediğimiz zaman da o web sayfasını (html) kaydetmiş oluyoruz. Ben kaydetmeyi denediğimde birini dört binli, birini de beş binli bir dosya uzantısı yaptı, açılmadı.
Kullanıcı avatarı
cenk e.
Yeni Başlamış
 
Adı Soyadı:Cenk Erizli
Kayıt: 17 Haz 2013 22:31
Konum: Sakarya
Meslek: Öğrenci
Yaş: 30
İleti: 93
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir

Cevap: Web'ten Dosya İndirme

İleti#12)  Enes Recep BAĞ » 11 Arl 2018 09:50

Süper paylaşım, [TESEKKÜR]
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 15:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 39
İleti: 8290
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BURSA

Cevap: Web'ten Dosya İndirme

İleti#13)  yunus788 » 13 May 2020 19:00

Merhaba işime yarayacak bir uygulama ancak bende nedense çalışmadı. Hata vermiyor indi diyor ama inmiyor. Excel sürümüm 2007.
indirelecek klasörü masaüstünde kendimi oluşturuyor?
Kullanıcı avatarı
yunus788
 
Kayıt: 22 Arl 2019 18:44
Meslek: textil
Yaş: 43
İleti: 9
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Web'ten Dosya İndirme

İleti#14)  hskaban » 29 Kas 2020 17:43

Değerli arkadaşlar,

Yaklaşık 1 yıl öncesi programı kullanmış idim.
Şu anda çalıştıramadım.

* Klasör yaratılıyor. ancak;
1. Bağlantı sağlanamıyor. ikazı ile.
2. "MkDir (a & "\Evn Download") hatası vermekte.

Yardımınızı rica ediyorum.
Kullanıcı avatarı
hskaban
Yeni Başlamış
 
Kayıt: 04 Oca 2019 01:15
Meslek: muhasebe
Yaş: 36
İleti: 34
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Balıkesir / Ayvalık


Forum Örnek Dosyalar

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe