ftp adresindeki excel dosyam

[drseref]

benim masa üstümdeki demo.xls dosyasını nasıl bir macroyla ftp adresindeki demo.xls dosyasıyla güncelleyebilirim.yani bunu günlük yapmam gerekiyor.

 

[drseref]

evet ? sayın hocalarım...

 

[Milady Meriç]

Merhaba dostum;

FTP üzerinde hiç denemedim.

Kolay gelsin.

Sub farkli_kaydet()

Dim ftp_adres As String

Application.DisplayAlerts = False

ftp_adres = "buraya ftp klasörünün yolunu yazin"

    ActiveWorkbook.SaveAs Filename:=ftp_adres & "\demo.xls", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

 

[drseref]

çok teşekkür ederim.DENİYORUM...

 

[Milady Meriç]

şimdi aklıma geldi,

ftp giriş kullanıcı adı ve parolanızı sorarsa problem olabilir ?

 

[Mehmet Şahin]

Merhaba,
web'den bulduğum şu kodları deneyebilirsiniz.
iyi çalışmalar.

Public Sub FTPFromUnix()
    Dim fs As Variant
    Dim FTPScript As Variant
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set FTPScript = fs.CreateTextFile("C:\FTPXfer.txt", True)
    With FTPScript
        .Writeline ("OPEN ftp.adresim.com") 'ftp adresi domain ya da ip
        .Writeline ("USER username password") 'kullanıcı adı ve şifre
        .Writeline ("CD ../Public") 'yüklenecek ya da alınacak klasör
        .Writeline ("LCD " & DesktopAddress()) 'Pc'de dosyanın alınacak ya da yüklenecek klasör yolu
        .Writeline ("BINARY") ' or ASCII
        .Writeline ("PUT demo.xls") 'yüklenecek dosya
        .Writeline ("BYE")
        .Close
    End With
    Call Shell("C:\WINDOWS\System32\ftp.exe -ns:c:\FTPXfer.txt", vbMaximizedFocus) ' or MinimizeFocus
End Sub
Public Function DesktopAddress() As String
    DesktopAddress = CreateObject("WScript.Shell").SpecialFolders("Desktop") ' & Application.PathSeparator
End Function