ftpcomm



FTP a text file to a Professional using VBA in Excel - Stack ...

Vote count: 2

I have an Excel worksheet where the user enters certain data, which I want to store in a text file and upload to a Server using FTP. One site suggested adding a reference to "Microsoft Internet Transfer Control" and then define an "Inet" object to do the File Transfer Protocol. However, I am unable to find a reference with this name in "Tools -> References" in the VB Editor. Does anyone know of a solution for this problem? Thanks in advance.

edited Jul 9 at 19:34 Community♦ asked May 26 '10 at 15:58 Anindya 1 Answer Vote count: 5 accepted

Here is a solution I found by doing some Google search -

Public Sub FtpSend() Dim vPath As String Dim vFile As String Dim vFTPServ As String Dim fNum As Long vPath = ThisWorkbook.Path vFile = "YourFile.csv" vFTPServ = "********" 'Mounting file command for FTP.exe fNum = FreeFile() Open vPath & "\FtpComm.txt" For Output As #fNum Print #1, "user ***** *****" ' your login and password" Print #1, "cd TargetDir" 'change to dir on Server Print #1, "bin" ' bin or ascii file type to send Print #1, "put " & vPath & "\" & vFile & " " & vFile ' upload local filename to Server file Print #1, "close" ' close connection Print #1, "quit" ' Quit FTP Software Close Shell "FTP -n -i -g -s:" & vPath & "\FtpComm.txt " & vFTPServ, vbNormalNoFocus SetAttr vPath & "\FtpComm.txt", vbNormal Kill vPath & "\FtpComm.txt" End Sub

Original source: http://www.access-programmers.co.uk/forums/showthread.php?t=184692

edited May 3 '13 at 0:13 Simon MᶜKenzie answered Jun 1 '10 at 11:16 Anindya

MS DOS Get Date in format YYYYMMDD - Experts Exchange

Basically, you just take apart the %DATE% variable and reorder as needed.  The only thing that complicates this slightly is different machines can be configured for different date format settings (based on country, etc), so one solution doesn't work exactly for everybody.

To get started do the following command at a command line:

ECHO %DATE%

This will show you the format for the date in that variable on your system.  Mine looks like this:

Mon 04/26/2010

Then, in the bat file, you can use the "substring" and "concatenate" capability to rearrange the pieces anyway you want.  So to get YYYYMMDD from my format, I would do:

SET MYDATE=%DATE:~10,4%%DATE:~7,2%%DATE:~4,2%

There are other ways to chop up the formatted date, but this is one of the easiest.

Help on the substring capability can be found via SET /? at a prompt.  Just keep in mind the offset is zero based, so the first character is offset 0, not 1.

~bp


File Transfer Protocol Download Using VBA - Experts-Exchange

I need some code to Download a file using File Transfer Protocol.  I need to visit a site, Free Download a file there and save that Free Download file to a directory on my computer.   I also need some mechanism to tell me if the code failed and what the failure was (connection,missing file, wrong directory).  The module runs without showing me an error but nothing else happens.  I have searched the entire computer and cannot find the file "Test3.txt".  Here is my data; the code I am trying to use is shown below

Each of the variables below will be chosen using DLOOKUP from a table (this part is easy)   local Folder=c:\juricta\OLCC - where to store the downloaded FTP file   localFileName=inventory.txt - name I want downloaded file to be called on my computer   ftpFolder=Liquor (1 sub-directory below root for site)(FULL folder=www.randdcomputers.com/Liquor)   ftpFileName=Test3.txt   ftpSite=www.randdcomputers.com  (FILE WANTED is in www.randdcomputers.com/Liquor)   ftpUserName=juricta   ftpPassword=Dltbgyd!982

*********************************Code Used*********************************

    'CODE for download    ' Shell variant    ' Requires reference to Microsoft Shell Controls and Automation    Dim myShell As Shell32.Shell    Dim localFolder As Shell32.Folder ' folder on PC    Dim ftpFolder As Shell32.Folder

    Set myShell = New Shell    Set localFolder = myShell.NameSpace("C:\juricta\OLCC")    Set ftpFolder = myShell.NameSpace("File Transfer Protocol://juricta:Dltbgyd!982@www.randdcomputers.com/Liquor/")       localFolder.CopyHere ftpFolder.Items.Item("Test3.txt")    Anyone have either an explanation or BETTER yet, and easier way to do this??


