Excel VBA FTP

08/04/2009 - 10:32 von Beck, Alwin | Report spam
Hallo,
ich versuche über EXCEL eine Datei auf ein System zu übertragen.
Dabei gibt es Probleme beim Login.
Wenn ich gem. unten aufgeführtem code das mache, kommt immer
ein Fehler beim Kennwort - es erfolgt kein Login.

Setze ich die Shell ganz ans Ende also nach Block

Print #1, "close"
Print #1, "quit"
Close #1

so funktioniert der Login - aber es wird nichts übertragen.
Was stimmt hier nicht ?



Private Sub CommandButton1_Click()
'FTP Übertragung einer Datei auf Server

Dim Name01
Dim PW01
Dim System

Name01 = InputBox("Name eingeben")
PW01 = InputBox("PW eingaben")
System = "192.168.100.1"

Open "c:\ftpupload.bat" For Output As #1
Print #1, "@echo off"
Print #1, "ftp %1 %2"
Print #1, "pause"
Close #1

Open "c:\ftpupload.txt" For Output As #1
Print #1, Name01
Print #1, PW01
Print #1, "Binary"
Print #1, "verbose aus"
Print #1, "cd test"

Shell "c:\ftpupload.bat -s:c:\ftpupload.txt " & System, vbNormalFocus

Print #1, "close"
Print #1, "quit"
Close #1

End Sub



Danke
Gruß
Albe
 

Lesen sie die antworten

#1 Thomas Kühn
08/04/2009 - 11:11 | Warnen spam
Hallo Alwin,


Open "c:\ftpupload.txt" For Output As #1



Hier überschreibst Du die zuvor geschrieben Datei
wieder. Versuche mal:

Open "c:\ftpupload.txt" For Append As #1


Gruß Thomas


http://www.thomas-kuehn.de

Ähnliche fragen