vba ile Ftp Dosya Transferi Hakkında

[domino]

Private Sub CommandButton2_Click()
Application.DisplayAlerts = False
isim = ThisWorkbook.ActiveSheet.Range("B1").Value
ActiveSheet.Copy
With ActiveWorkbook
.SaveAs "Ftp://kullanıcıadı:şifre@ftpsitem.com.tr/vbnet/" & isim & ".xlsx"
.Close
End With
MsgBox "İşlem tamam.", vbInformation, ""
Application.DisplayAlerts = True
End Sub

Kodlarım bunlar ama şu hatayı alıyorum.
Run-time error '1004':
Methot 'SaveAs' of object'_Workbook' failed

İşin içinden çıkamadım. Yardımcı olabilirseniz sevinirim.

 

[systran]

çok fazla bilgim olmamakla birlikte şu adresteki örneği inceleyiniz. FTP komutlarını ayrı bir dosya içinde C:\ Klasörünü kayıt edip, yükleme işlemini yaptırıyor.

https://www.mrexcel.com/forum/excel-questions/490790-macro-send-file-ftp-site.html

 

[domino]

Maalesef aradığım cevabı vermiş olduğunuz linkte bulamadım.