vba上传指定文件ftp服务器

最新推荐文章于 2021-08-12 16:29:01 发布
最新推荐文章于 2021-08-12 16:29:01 发布
阅读量2.6k 收藏 25
点赞数 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
关注
  • 2
    点赞
  • 踩
  • 25
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 1
    评论
专栏目录
VB简单实现FTP功能源码
01-14
利用VB控件，简单实现FTP功能源代码。
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 这个是可以从共享服务器上面更新的，目前我没有使用，你修改下调用和相关的代码这个就可以改为从共享上面取更新了。
EXCEL vba批量上传文件至SQL表
08-15
自定义修改：数据库地址、sa账户密码、数据库表名，表字段可自定义添加（必须和数据库表字段相同）
VBA读取指定文件内容
09-06
通过设置文件设置读取指定路径下的文件，并指定读取内容示例，示例中详细注解可以参考。
Word VBA中搜索指定名称的文件.txt
01-13
在Word VBA中搜索指定名称的文件
vba上传文件到ftp服务器,excel vba upload file to ftp server
weixin_34304211的博客
08-12 781
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服务器,使用ftp.exe（使用VBA生成批处理文件）按顺序连接到多个FTP服务器...
weixin_35696012的博客
08-12 654
我试图从多个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 277
CodeOption ExplicitPrivate Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As LongPrivate Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInherit...
VBA实现FTP上传文件的两种方式：①shell cmd命令②vba调用vb.net(传参并获取返回值)
jiaxiao_jian的博客
10-04 3194
VBA实现FTP上传文件的两种方式：①shell cmd命令②vba调用vb.net(传参并获取返回值) 欢迎使用Markdown编辑器 你好！ 这是你第一次使用 Markdown编辑器 所展示的欢迎页。如果你想学习如何使用Markdown编辑器, 可以仔细阅读这篇文章，了解一下Markdown的基本语法知识。 新的改变 我们对Markdown编辑器进行了一些功能拓展与语法支持，除了标准的Markdown编辑器功能，我们增加了如下几点新功能，帮助你用它写博客： 全新的界面设计 ，将会带来全新的写作体验；
vba上传文件到ftp服务器指定目录下面
Gblfy_Blog
07-31 2313
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 ...
ftp工具-vba做的
10-31
ftp工具-vba做的 ftp工具-vba做的 ftp工具-vba做的 ftp工具-vba做的 ftp工具-vba做的
Excel VBA上传数据到SQL server
05-10
在企业信息化初期，大部分数据都会通过excel进行管理； 作为IT人员，其实对excel又爱又恨，爱其灵活易用，恨其数据不能统一管理， 故若要把excel数据统一管理，能想到的办法之一就是存大数据库， 若要存到数据库，导入、填报， 导入，总不能由IT人员来导吧，必将累死； 填报，要么C#、Java开发个页面，开发？我若是码农，我还会来搜索这个Soluation吗？ 要么购买第三方工具，购买？NO.NO.NO,没有预算； 那怎么办，自然就会想到Excel 的VBA， 作为VBA，看上去简单，其实时间成本特别高，效率低； 现在就分享一个资源，Excel VBA 上传当前sheet中的所有内容到数据库， 然后通过excle调取数据库的数据进行呈现；
VBA文件操作
11-01
在我们日常使用Excel的时候，不仅会用到当前Excel文件的数据，还经常需要访问其他的数据文件。这些数据文件可能是Excel文件、文本文 件或数据库文件等。经常有朋友会问如何在vba代码里操作这些数据文件？本文就系统地介绍一下在Excel中应用VBA操作数据文件的方法。
使用VBA操作文件
12-06
使用VBA操作文件
Excel VBA批量复制文件到指定目录
07-15
Excel VBA批量复制文件到指定目录
WPS文字 VBA帮助文件
01-20
金山出的WPS文字（Word）VBA的帮助文件，看起来比微软Word VBA的帮助文件相对简单，示例更为详细易懂
vba上传文件到ftp服务器,excel - 从Excel连接到FTP以自动执行文件共享（VBA初学者） - 堆栈内存溢出...
weixin_33256096的博客
08-12 1398
我是Excel VBA的初学者和新手，但我试图通过连接到Excel并可能创建一个有用的宏来自动化FTP(WinSCP)中的一些文件共享。 在FTP中我去了Session> Generate Session URL / code> Script(脚本文件)，下面是代码：open ftp://myUsername:myPassword@theHostname/# Your command...
Excel用VBA传数据到服务器
Eshine的博客
01-17 7080
有个金融领域的需求，有一段excel的vba代码可以自动生成金融产品数据，要把这些数据在网页上（其实是微信公众号）展示，于是就需要把生成的数据发送到服务器并保存给网页用。vba里面可以发送Http请求，笔者先把需要的数据拼成了1个Json字符串。真的是拼的，最好的方式肯定是序列化类实例，不过笔者以为vba不支持类，可能记糊涂了。不过后来发现vba居然支持类，但没有现成的json序列化方法，那么跟自己
浅习VBA数据上传功能
weixin_30436101的博客
04-14 200
用户需求用Excel宏直接上传其中的数据导数据库中，于是我花了一个礼拜的时间对VBA的基础知识进行了解。当然只是关注于此次需求相关的部分，所以只能算是浅习（粗浅的学习）。 VBA数据上传代码SubUpLoadData()IsLogon=FalseDimDataTable(59,5)AsStringDimWBAsSHDocVw.Intern...
使用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、付费专栏及课程。

余额充值