Makro ile internetten dosya indirme..

[chngrcn]

değerli üstadlar..

12 NOLU Mesajı inceleyiniz lütfen. yardımlarınızı talep ediyorum.. saygılar..

dosya ektedir..

http://www.excel.web.tr/attachment.php?attachmentid=89776&d=1275907487

 

[ReBiwAr]

verdiğiniz linkler hata veriyor kontrol eder misiniz?

İyi Çalışmalar

 

[chngrcn]

verdiğiniz linkler hata veriyor kontrol eder misiniz?

İyi Çalışmalar

hocam zaten bu linkler daha çıkmadı, kasko listesi her ay güncelleniyor.. güncellenmeyen linkler bunlar.. bundan sonraki aylar için varsaydığım linkler..


mesela
http://adl.tsrsb.org.tr/SMarka201003.xls linki mart ayı kasko listesi
http://adl.tsrsb.org.tr/SMarka201004.xls linki nisan ayı kasko listesi
http://adl.tsrsb.org.tr/SMarka201005.xls linki mayıs ayı kasko listesi

haziran ayı daha yayımlanmadiği için hata verir.. bu üstekileri deneyin sorun olmaz.. saygılar..

 

[security]

Bir Altarnatif Olarak Vb6 İle Hazırladım Umarım İşinize Yarar...

 

[security]

Programı 9 Kişi İndirmiş Ama Kimsenin İşine Yaramamış Sanırım...

 

[chngrcn]

Programı 9 Kişi İndirmiş Ama Kimsenin İşine Yaramamış Sanırım...

valla daha denemedim.. cünkü başka bir yerdeyim su an kullandiğim bilgisayarım yanimda değil.. ama eve geçer geçmez bakacağım.. ve deneyecegim... indirdim daha önce ama bu bir program mı excel çalışmasımı anlamadim ? yeterince bir açıklama yapabilirmisin sayın security. ?:alkolik:

 

[mustafakoker]

indirdim daha önce ama bu bir program mı excel çalışmasımı anlamadim ? yeterince bir açıklama yapabilirmisin sayın security. ?:alkolik:

vısual basıc kodlama ile yazılmış bir programdır exe uzantılı

açıklama olmadığından bende bir şey anlamadım sayın security karşımıza gelen ekrana ne yazacağız mesala

 

[chngrcn]

Bir Altarnatif Olarak Vb6 İle Hazırladım Umarım İşinize Yarar...

Programı 9 Kişi İndirmiş Ama Kimsenin İşine Yaramamış Sanırım...

böyle bir uyarı verdi ekli resimde..

ayrıca üstadlardam ricam kodla yapılacak bişey varsa yapabilirlermi.. tesekkürler saygılar..

 

[security]

Merhaba İlgili Dosyalar Eklenmiş Ve Ayrıca Videolu Anlatımda eklenmiştir...

 

[Zeki Gürsoy]

Alternatif..

http://www.excel.web.tr/showthread.php?t=47750

 

[chngrcn]

Alternatif..

http://www.excel.web.tr/showthread.php?t=47750

zeki bey malesef çalışmanız hata veriyor.. tekrar bir inceleyebilirmisiniz ? saygılar..

 

[chngrcn]

örnek dosya koydum..

sayın üstadlarımın ekteki dosyayi inceleyip bana yardım etmelerini istiyorum..

ekteki dosyada indirme linki'ni belirleyen bir userform hazırladım.. sadece download ( yani indirme ) olayı kaldı..

seçilen ay ve yıl ile
textbox1 'e yansıyan linke gidip dosyayı C: sürücüsü altına KASKO adlı bir klasör açıp otomatikman indirmesini istiyorum ..

yardımlarınızı rica eder.. saygılar sunarım...

 

[chngrcn]

yardımcı olacak bir üstad yokmu ?

 

[chngrcn]

sayın üstadlarımın ekteki dosyayi inceleyip bana yardım etmelerini istiyorum..

ekteki dosyada indirme linki'ni belirleyen bir userform hazırladım.. sadece download ( yani indirme ) olayı kaldı..

seçilen ay ve yıl ile
textbox1 'e yansıyan linke gidip dosyayı C: sürücüsü altına KASKO adlı bir klasör açıp otomatikman indirmesini istiyorum ..

yardımlarınızı rica eder.. saygılar sunarım...

Üstadlarım bi konuya el atsanız ? çok acil lazım bu bana.. bir türlü yapamadım.. 12 nolu mesajdaki ek dosyayi inceleyiniz.. lütfen.. saygılarımla..

 

[chngrcn]

Sub download()
a = TextBox1.Value
adres = a
Set IE = CreateObject("InternetExplorer.Application")
If Dir("C:\KASKO", vbDirectory) = Empty Then MkDir "C:\KASKO"

With IE
.Visible = False 'True olursa web sayfası görüntülenir.
.Navigate adres 'Web adresi açılıyor.

End With
End Sub

bu kodlar ile dosyanın olduğu link'e gidebiliyorum.. ama oluşturduğum "C:\KASKO\ dizini altına otomatik olarak kaydedemiyorum.. lütfen yardımlarınızı bekliyorum.. saygılar.


Not : 12 nolu mesajdaki dosyadaki userform üzerinde uygulayin lütfen..

 

[Mehmet Şahin]

İyi akşamlar,
dosyayı kontrol ediniz, Zeki Bey'in kodları ile yapılmıştır. Ayrıca sizin bazı kodlarınızı da değiştirdim.
Bu arada aşağıdaki mesajı da yanlışlıka yazdınız sanırım...

Not : 12 nolu mesajdaki dosyadaki userform üzerinde uygulayin lütfen..

 

[chngrcn]

İyi akşamlar,
dosyayı kontrol ediniz, Zeki Bey'in kodları ile yapılmıştır. Ayrıca sizin bazı kodlarınızı da değiştirdim.
Bu arada aşağıdaki mesajı da yanlışlıka yazdınız sanırım...

" Set down1 = New Downloader " satırı

abi yine hata veriyor ya.. bi türlü işin içinden çıkamadım.. off :frown:

 

[Mehmet Şahin]

Merhaba,
dün gece windows 7 'de çalıştırdım. msinet.ocx dosyasını windows\system32 klasörü altına kopyalayın. Başlat menüsündeki ara bölümünden CMD yazıp aratın. Bulduğu zaman sağ klikle administrator olarak çalıştırın. Dosya yolunu kontrol ederek "regsvr32 msinet.ocx" yazın enter'a basın tamamdır.

 

[security]

msinet.ocx dosyasını 9 nolu mesajda eklemiştim...

 

[chngrcn]

Merhaba,
dün gece windows 7 'de çalıştırdım. msinet.ocx dosyasını windows\system32 klasörü altına kopyalayın. Başlat menüsündeki ara bölümünden CMD yazıp aratın. Bulduğu zaman sağ klikle administrator olarak çalıştırın. Dosya yolunu kontrol ederek "regsvr32 msinet.ocx" yazın enter'a basın tamamdır.

msinet.ocx dosyasını 9 nolu mesajda eklemiştim...

sayın dentex dediğinizi yaptım. ama sonuç olumsuz..

class modüledeki

Private Sub Class_Initialize()
On Error Resume Next
Set Inet_X = CreateObject("InetCtls.Inet")
bak = False
End Sub

kırmızı renkli kodu sonradan ben ekledim. ama yine olumsuz sonuç.. bu kodu çıkarttığımızda ise yeşil renkli kod kısmında hata veriyor..

aşağıdaki resimi inceleyiniz... :frown::frown::frown:

not: arkadaşın bilgisayarında denedik onda çalışıyor anlamadık gitti..