Sitedeki ekli exceli bilgisayardaki excele alma

[sinantarhan]

Selam sevgili excel-web ekibi ve kullanıcıları,

http://www.ttsm.gov.tr/TR/belge/1-452/uretim-izinli-cesitler.html

linkinde altında SEBZEURİZ linkinde her hafta yada gün güncellenen ekli ecxel vardır.

SEBZEURİZ linkine tıkladığımızda ekli olan exceli indirme sayfası açılmaktadır. dosya adı ise 06112012.xls var şuan buda güncellendiği günün tarihini alıyor dosya.

Özetle burada güncellenen excel masaüstünde ki excel siteye giriş yapmaya gerek kalmadan gelsin istiyorum. bunun gibi aynı sitede birkaçtane daha dosya var.

Yardımlarınız ve ilginiz için şimdiden teşekkür ederim.

 

[sinantarhan]

ekten gelen doya örneği

Üstadlar sitedeki ekten gelen dosya örneğinide ekte bilginize sunarım.

teşekkürler.

 

[mustafaine1]

Merhaba ekteki dosyada bir ornegini bulabilirsiniz;

Dosya verdiginiz linkteki calismayi dosyanin bulundugu dizine indirilen dosya olarak kaydedecektir.

Kullanilan kodlar;

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

 

[sinantarhan]

üstad eline sağlık on numara beş yıldız. yanlız burada excel 'in içindeki link yazıyor ya orada link hep değişiyor çünkü linkin sonunda yazan sebzeuriz06112012 kısım dosya güncellendikçe değişir hani dosya güncellendiyse oradaki 06112012 kısımı mesela bugün güncellerlerse 16112012 olur yani link bugün değişirise
http://www.ttsm.gov.tr/TR/dosya/1-15784/h/sebzeuriz16112012.xls olur bu durumda makro çalışırmı.

 

[sinantarhan]

üstad şimdi farkkettim linkteki dosya/1-15**** kısımı var ya orasıda değişiyor.

Mesela siteyi kontrol ettim ben talepde bulunduğumda sitede olan donwloand linki
http://www.ttsm.gov.tr/TR/dosya/1-15784/h/sebzeuriz06112012.xls
şuan olan link
http://www.ttsm.gov.tr/TR/dosya/1-15796/h/sebzeuriz16112012.xls

Teşekkürler.

 

[mustafaine1]

Merhaba tabiki o sekilde calistirabilirsiniz, A1'deki linki dosya_adresi adli bir ad tanimi ile refere ediyoruz ve buradan hedef dosyaya ulasiyoruz.

A1'deki linki

="http://www.ttsm.gov.tr/TR/dosya/1-15784/h/sebzeuriz"&TEXT(TODAY(),"ddmmyyyy")&".xls"

seklinde degistirirseniz link hergun guncel bir sekilde degisecektir. Bu arada benim excelim ingilizce oldugundan ddmmyyyy seklinde bir format ekledim formule eger turkce ise ggaayyyy seklinde bu bolumu degistirebilirsiniz.

Ayrica profilinizdeki versiyon dilinizi yazarsaniz bu tarz paylasimlarin size gore yapilma ihtimali artacaktir, iyi calismalar.

 

[mustafaine1]

üstad şimdi farkkettim linkteki dosya/1-15**** kısımı var ya orasıda değişiyor.

Mesela siteyi kontrol ettim ben talepde bulunduğumda sitede olan donwloand linki
http://www.ttsm.gov.tr/TR/dosya/1-15784/h/sebzeuriz06112012.xls
şuan olan link
http://www.ttsm.gov.tr/TR/dosya/1-15796/h/sebzeuriz16112012.xls

Teşekkürler.

o bolumun degistirilme kriteri nedir bilemiyorum, egerki bir mantigi varsa paylasiniz, bir mantigi yoksa zaten yapicak bisey yok.

 

[lazr55]

Bu şekilde sürekli tekrarlanan işlemler için bir çeşit makro yazan http://www.autohotkey.com/ programını kullanabilirsiniz. Bir kere işlemi yapıp kaydediyorsunuz daha sonra o sizin yaptığınız işlemleri sıra ile taklit ediyor. Sizde her seferinde aynı işlemleri yapmamış oluyorsunuz.