- Katılım
- 24 Nisan 2005
- Mesajlar
- 3,671
- Excel Vers. ve Dili
- Office 2016 EN 64 Bit
- Altın Üyelik Bitiş Tarihi
- 25/05/2022
Merhaba,
VBA içinde ftp kullanmak istedim. windows un ftp programı kararsız çalıştı.
winscp.com programı komut satırı çalışmasında sorun çıkarmadı.
Bu tür bir çalışma olur ise bilginiz olsun
Portable sürümü için indirme linki.
Winscp.exe ve winscp.com aynı dizinde olmalı.
https://winscp.net/download/WinSCP-5.15.1-Portable.zip
VBA içinde ftp kullanmak istedim. windows un ftp programı kararsız çalıştı.
winscp.com programı komut satırı çalışmasında sorun çıkarmadı.
Bu tür bir çalışma olur ise bilginiz olsun
Portable sürümü için indirme linki.
Winscp.exe ve winscp.com aynı dizinde olmalı.
https://winscp.net/download/WinSCP-5.15.1-Portable.zip
Kod:
Sub dosyaindir()
adres = Sheets("Ayarlar").Range("B1")
ftpklasor = Sheets("Ayarlar").Range("B2") & "/" & Sheets("Ayarlar").Range("B3")
yerelyol = ActiveWorkbook.Path
inecekdosya = "dosya.CSV"
komut = localyol & "\winscp.com /ini=nul /command"
komut = komut & " ""open ftp://kullanici:sifre@" & adres & """ "
komut = komut & " ""cd /" & ftpklasor & """ "
komut = komut & " ""lcd " & yerelyol & """ "
komut = komut & " ""get " & inecekdosya & """ "
komut = komut & " ""exit" & """ "
Dim wsh As Object
Set wsh = CreateObject("WScript.Shell")
wsh.Run komut, 1, True
End Sub