{"id":1248,"date":"2017-05-18T07:48:48","date_gmt":"2017-05-18T13:48:48","guid":{"rendered":"http:\/\/agiltools.com\/blogsp\/?p=1248"},"modified":"2017-05-18T18:56:15","modified_gmt":"2017-05-19T00:56:15","slug":"macro-ftp","status":"publish","type":"post","link":"https:\/\/agiltools.com\/blogsp\/macro-ftp\/","title":{"rendered":"Macro para transferir archivos a un sitio FTP"},"content":{"rendered":"

Recientemente tuve un caso donde luego de realizar unos c\u00e1lulos automatizados en Excel, el resultado deb\u00eda transferirse a un sitio FTP. \u00a0El desaf\u00edo entonces es si es posible crear una manera automatizada de transferir estos archivos al sitio remoto.<\/p>\n

Encontr\u00e9 varios recursos en l\u00ednea y gracias a ellos desarroll\u00e9 la siguiente soluci\u00f3n<\/p>\n

Sub UploadFile()\r\nDim strDirectoryList As String\r\nDim lStr_Dir As String\r\nDim lInt_FreeFile01 As Integer\r\nDim lInt_FreeFile02 As Integer\r\nDim nn As String\r\n\r\nOn Error GoTo Err_Handler\r\n    lStr_Dir = ThisWorkbook.Path\r\n    lInt_FreeFile01 = FreeFile\r\n    lInt_FreeFile02 = FreeFile\r\n    nn = \"ftpcom\"\r\n    strDirectoryList = lStr_Dir & \"\\\" & nn\r\n\r\n    '' Borrar archivo de cierre\r\n    If Dir(strDirectoryList & \".out\") <> \"\" Then Kill (strDirectoryList & \".out\")\r\n\r\n    '' Crear archivo de texto con instrucciones FTP\r\n    Open strDirectoryList & \".txt\" For Output As #lInt_FreeFile01\r\n    Print #lInt_FreeFile01, \"!REM upload files\"\r\n    Print #lInt_FreeFile01, \"open ftp.agiltools.com\"\r\n    Print #lInt_FreeFile01, \"USER suusuarioaqui supasswordaqui\"\r\n    Print #lInt_FreeFile01, \"binary\"\r\n    Print #lInt_FreeFile01, \"!REM turn off interactive mode\"\r\n    Print #lInt_FreeFile01, \"prompt\"\r\n    Print #lInt_FreeFile01, \"mput \"\"\" & ThisWorkbook.Path & \"\\project.XML\"\"\"\r\n    Print #lInt_FreeFile01, \"bye\"\r\n    Close #lInt_FreeFile01\r\n\r\n    '' Crear archivo Batch\r\n    Open strDirectoryList & \".bat\" For Output As #lInt_FreeFile02\r\n    Print #lInt_FreeFile02, \"ftp -n -s:\"\"\" & strDirectoryList & \".txt\"\"\"\r\n\r\n    Print #lInt_FreeFile02, \"Echo \"\"Complete\"\" > \"\"\" & strDirectoryList & \".out\"\"\"\r\n    Close #lInt_FreeFile02\r\n\r\n    PathCrnt = ActiveWorkbook.Path\r\n    Shell (\"\"\"\" & PathCrnt & \"\\\" & nn & \".bat\"\"\")\r\n    Application.Wait (Now + TimeValue(\"0:00:03\"))\r\n\r\n    '' Clean up files\r\n    If Dir(strDirectoryList & \".bat\") <> \"\" Then Kill (strDirectoryList & \".bat\")\r\n    If Dir(strDirectoryList & \".out\") <> \"\" Then Kill (strDirectoryList & \".out\")\r\n    If Dir(strDirectoryList & \".txt\") <> \"\" Then Kill (strDirectoryList & \".txt\")\r\n\r\nbye:\r\nExit Sub\r\n\r\nErr_Handler:\r\n    MsgBox \"Error : \" & Err.Number & vbCrLf & \"Description : \" & Err.Description, vbCritical\r\n    Resume bye\r\n\r\nEnd Sub<\/pre>\n
En s\u00edntesis es una macro que crea un archivo de texto con las instrucciones en sintaxis FTP, luego crea un archivo\u00a0Batch <\/a>que transfiere instrucciones MS-DOS siguiendo cada una de las \u00a0l\u00edneas del archivo de texto. Al finalizar, crea un archivo con extensi\u00f3n .out<\/strong> donde se confirma la transferencia.<\/p>\n
N\u00f3tese que es necesario cambiar el c\u00f3digo para agregar el usuario y password correcto. En ocasiones el sitio FTP no requiere password pues la conexi\u00f3n es an\u00f3nima. Si este es el caso, simplemente remueva esas dos l\u00edneas del c\u00f3digo.<\/p>\n
El siguiente video muestra el programa en ejecuci\u00f3n.<\/p>\n
\n