Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA ActiveWorkbook.SaveAs Problem

VBA ActiveWorkbook.SaveAs Problem
30.12.2003 10:54:29
Matthias der 2. (hier im Forum)
Hallo zusammen,

habe mir ein kleines Makro geschrieben, welches eine XLS-Datei umformt und auf einen passwortgeschützten FTP-Server ablegen soll.

Folgende Codezeile:

ActiveWorkbook.SaveAs Filename:="ftp://www.ftp-server.de/verzeichnis/datei.csv", FileFormat:=xlCSVMSDOS, CreateBackup:=False

Problem:

Excel vergisst schonmal das ftp-Passwort. Wie kann ich excel per VBA beibringen, das FTP-Passwort und Benuternamen anzuwenden?

Vielen Dank für eure Hilfe und guten Rutsch ins neue Jahr

Mfg

Matthias

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA ActiveWorkbook.SaveAs Problem
30.12.2003 12:43:49
soendi
hallo matthias!

probiers doch mal so:

ftp://BENUTZERNAME:PASSWORT@www.ftp-server.de/verzeichnis/datei.csv/
(der doppelpunkt zwischen benutzername und passwort msus so sein. danach das @ und dann den rest!)

(das funktioniert standardmässig in windows, muss aber nicht heissen, dass es aus excel heraus auch funktioniert!)

soendi
AW: VBA ActiveWorkbook.SaveAs Problem
30.12.2003 12:45:24
andre
hallo matthias,
direkt mit ftp im prinzip so:
code im userform, 1 button und 1 textbox und einigen daten auf blatt1 - siehe code
die können natürlich auch in textboxen ...


Private Sub CommandButton1_Click()
Open "c:\login.txt" For Output As #1
Print #1, Worksheets("tabelle1").[b2] 'User
Print #1, UserForm1.TextBox2.Text 'Passwort
Print #1, "cd " & Worksheets("tabelle1").[b3] 'TargetDirectory, z.B. /
Print #1, "ascii" '"binary"
Print #1, "put " & Worksheets("tabelle1").[b4] 'UploadFile, z.B. c:\test.xls
Print #1, "bye" '"quit"
Close
Shell "ftp -d -s:c:\login.txt " & _
Worksheets("tabelle1").[b1], vbNormalFocus 'vbHide
staring = "ftp -s:c:\login.txt " & _
Worksheets("tabelle1").[b1]
' wozu ist staring?
Kill "c:\login.txt"
End Sub


gruss andre
Anzeige

329 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige