VBA EXCEL e Download by FTP/Proxy

[rudibest]

Buongiorno a tutti.
Vi posto il codice che ho trovato su internet e che funziona
correttamente ma ho un problema.
Dalla mia azienda mi collego ad internet tramite un proxy e quindi
quando vado a lanciare questa macro non mi scarica nulla.
Qualcuno sa come aiutarmi a risolvere il problema?

Sub FTPFile()
Dim strFTP As Variant
Dim strUsername As Variant
Dim strPassword As Variant
Dim dirLocal As Variant
Dim file As Variant
Dim dirFtp As Variant
Dim tipo_trasf As Integer

strFTP = "pippo.altervista.org"
strUsername = "pippofranco"
strPassword = "segreta"
dirLocal = "c:\temp"
file = "inventario.pdf"
dirFtp = "Download"
tipo_trasf = 2

' indirizzo ftp,iduser,password,directory locale,
' nome file se =0 vengono presi tutti i file nella directory,
' directory sull'ftp,tipo_trasf
' tipo_trasf = 1 upload
' tipo_trasf = 2 download
' es: FTPFile "pippo.altervista.org", "pippofranco", "segreta", “c:
\temp\box1”, "inventario.pdf", "sections/15_MagScorte", 1

Dim objShellLocal, objShellFTP, objFolderLocal, objFolderFTP
Dim objShellDown, objFolderDown
Dim strPathFTP, strPathDown, strPathLocal

strPathLocal = dirLocal
strPathFTP = "ftp://" & strUsername & ":" & strPassword & "@" &
strFTP & "/" & dirFtp & "/"

Set objShellLocal = CreateObject("Shell.Application")
Set objFolderLocal = objShellLocal.Namespace(strPathLocal)
Set objShellFTP = CreateObject("Shell.Application")
Set objFolderFTP = objShellFTP.Namespace(strPathFTP)
Set objShellDown = CreateObject("Shell.Application")
Set objFolderDown = objShellDown.Namespace(strPathLocal)
Dim Item As Object

If tipo_trasf = 1 Then 'upload
'Trasferisce da cartella locale a FTP
If file = 0 Then
For Each Item In objFolderLocal.Items
objFolderFTP.CopyHere strPathLocal & Item.Name
'per spostare il file sostituire la riga
'sopra con questa objFolderFTP.MoveHere
'strPathLocal & Item.Name
Next
Else 'viene trasferito solo un file
objFolderFTP.CopyHere strPathLocal & file
End If
Else: 'download
'Trasferisce da FTP a diversa cartella locale
For Each Item In objFolderFTP.Items '
objFolderDown.CopyHere strPathFTP & Item.Name
Next
End If

Set Item = Nothing
Set objShellLocal = Nothing
Set objFolderLocal = Nothing
Set objShellFTP = Nothing
Set objFolderFTP = Nothing
Set objShellDown = Nothing
Set objFolderDown = Nothing

End Sub

[Mauro Gamberini]

Vi posto il codice che ho trovato su internet e che funziona
correttamente ma ho un problema.
Dalla mia azienda mi collego ad internet tramite un proxy e quindi
quando vado a lanciare questa macro non mi scarica nulla.

***********************************************

Non ho capito bene il tuo problema.
Vedi se questo pu� aiutarti:

http://www.vbmonster.com/Uwe/Forum.aspx/vb-networks/421/WinHttpGetIEProxyConfigForCurrentUser-and-VBA

--
---------------------------
Mauro Gamberini
Microsoft MVP - Excel
http://www.riolab.org/
http://www.maurogsc.eu/
http://social.microsoft.com/Forums/it-IT/excelit/threads

[rudibest]

On 9 Feb, 10:38, "Mauro Gamberini"
<maurogscRIMUOV...@RIMUOVEREaliceposta.it> wrote:
> Vi posto il codice che ho trovato su interneteche funziona

> correttamente ma ho un problema.
> Dalla mia azienda mi collego ad internet tramite un proxyequindi
> quando vado a lanciare questa macro non mi scarica nulla.
> ***********************************************
>
> Non ho capito bene il tuo problema.

> Vedi se questo può aiutarti:
>
> http://www.vbmonster.com/Uwe/Forum.aspx/vb-networks/421/WinHttpGetIEP...

>
> --
> ---------------------------
> Mauro Gamberini
> Microsoft MVP -Excelhttp://www.riolab.org/http://www.maurogsc.eu/http://social.microsoft.com/Forums/it-IT/excelit/threads

Ciao.
Ho visto il link che mi hai mandato, ho provato a fare qualche prova
ma non riesco a farlo funzionare, o meglio, la funzione non parte
proprio.

Sapresti dirm come posso fare per usarla?
Te ne sarei grato

[Tiziano Marmiroli]

Il Mon, 8 Feb 2010 00:31:35 -0800 (PST), rudibest ha scritto:

>Buongiorno a tutti.
>Vi posto il codice che ho trovato su internet e che funziona
>correttamente ma ho un problema.
>Dalla mia azienda mi collego ad internet tramite un proxy e quindi
>quando vado a lanciare questa macro non mi scarica nulla.
>Qualcuno sa come aiutarmi a risolvere il problema?

Se ho capito bene ti pu� aiutare solo il tuo amministratore di rete.

Se fai

Start>esegui
cmd.exe
ftp
open pippo.altervista.org

cosa ottieni?
--
Tiziano Marmiroli
Microsoft MVP - Office System
http://www.riolab.org

[rudibest]

On 10 Feb, 21:54, Tiziano Marmiroli <t.marmir...@mvps.org> wrote:
> Il Mon, 8 Feb 2010 00:31:35 -0800 (PST), rudibest ha scritto:
>
> >Buongiorno a tutti.
> >Vi posto il codice che ho trovato su internet e che funziona
> >correttamente ma ho un problema.
> >Dalla mia azienda mi collego ad internet tramite un proxy e quindi
> >quando vado a lanciare questa macro non mi scarica nulla.
> >Qualcuno sa come aiutarmi a risolvere il problema?
>

> Se ho capito bene ti puó aiutare solo il tuo amministratore di rete.

>
> Se fai
>
> Start>esegui
> cmd.exe
> ftp
> open pippo.altervista.org
>
> cosa ottieni?
> --
> Tiziano Marmiroli
> Microsoft MVP - Office Systemhttp://www.riolab.org

mi esce una schermata con una serie di comandi per trasferire i file
all'ftp.