Web'de Günlük yayınlanan Excel Dosyasını Otomatik Kaydettirme

[CRAYZLOVEIS]

Arkadaşlar excel de hazırlayacağım bir dosya için http://www.etialuminyum.com/GuncelFiyat.asp adresinde günlük olarak yayınlanan excel dosyalarından veri almam lazım. Excele nasıl bir vba yazmalıyızki o güne ait excel dosyasını bilgisayarımıza otomatik olarak kaydetsin.

http://www.etialuminyum.com/GuncelFiyat.asp adresine bakarsanız ne demek istediğimi anlarsınız. Lütfen bu konuda öneri ve yardımlarınızı bekliyorum.


Örnek Dosya Linki: http://www.etialuminyum.com/files/Fiyatlar/Dosya/26.2.2008-FiyatListesi.xls

Örnek Dosya Adı: 26.2.2008-FiyatListesi

 

[CRAYZLOVEIS]

Arkadaşlar yardım edecek biri yokmu.... Help.... Help....

 

[Ferhat Pazarçevirdi]

Haluk bey'in örnek çalışmasını incelemişsiniz. O kodları kendinize uyarlamanız yeterliydi ...

http://www.excel.web.tr/showthread.php?p=250747#post250747

Aşağıdaki kodu çalıştırınız.

Sub Test()
    Dim FileNum As Long
    Dim FileData() As Byte
    Dim MyFile As String
    Dim WHTTP As Object
    
    On Error Resume Next
        Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5")
        If Err.Number <> 0 Then
            Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5.1")
        End If
    On Error GoTo 0
    tarih = Day(Date) & "." & Month(Date) & "." & Year(Date)
    
    MyFile = "[URL]http://www.etialuminyum.com/files/Fiyatlar/Dosya/[/URL]" & tarih & "-FiyatListesi.xls"
    
    WHTTP.Open "GET", MyFile, False
    WHTTP.Send
    FileData = WHTTP.ResponseBody
    Set WHTTP = Nothing
    
    If Dir("C:\MyDownloads", vbDirectory) = Empty Then MkDir "C:\MyDownloads"
    
    FileNum = FreeFile
    Open "C:\MyDownloads\26.2.2008-FiyatListesi.xls" For Binary Access Write As #FileNum
        Put #FileNum, 1, FileData
    Close #FileNum
    
    MsgBox "[ C:\MyDownloads ] klasorunu acin ..."
End Sub

 

[CRAYZLOVEIS]

Üstad bu kodlar işime yarayacak tşk. Hemen Deniyorum