vba上传指定文件ftp服务器

最新推荐文章于 2021-08-12 16:29:01 发布
最新推荐文章于 2021-08-12 16:29:01 发布
阅读量2.7k 收藏 26
点赞数 2
分类专栏： FTP 文章标签： VSFTPD
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_40816738/article/details/96985428
版权

文章目录

一、需求分析：

  • 在excel表格中指定文件路径，将指定文件上传ftp服务器

二、操作流程：

2.1 【开发工具】-【宏】

在这里插入图片描述

2.2 【宏】-【编辑】

在这里插入图片描述

2.3 【把脚本复制进去】

在这里插入图片描述

2.4 脚本如下

Sub 按钮1_Click()
Dim i, str1, str2, str3, str4, str5, str6, str7, str8, str9, str10, d
Dim myarray()
On Error Resume Next
Set mysheet1 = ThisWorkbook.Worksheets("sheetName自定义")
Set fs = CreateObject("Scripting.FileSystemObject")

'获取本地路径
If mysheet1.Cells(2, 3) <> "" Then
str3 = Replace(Sheet1.Cells(2, 3), "/", "\")
str3 = Trim(str3)
If Right(str3, 1) <> "\" Then
str3 = str3 & "\"
'MsgBox str6
End If
End If

'循环扫描文件名,生成一个只有文件名字的字符串
For i = 4 To 100
If mysheet1.Cells(i, 3) <> "" Then
str1 = Replace(Sheet1.Cells(i, 3), "/", "\")
str1 = Trim(str1)
str4 = str3 & str1
str5 = "Echo mput " & Chr(34) & str4 & Chr(34) & " >>ftp.up"
str9 = str9 & " " & str5 'str9所有要上传的文件
End If
Next
'MsgBox str9

'上传
Set fsd = CreateObject("Scripting.FileSystemObject")
str10 = str3 & "1.bat" '脚本
str11 = "Echo open IP地址>ftp.up" '远程路径
str12 = "Echo 用户名>>ftp.up" '账号
str13 = "Echo 密码>>ftp.up" '密码

Set fid = fsd.CreateTextFile(str10, True) '后面开始写脚本
fid.WriteLine ("@Echo Off ") '开远程
fid.WriteLine (str11)
fid.WriteLine (str12)
fid.WriteLine (str13)
fid.WriteLine ("Echo Cd .\User >>ftp.up")
fid.WriteLine ("Echo binary>>ftp.up")
fid.WriteLine ("Echo prompt >>ftp.up")
fid.WriteLine ("Echo lcd " & Chr(34) & str3 & Chr(34) & ">>ftp.up")
fid.WriteLine (str9)
fid.WriteLine ("Echo bye>>ftp.up")
fid.WriteLine ("FTP -s:ftp.up")
fid.WriteLine ("del ftp.up /q")
fid.Close
str16 = "cmd.exe /c " & str10 '运行脚本
'MsgBox str16
Shell str16

 MsgBox "传输完成"
End Sub

2.5 修改位置

2.5.1 修改sheet名称和表格一致

在这里插入图片描述

2.5.2 修改Cells(2,3)
  • 指的是地2行
    在这里插入图片描述
2.5.3 修改4 to 100
  • 4指的是从第4行的开始
  • 100指的是从第100行开始
    在这里插入图片描述
2.5.4 修改Cells(i,3)
  • i指的是行，3指的是第几列
2.5.5 修改发ftp信息
  • ip地址
  • 用户名
  • 密码

在这里插入图片描述

2.5.6 保存脚本

在这里插入图片描述

三、添加上传按钮

  • 【开发工具】-【插入表单控件】
    在这里插入图片描述
    -【指定宏】
    在这里插入图片描述
    -【选择指定的宏名】
    在这里插入图片描述
  • 【双击修改按钮名称】

效果图：

在这里插入图片描述
在这里插入图片描述
在这里插入图片描述

校验版本

Sub 文件上传ftp服务器()
Dim i, str1, str2, str3, str4, str5, str6, str7, str8, str9, str10, d
Dim myarray(), MyFile As Object
Set MyFile = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set mysheet1 = ThisWorkbook.Worksheets("sheetName自定义")
Set fs = CreateObject("Scripting.FileSystemObject")

'获取本地路径
If mysheet1.Cells(2, 3) <> "" Then
str3 = Replace(Sheet1.Cells(2, 3), "/", "\")
str3 = Trim(str3)
If Right(str3, 1) <> "\" Then
str3 = str3 & "\"
'MsgBox str6
End If
End If

'循环扫描文件名,生成一个只有文件名字的字符串
For i = 4 To 100
If mysheet1.Cells(i, 3) <> "" Then
str1 = Replace(Sheet1.Cells(i, 3), "/", "\")
str1 = Trim(str1)
str4 = str3 & str1

If MyFile.FileExists(str4) = True Then
Else
MsgBox str4 & " 文件不存在"
End If

str5 = "Echo mput " & Chr(34) & str4 & Chr(34) & " >>ftp.up"
str9 = str9 & " " & str5 'str9所有要上传的文件
End If
Next
'MsgBox str9



'上传
Set fsd = CreateObject("Scripting.FileSystemObject")
str10 = str3 & "1.bat" '脚本
str11 = "Echo open ip地址>ftp.up" '远程路径
str12 = "Echo 用户名>>ftp.up" '账号
str13 = "Echo 密码>>ftp.up" '密码

Set fid = fsd.CreateTextFile(str10, True) '后面开始写脚本
fid.WriteLine ("@Echo Off ") '开远程
fid.WriteLine (str11)
fid.WriteLine (str12)
fid.WriteLine (str13)
fid.WriteLine ("Echo Cd .\User >>ftp.up")
fid.WriteLine ("Echo binary>>ftp.up")
fid.WriteLine ("Echo prompt >>ftp.up")
fid.WriteLine ("Echo lcd " & Chr(34) & str3 & Chr(34) & ">>ftp.up")
fid.WriteLine (str9)
fid.WriteLine ("Echo bye>>ftp.up")
fid.WriteLine ("FTP -s:ftp.up")
fid.WriteLine ("del ftp.up /q")
fid.Close
str16 = "cmd.exe /c " & str10 '运行脚本
'MsgBox str16
Shell str16

 MsgBox "传输完成"
End Sub

无校验版本

Sub 按钮1_Click()
Dim i, str1, str2, str3, str4, str5, str6, str7, str8, str9, str10, d
Dim myarray()
On Error Resume Next
Set mysheet1 = ThisWorkbook.Worksheets("sheetName自定义")
Set fs = CreateObject("Scripting.FileSystemObject")

'获取本地路径
If mysheet1.Cells(2, 3) <> "" Then
str3 = Replace(Sheet1.Cells(2, 3), "/", "\")
str3 = Trim(str3)
If Right(str3, 1) <> "\" Then
str3 = str3 & "\"
'MsgBox str6
End If
End If

'循环扫描文件名,生成一个只有文件名字的字符串
For i = 4 To 100
If mysheet1.Cells(i, 3) <> "" Then
str1 = Replace(Sheet1.Cells(i, 3), "/", "\")
str1 = Trim(str1)
str4 = str3 & str1
str5 = "Echo mput " & Chr(34) & str4 & Chr(34) & " >>ftp.up"
str9 = str9 & " " & str5 'str9所有要上传的文件
End If
Next
'MsgBox str9



'上传
Set fsd = CreateObject("Scripting.FileSystemObject")
str10 = str3 & "1.bat" '脚本
str11 = "Echo open ip地址>ftp.up" '远程路径
str12 = "Echo 用户名>>ftp.up" '账号
str13 = "Echo 密码>>ftp.up" '密码

Set fid = fsd.CreateTextFile(str10, True) '后面开始写脚本
fid.WriteLine ("@Echo Off ") '开远程
fid.WriteLine (str11)
fid.WriteLine (str12)
fid.WriteLine (str13)
fid.WriteLine ("Echo Cd .\User >>ftp.up")
fid.WriteLine ("Echo binary>>ftp.up")
fid.WriteLine ("Echo prompt >>ftp.up")
fid.WriteLine ("Echo lcd " & Chr(34) & str3 & Chr(34) & ">>ftp.up")
fid.WriteLine (str9)
fid.WriteLine ("Echo bye>>ftp.up")
fid.WriteLine ("FTP -s:ftp.up")
fid.WriteLine ("del ftp.up /q")
fid.Close
str16 = "cmd.exe /c " & str10 '运行脚本
'MsgBox str16
Shell str16

 MsgBox "传输完成"
End Sub
gblfy
关注
专栏目录
VBA实现FTP上传文件的两种方式：①shell cmd命令②vba调用vb.net(传参并获取返回值)
jiaxiao_jian的博客
10-04 3437
VBA实现FTP上传文件的两种方式：①shell cmd命令②vba调用vb.net(传参并获取返回值) 欢迎使用Markdown编辑器 你好！ 这是你第一次使用 Markdown编辑器 所展示的欢迎页。如果你想学习如何使用Markdown编辑器, 可以仔细阅读这篇文章，了解一下Markdown的基本语法知识。 新的改变 我们对Markdown编辑器进行了一些功能拓展与语法支持，除了标准的Markdown编辑器功能，我们增加了如下几点新功能，帮助你用它写博客： 全新的界面设计 ，将会带来全新的写作体验；
vba上传文件 服务器,通过Excel从Excel上传文件VBA
weixin_33969103的博客
08-06 894
迭戈，我多年来成功地使用了下面的代码。该代码从主机获取文件，但我确信可以修改它以将文件放在那里。'Start CodeSet FSO = CreateObject("scripting.filesystemobject")'************************************************************************************** '...
VB FTP上传下载
08-17
'模板: Option Explicit Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _ (ByVal sAgent As String, ByVal LAccessType As Long, ByVal sProxyName As String, _ ByVal SProxyBypass As String, ByVal lFlags As Long) As Long Public Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _ (ByVal hInternetSession As Long, ByVal sServerName As String, _ ByVal nServerPort As Integer, ByVal sUsername As String, _ ByVal sPassword As String, ByVal lService As Long, _ ByVal lFlags As Long, ByVal lContext As Long) As Long Public Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" _ (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _ ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, _ ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, _ ByVal dwContext As Long) As Boolean Public Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" _ (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _ ByVal lpszRemoteFile As String, ByVal dwFlags As Long, _ ByVal dwContext As Long) As Boolean Public Declare Function FtpDeleteFile Lib "wininet.dll" Alias "FtpDeleteFileA" _ (ByVal hFtpSession As Long, ByVal lpszFileName As String) As Boolean Public Declare Function FtpRenameFile Lib "wininet.dll" Alias "FtpRenameFileA" _ (ByVal hFtpSession As Long, ByVal lpszExsiting As String, ByVal lpszNew As String) As Boolean Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer Public Declare Function FtpFindFirstFile Lib "wininet.dll" Alias "FtpFindFirstFileA" _ (ByVal hFtpSession As Long, ByVal lpszSearchFile As String, _ lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, _ ByVal dwContent As Long) As Long Public Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" _ (ByVal hFind As Long, lpvFndData As WIN32_FIND_DATA) As Long Public Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Public Type WIN32_FIND_DATA dwFilAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * 260 cAlternate As String * 14 End Type Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _ "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long Type OPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As String End Type '窗体: Private Sub Command1_Click() 'FTP下载 lnginet = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, _ vbNullString, vbNullString, 0&) If lnginet Then lnginetconn = InternetConnect(lnginet, "219.131.192.243", 0, _ "posui", "djposui", 1, 0, 0) If lnginetconn Then blnRC = FtpGetFile(lnginetconn, "/load.txt", "c:\load.txt", 0, 0, 1, 0) If blnRC Then MsgBox "download ok!!!" End If InternetCloseHandle lnginetconn InternetCloseHandle lnginet MsgBox "close ok!!!" Else MsgBox "can't connect" End If Else MsgBox "ftp wrong" End If End Sub Private Sub Command2_Click() 'FTP上传 lnginet = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, _ vbNullString, vbNullString, 0&) If lnginet Then lnginetconn = InternetConnect(lnginet, "219.131.192.243", 0, _ "administrator", "vai8888", 1, 0, 0) If lnginetconn Then blnRC = FtpPutFile(lnginetconn, "c:\1.txt", "/1.txt", 0, 0) If blnRC Then MsgBox "download ok!!!" End If InternetCloseHandle lnginetconn InternetCloseHandle lnginet MsgBox "close ok!!!" Else MsgBox "can't connect" End If Else MsgBox "ftp wrong" End If End Sub 方法2: '部件INET Private Sub Command1_Click() Me.Inet1.Execute Me.Inet1.URL, "send c:\11.txt /1.txt" '保存 End Sub Private Sub Command2_Click() Me.Inet1.Execute Me.Inet1.URL, "get /2.txt c:\2.txt" '下载 End Sub
VBA实现ftp文件传输
禹鼎侯的博客
09-19 6617
VBA本身实现ftp的文件传输操作比较复杂，但是可以很方便的调用cmd命令窗口来执行shell命令，也就是调用cmd的小黑框。这对需要远程操作数据十分有用。 我们在vb编辑器里输入如下代码： Sub ftp() Dim env_addr, env_user, env_passwd, localftp, ftpfile, cfgfile As String env_addr = "1...
通过VBA实现FTP自动下载及关键字检索等功能
qq_41684416的博客
11-20 2341
通过VBA实现FTP自动下载及关键字检索等功能1.连接FTP，下载文件2.关键字检索 1.连接FTP，下载文件 1.1 常用参数配置 将经常使用的文件路径，用户名，密码，出力路径等值写在配置sheet中，可以方便使用者灵活修改。 对于设置为常量的参数，设置了必须输入check。防止发生异常。 1.2 连接FTP 命令： （例 IP地址:10.10.10.10；用户名:user；密码：pwd） ①输...
vba上传文件到ftp服务器指定目录下面
Gblfy_Blog
07-31 2385
vba上传文件到ftp服务器指定目录 +脚本形式 文章目录1. 测试版本无校验：2. 测试版本有检验3. 文件不存在校验版本4. 文件不存在校验+必填项校验版本 1. 测试版本无校验： Sub 按钮1_Click() Dim i, str1, str2, str3, str4, str5, str6, str7, str8, str9, str10, d Dim myarray() On ...
vba上传文件到ftp服务器,excel vba upload file to ftp server
weixin_34304211的博客
08-12 832
I am using the following script in excel to try and upload a text file to my server. For some reason my script is failing.Please can someone show me where I am going wrong? all the login details are c...
vba上传ftp服务器
weixin_30379531的博客
06-15 284
CodeDeclareFunctionInternetOpenA()FunctionInternetOpenALib"wininet.dll"(ByValsAgentAsString,_ByValLAccessTypeAsLong,ByValsProxyNameAs...
vba上传文件到ftp服务器,使用ftp.exe（使用VBA生成批处理文件）按顺序连接到多个FTP服务器...
weixin_35696012的博客
08-12 724
我试图从多个FTP服务器检索特定文件。这些服务器详细信息存储在Excel文件中。所以我正在编写VBA代码来生成.bat文件。使用ftp.exe(使用VBA生成批处理文件)按顺序连接到多个FTP服务器代码：Const script = "C:\Users\xyz.abc\trial.bat"Dim fileno As IntegerDim retval As Variantfileno = Free...
VBA 通過ftp 上傳文件
weixin_34367845的博客
05-19 305
CodeOption ExplicitPrivate Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As LongPrivate Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInherit...
EXCEL vba批量上传文件至SQL表
08-15
自定义修改：数据库地址、sa账户密码、数据库表名，表字段可自定义添加（必须和数据库表字段相同）
VBA 宏代码 自动更新 FTP 自动升级 模块导入即可
08-23
支持个人原创 转发请注明出处-出品人：劫米 由于公司做一个excel模板发给客户，录入后有一些vba的宏代码实现，每次修改都要客户重新录入比较麻烦，所以想到了远程单独实现升级代码块的功能。找了很多网上的资料都没有很好的实现。 所以自己写了一个用宏生成ftp脚本下载后，更新的模块，导入即可使用，非常方便。 自动升级模块我做成了ftp服务器的模式，在ftp上面放了一个ver.txt里面第一行版本号，第二行更新日期，第三行开始可以写一些注释或者更新说明 当判断ver.txt里面的版本与本地excel的autoupgrade_main里面的版本号不一样时，就会去下载ftp上面的bas,cls,frm宏代码块更新（这些格式的文件就是宏代码，导出的格式） 这样每次修改只要右键导出修改的vba代码块 当然每次修改都要修改下autoupgrade_main版本号加下，然后也导出，不然下回用户把其他模块更新完了，但是本地的版本号还是旧的，仍旧会更新 另外还支持手工配置升级的ftp 里面还有一个方法 copyfilexxx 这个是可以从共享服务器上面更新的，目前我没有使用，你修改下调用和相关的代码这个就可以改为从共享上面取更新了。
vb ftp上传
05-18
利用ftp上传下载，在局域网内使用，winxp环境下测试通过，欢迎大家测试帮助
VB实现FTP上传文件功能
05-23
可以实现文件上传功能，并能检索到FTP目前的目录
实现VB FTP上传文件
11-22
实现VB FTP上传文件 并而能检索到FTP目前的目录 ......
Excel vba编程实现ftp下载并打开自动运行
Clannad_niu的博客
02-26 5432
0x00 背景 最近因为疫情的原因憋在家实在无聊，搞了一下excel的宏编程 excel使用vba语言实现宏，虽然没学过 但是大致的代码可以看懂 就搞了一个打开excel自动运行宏 在ftp服务器上下载文件到本地的小脚本 0x01 配置 首先需要打开excel的宏，在excel的 开始-》选项-》信任中心 -》宏设置 -》启用所有宏 如下图 配置好宏以后，就可以开始宏编程了。 ...
VB实现在FTP上生成目录及FTP上的文件复制
08-14
本文将详细介绍如何使用Visual Basic（VB）在FTP服务器上创建目录并实现文件复制功能。这涉及到调用WinINET DLL中的函数来实现与FTP服务器的交互。具体包括连接FTP服务器、创建新目录、切换工作目录以及文件的复制等...
vbs自动上传ftp
03-22
- 实现定时上传任务，结合Windows任务计划程序，可以定期自动上传指定文件。 - 增加日志记录功能，记录每次上传的详细情况，便于后续追踪问题。 - 支持多线程上传，提高大文件的上传效率。 - 添加文件完整性校验功能...
vba上传文件到ftp服务器,excel - 从Excel连接到FTP以自动执行文件共享（VBA初学者） - 堆栈内存溢出...
weixin_33256096的博客
08-12 1514
我是Excel VBA的初学者和新手，但我试图通过连接到Excel并可能创建一个有用的宏来自动化FTP(WinSCP)中的一些文件共享。 在FTP中我去了Session> Generate Session URL / code> Script(脚本文件)，下面是代码：open ftp://myUsername:myPassword@theHostname/# Your command...
使用VBA，编写从FTP服务器获取文件夹及文件的名称，在连接FTP服务器时要设置IP和端口号
最新发布
06-08
以下是使用VBA连接FTP服务器并获取文件夹及文件名称的示例代码，其中需要设置FTP服务器的IP和端口号： ```vb Sub GetFTPFolderAndFileNames() Dim ftp As Object Dim ftpFolder As Object Dim ftpFile As Object Dim ftpFolderName As String Dim ftpFileName As String Dim ftpServer As String Dim ftpPort As Long '设置FTP服务器的IP和端口号 ftpServer = "192.168.1.100" ftpPort = 21 '连接FTP服务器 Set ftp = CreateObject("WinSCP.Session") ftp.Open "ftp://" & ftpServer & ":" & ftpPort, "username", "password" '获取FTP服务器根目录下的所有文件夹及文件名称 Set ftpFolder = ftp.ListDirectory("/") Do Until ftpFolder.Done ftpFolderName = ftpFolder.FileName Debug.Print "Folder: " & ftpFolderName Set ftpFile = ftpFolder.Files Do Until ftpFile.Done ftpFileName = ftpFile.FileName Debug.Print "File: " & ftpFileName ftpFile.Next Loop ftpFolder.Next Loop '关闭FTP连接 ftp.Close End Sub ``` 在上述代码中，我们使用了WinSCP组件来连接FTP服务器并获取文件夹及文件名称。需要先在VBA项目的引用中添加WinSCP组件的引用。 在连接FTP服务器时，我们使用了FTP服务器的IP和端口号来指定连接的端口。在获取文件夹及文件名称时，我们使用了ListDirectory()方法来获取FTP服务器根目录下的所有文件夹及文件名称。
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

gblfy

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值