Datei per FTP aus dem Intennet laden

Computer: Software & Programmierung Office Software
1

Hallo,
ich suche ein Makro mit welchem ich per Systembefehl „FTP“ eine Datei von einem FTP-Server laden kann.
Ich möchte das Makro mit folgenden Parametern aufrufen:

  1. Serveradresse z.B. : „home1.meinserver.de“
  2. Benutzername z.B. : „benutzer1“
  3. Passwort z.B. : „meinpw“
  4. Dateiname z.B : „Daten.csv“
  5. Pfad auf Server z.B. : „\Daten“
  6. Lokaler Speicherort z.B. : „Q:\Arbeit\Daten“

Leider sind meine VBA-Kenntisse nur sehr gering, da ich bisher nur in EXCEL4 Makro programiert habe.
Ich hoffe das mir Jemand bei diesem Problem helfen kann.

vielen Dank für Antworten schon im Voraus

Herbert

2

Grüezi Herbert

ich suche ein Makro mit welchem ich per Systembefehl „FTP“
eine Datei von einem FTP-Server laden kann.
Ich möchte das Makro mit folgenden Parametern aufrufen:

  1. Serveradresse z.B. : „home1.meinserver.de“
  2. Benutzername z.B. : „benutzer1“
  3. Passwort z.B. : „meinpw“
  4. Dateiname z.B : „Daten.csv“
  5. Pfad auf Server z.B. : „\Daten“
  6. Lokaler Speicherort z.B. : „Q:\Arbeit\Daten“

Versuche mal folgendes - erstelle eine Datei namens C:\FTP_commands.txt mit dem folgenden Inhalt, angepasst auf deinen Server und deine Datei.

open dein.ftpserver.com
user deinUsername deinPasswort
lcd C:\Downloads
cd deinRemoteFolder
binary
get "Deine Datei.xlsx"
bye

In Excel verwendest Du dann folgende Sub um den Import anzustossen:

Public Sub Ftp\_Download\_File()

 Dim FTPcommand As String
 Dim wsh As Object

 FTPcommand = "ftp -n -s:" & Chr(34) & "C:\FTP\_commands.txt" & Chr(34)
 Set wsh = CreateObject("WScript.Shell")
 wsh.Run FTPcommand, 5, True


End Sub

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -
3

Hallo Thomas,

Danke für Deine Hilfe. Ich habe es sofort ausprobiert.

und sieh da es funktioniert ausgezeichnet.

nochmal danke für deine Info

mfg

Herbert Meier