https://proxyship.click/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://thepiratebay.bet/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://pirateprox.club/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://ikwildepiratebay.org/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://proxyproxyproxy.nl/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://tpb.tw/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://proxypirate.in/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://ukpirate.click/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://pirateproxy.wf/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://urbanproxy.eu/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://piratebays.co/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://pirateproxy.yt/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://pirateproxy.click/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://gameofbay.org/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://piratebay.click/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://pirateproxy.tf/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://tpbunblocked.org/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://piratebaymirror.eu/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://ukpirateproxy.xyz/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://unblocktpb.com/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://pirate.trade/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://piratebays.co.uk/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://thepiratebay-proxy.com/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://wearepirates.click/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://thebay.tv/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://unblockedbay.info/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://tpbportal.in/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://ukpirate.org/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://piratebay.red/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://proxyspotting.in/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://hyperproxy.net/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://duckingproxy.eu/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://piratebayproxy.tf/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://thepiratebay.uk.net/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://piratetoday.click/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://thepiratebay.blue/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://fastpiratebay.co.uk/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://tpb.zone/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://uktpbproxy.info/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://thepirateproxy.ws/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://uktpbmirror.pw/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://opentpb.com/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://theproxybay.me/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://pirateproxy.website/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://unblocktpb.pro/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://tpbship.org/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://tpbmirror.ga/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://fastbay.net/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://proxyship.click/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://thepiratebay.org/torrent/19420586/CuteFTP_Professional_v9.0.5_Full_Version_Patched_Team_REVENGE   https://thepiratebay.org/torrent/19420586     http://exambrain.net/CuteFTP.Professional.v9.0.5.incl.Patch-REVENGE.zip   https://drive.google.com/open?id=1JWKF_Q5YQQMas9Dzq3pTGdj75EeXzpFJ   https://drive.google.com/file/d/1JWKF_Q5YQQMas9Dzq3pTGdj75EeXzpFJ/view?usp=sharing   https://drop.me/aq35AJ   http://www110.zippyshare.com/v/DJgWDrML/file.html   https://files.fm/u/saer6vfr   https://ufile.io/mtxhp   https://we.tl/wCFggSQYeC   http://s000.tinyupload.com/index.php?file_id=08253588975460415519   https://www.megaupload.us/Tga/CuteFTP.Professional.v9.0.5.incl.Patch-REVENGE.zip   https://www.sendspace.com/file/vxabca   https://spaces.hightail.com/receive/WDXcPYt5cI   http://www.filedropper.com/cuteftpprofessionalv905inclpatch-revenge   https://file.io/6NsQLU   https://expirebox.com/download/b0acdc8950db6700e4f78784cd772e22.html   http://www.filetolink.com/eca645a03e   https://upload.cat/dd00bae3e1888794   https://dropfile.nl/get/3U7CQV   http://fileze.net/1Mkr   http://ge.tt/6Yfu1nn2   https://www.sharebase.net/4951a01dfdc95743   http://dropmefiles.com/NGT70   https://downace.com/4Ow6l   https://quickfileshare.org/5S5/CuteFTP.Professional.v9.0.5.incl.Patch-REVENGE.zip   https://filesup.me/8vx/CuteFTP.Professional.v9.0.5.incl.Patch-REVENGE.zip  


Castrapraetoria FTP Clients
Pakoman FTP Clients
AutoTran FTP Clients

 

 

AutoTran
Vintage Automatic Transmission Parts

1946 to the mid 60's and later

Best viewed with IE @800x600 or higher

David Edwards
56 Dale Street, Dept. A
Needham Heights, MA 02494-1218

Phone: 1-781-449-2065 Anytime by chance

The best time to reach me by telephone is 6:00 AM to 10:00 AM Eastern time most days except Wednesdays, which is evenings only.
I am at my computer and telephone during this time answering e-mails, returning
phone calls from the previous day and processing orders for the days shipments.


Fax: 1-781-449-2065 Anytime

E-mails
: info@autotran.us or order@autotran.us

autotran5@aol.com

If you have a part number, either OEM, ATP, Lempco or Republic type it in
 the above search box, and if it listed on my site, the search will lead you to it.


  Use OpenDNS