Upload de fichier via FTP à partir d'Excel VBA

Besoin de télécharger un fichier (file.txt) à un serveur (ftp.server.com) à partir d'Excel VBA.
(n'a pas à être nécessairement FTP, juste besoin d'être en mesure de mettre le fichier et le récupérer, et j'ai un serveur sur GoDaddy hébergement mutualisé),

Ce que j'ai essayé était à l'exécution de ce script:

ftp -s:script.txt

script.txt:

open ftp.server.com
USER
PASS
lcd c:\
put file.txt
disconnect
bye

L'erreur que j'obtiens est:

425 impossible d'ouvrir la connexion de données à port 53637: Connection timed out

Google m'indique que je dois aller en mode passif, mais la ligne de commande ftp.exe client ne permet pas que.

Quelqu'un sait de toute libre (open source) de ligne de commande client FTP qui permet le mode passif?

Dois-je avoir une alternative plus facile de faire du FTP?

Est-il une meilleure façon de télécharger un fichier via VBA (sans la ligne de commande de contournement)?

Je suis en train de réfléchir à l'aide de DROPBOX (mais je n'ai vraiment pas envie d'installer ce programme sur tous les postes de travail qui devront le programme).

si VBA permet à une requête HTTP, vous pouvez envoyer le fichier à un script sur votre serveur et ensuite le script de la gérer.

OriginalL'auteur Diego Castro | 2011-10-12

3

http://winscp.net est gratuit, de scripts, prend en charge le mode passif et il est vraiment EXCELLENT.

Je Ne comprends pas pourquoi c'est la réponse ? Le gars a demandé de VBA dans excel, pas pour les logiciels de bureau! Pour le bureau, FileZilla est le meilleur et le plus utilisé et fonctionne sur toutes les plateformes: Windows, Linux, Mac: filezilla-project.org
est le meilleur" est très subjective. Autant que je sache, FZ n'est pas scriptable qui le rend inutilisable pour de nombreuses situations. C'est un fait 🙂
guy" - comme vous dites - probablement compris la réponse mieux que vous. Ma suggestion répondait exactement à ses besoins.
J'ai posté un réponse avec un exemple comment utiliser WinSCP.
Je suis d'accord avec toi camarade, cette réponse ne doit pas avoir été accepté

OriginalL'auteur Patrick Honorez
6

Si vous ne pouvez pas utiliser le Windows ftp.exe (en particulier parce que il ne prend pas en charge le mode passif et TLS/SSL), vous pouvez utiliser une autre ligne de commande client FTP.

Par exemple, pour télécharger un fichier à l'aide de WinSCP script, utilisation:
```
Call Shell( _
    "C:\path\WinSCP.com /log=C:\path\excel.log /command " & _
    """open ftp://user:[email protected]/"" " & _
    """put C:\path\file.txt /path/"" " & _
    """exit""")
```
Pour faciliter la lecture, le ci-dessus s'exécute ces WinSCP commandes:
```
open ftp://user:[email protected]/
put C:\path\file.txt /path/
exit
```
Vous pouvez mettre les commandes dans un fichier de script et exécutez le script avec /script= paramètre de ligne de commande, de même pour le ftp -s:, au lieu de la /command.

Voir le guide de La conversion de Windows script FTP pour WinSCP script.

Vous pouvez même avoir WinSCP GUI générer le script de chargement FTP pour vous.

WinSCP par défaut pour le mode passif.

Vous pouvez également utiliser FTPS (SSL/TLS):
```
open ftpes://user:password@example.com/
```
Alternativement, vous pouvez utiliser WinSCP .NET de l'assemblée via COM à partir du code VBA.

(Je suis l'auteur de WinSCP)

Désolé.. stackoverflow.com/questions/51762332/...

OriginalL'auteur Martin Prikryl

Diego, j'ai utilisé le code ci-dessous avec succès depuis des années. Le code obtient des fichiers à partir de l'hôte, mais je suis sûr qu'il peut être modifié pour mettre des fichiers il y a la place.

'Start Code
Set FSO = CreateObject("scripting.filesystemobject")

'**************************************************************************************    '***        Create FTP Action File & Initiate FTP File Transfer
'**************************************************************************************    VREDET = filename1 'Variable holding name of file to get

F = "C:\Volume\Temp\FTPScript.txt" 'creates the file that holds the FTP commands

Open F For Output As #1
Print #1, "open ftp.server" 'replace ftp.server with the server address
Print #1, ID 'login id here
Print #1, PW 'login password here
Print #1, "cd " & " Folder1" 'Directory of file location
Print #1, "cd " & " Folder2" 'Sub-Directory of file location
Print #1, "ascii"
Print #1, "prompt"
'Get the file from the host and save it to the specified directory and filename
Print #1, "get " & VREDET; " C:\some\directory\" & another-filename & ".CSV"
Print #1, "disconnect" 'disconnect the session
Print #1, "bye"
Print #1, "exit"
Close #1

'identify folder where ftp resides and execute the FTPScript.txt file
'vbHide - hides the FTP session

If FSO.FolderExists("C:\Windows\System32") = False Then
    Shell "C:\WINNT\system32\ftp.exe -s:C:\Volume\Temp\FTPScript.txt", vbHide
Else
    Shell "C:\WINDOWS\system32\ftp.exe -s:C:\Volume\Temp\FTPScript.txt", vbHide
End If
'end code

Natif de windows FTP ne prend pas en charge le mode passif et c'est un écueil quand vous en avez besoin.
thnx @Jeremy, mais j'ai vraiment besoin de mode passif
pas de réponse, jusqu'à ce qu'il répond à la question

OriginalL'auteur Jeremy

-1

Le script ci-dessus est grande j'ai utilisé les commandes suivantes pour télécharger des fichiers, enregistrer la sortie dans un fichier qui est utile lors du débogage aussi c'est une idée fausse commune que windows ftp ne peut pas faire le mode passif de la commande pour aller passive est "citation pasv" (j'ai ajouté à cela le script

Sub FtpFileto()
    Set FSO = CreateObject("scripting.filesystemobject")
    F = "C:\FTPScript.txt"
    ' Create the ftpscript to be run

    Open F For Output As #1
    Print #1, "open ftp.server.com" 'replace ftp.server with the server address
    Print #1, "ID" 'login id here
    Print #1, "PWD" 'login password here
    Print #1, "quote pasv" ' passive mode ftp if needed
    Print #1, "cd " & " /dir" 'Directory of file location
    Print #1, "cd " & " subdir" 'Sub-Directory of file location
    Print #1, "ascii"
    Print #1, "prompt"
    'Put the file from the host and save it to the specified directory and filename
    Print #1, "put " & VREDET; """C:\file1.csv"""; ""
    Print #1, "put " & VREDET; """C:\file2.csv"""; ""
    Print #1, "put " & VREDET; """C:\file3.csv"""; ""
    Print #1, "disconnect" 'disconnect the session
    Print #1, "bye"
    Print #1, "exit"
    Close #1
    'Now for the command to upload to the ftpsite and log it to a text file
    ' the trick is to use the standard command shell which allows logging

    Shell "cmd /c C:\WINDOWS\system32\ftp.exe -i -s:C:\FTPScript.txt > c:\ftpuploadlog.txt", vbHide

    End Sub

Windows ftp.exe ne prend pas en charge le mode passif. À l'aide de quote pasv ne peut pas aider.

OriginalL'auteur Chait E

Vous devez vous connecter pour publier un commentaire.