vba上传文件到ftp服务器指定目录下面

最新推荐文章于 2023-07-26 15:10:31 发布
最新推荐文章于 2023-07-26 15:10:31 发布
阅读量2.3k 收藏 15
点赞数
分类专栏： Shell 文章标签： vba
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_40816738/article/details/97894637
版权

vba上传文件到ftp服务器指定目录 +脚本形式

文章目录

1. 测试版本无校验：

在这里插入图片描述

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. 测试版本有检验

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

3. 文件不存在校验版本

Sub 代码文件上传()

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("核心_变更解决方案（模版）")
Set fs = CreateObject("Scripting.FileSystemObject")

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

'循环扫描文件名,生成一个只有文件名字的字符串
For i = 20 To 100
If mysheet1.Cells(i, 5) <> "" Then
str1 = Replace(Sheet1.Cells(i, 5), "/", "\")
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

4. 文件不存在校验+必填项校验版本

在这里插入图片描述

Sub 代码文件上传()

' 定义变量 i for循环, str1 文件路径, str3本地路径, str4=str3+str1 文件的绝对路径, str5 批量上传文件列表
'str9 所有要上传的文件, str10=str3+1.bat
Dim i, str1, str3, str4, str5, str9, str10


'strname1  key对应的value 这里指系统名, strname 获取模块名称, loginname 登录用户, loginpwd 登录口令
Dim myarray(), MyFile As Object, strname1, strname, loginname, loginpwd


'创建了一个FSO对象，然后中用它来读写文本文件，删除文件等
Set MyFile = CreateObject("Scripting.FileSystemObject")

'当加上On Error Resume Next语句后，如果后面的程序出现"运行时错误"时，会继续运行，不中断。
On Error Resume Next

'定义(变更文件扫描清单)工作表
Set mysheet1 = ThisWorkbook.Worksheets("变更文件扫描清单")
'定义(Sheet1)工作表
Set checklist = ThisWorkbook.Worksheets("Sheet1")

'创建了一个FSO对象，然后中用它来读写文本文件，删除文件等
Set fs = CreateObject("Scripting.FileSystemObject")

' ----判断指定必填项是否为空 Start----
If mysheet1.Cells(3, 1) = "" Then
MsgBox "系统名称不能为空"
MsgBox "请填写信息完成后，请重新上传！"
Exit Sub
End If
If mysheet1.Cells(3, 2) = "" Then
MsgBox "模块名称不能为空"
MsgBox "请填写信息完成后，请重新上传！"
Exit Sub
End If
If mysheet1.Cells(3, 3) = "" Then
MsgBox "用户名不能为空"
MsgBox "请填写信息完成后，请重新上传！"
Exit Sub
End If
If mysheet1.Cells(3, 4) = "" Then
MsgBox "口令不能为空"
MsgBox "请填写信息完成后，请重新上传！"
Exit Sub
End If
If mysheet1.Cells(5, 1) = "" Then
MsgBox "变更号不能为空"
MsgBox "请填写信息完成后，请重新上传！"
Exit Sub
End If
' ----判断指定必填项是否为空 End----

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

End If
Else: MsgBox "本地路径不能为空"
MsgBox "请填写信息完成后，请重新上传！"
Exit Sub
End If

'获取指定表格值
strname = mysheet1.Cells(3, 2)

For c = 1 To 25
initkey = checklist.Cells(c, 3)
If initkey = strname Then
strname1 = checklist.Cells(c, 4)
Exit For
End If
Next

loginname = mysheet1.Cells(3, 3)
If strname1 <> loginname Then
MsgBox "模块名与用户名不区配，请核实！！！"
MsgBox "请填写信息完成后，请重新上传！"
Exit Sub
End If

'循环扫描文件名,生成一个只有文件名字的字符串
For i = 5 To 100
If mysheet1.Cells(i, 5) <> "" Then
str1 = Replace(Sheet1.Cells(i, 5), "/", "\")
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


loginpwd = mysheet1.Cells(3, 4)
'上传
Set fsd = CreateObject("Scripting.FileSystemObject")
str10 = str3 & "1.bat" '脚本
str11 = "Echo open IP地址>ftp.up" '远程路径
str12 = "Echo " & loginname & ">>ftp.up" '账号
str13 = "Echo " & loginpwd & ">>ftp.up" '密码

wj1 = "set " & Chr(34) & "i=/app/CodeQualityScan/" & loginname & "/" & loginname & "/"
wj2 = "set filesname=" & mysheet1.Cells(5, 1)

'---后面开始拼接脚本 Start---
Set fid = fsd.CreateTextFile(str10, True)
 '开远程
fid.WriteLine ("@Echo Off ")
fid.WriteLine (wj1)
fid.WriteLine (wj2)
fid.WriteLine (str11)
fid.WriteLine (str12)
fid.WriteLine (str13)
fid.WriteLine ("Echo Cd .\User >>ftp.up")
fid.WriteLine ("Echo binary>>ftp.up")
'进入指定ftp目录
fid.WriteLine ("Echo cd %i%>>ftp.up")
'创建指定文件夹
fid.WriteLine ("Echo mkdir %filesname%>>ftp.up")
'进入指定文件夹
fid.WriteLine ("Echo cd %filesname%>>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
'---后面开始拼接脚本 End---
str16 = "cmd.exe /c " & str10 '运行脚本
'MsgBox str16
Shell str16

 MsgBox "传输完成"
End Sub

1.bat脚本

@Echo Off 
set "i=/app/CodeQualityScan/系统名/用户名/
set filesname=变更号
Echo open IP地址>ftp.up
Echo 用户名>>ftp.up
Echo 口令>>ftp.up
Echo Cd .\User >>ftp.up
Echo binary>>ftp.up
Echo cd %i%>>ftp.up
Echo mkdir %filesname%>>ftp.up
Echo cd %filesname%>>ftp.up
Echo prompt >>ftp.up
Echo lcd "D:\Workspaces\xxxprojectname\">>ftp.up
 Echo mput "D:\Workspaces\xxxprojectname\ui\js\JsFileName.js" >>ftp.up Echo mput "D:\Workspaces\xxxprojectname\java\JavasadasasdsdsdFileName.java" >>ftp.up Echo mput "D:\Workspaces\xxxprojectname\ui\jsp\JspFileName.jsp" >>ftp.up
Echo bye>>ftp.up
FTP -s:ftp.up
del ftp.up /q
gblfy
关注
专栏目录
VB实现在FTP上生成目录及FTP上的文件复制
08-14
具体包括连接FTP服务器、创建新目录、切换工作目录以及文件的复制等操作。 #### 目录生成步骤 1. **初始化连接**：首先，需要建立一个到FTP服务器的连接。 2. **切换目录**：之后可以切换到特定的目录或保持在根...
vba上传指定文件ftp服务器
Gblfy_Blog
07-23 2759
文章目录一、需求分析：二、操作流程：2.1 【开发工具】-【宏】2.2 【宏】-【编辑】2.3 【把脚本复制进去】2.4 脚本如下2.5 修改位置2.5.1 修改sheet名称和表格一致2.5.2 修改Cells(2,3)2.5.3 修改4 to 1002.5.4 修改Cells(i,3)2.5.5 修改发ftp信息2.5.6 保存脚本三、添加上传按钮效果图： 一、需求分析： 在exc...
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实现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...
Excel vba编程实现ftp下载并打开自动运行
Clannad_niu的博客
02-26 5432
0x00 背景 最近因为疫情的原因憋在家实在无聊，搞了一下excel的宏编程 excel使用vba语言实现宏，虽然没学过 但是大致的代码可以看懂 就搞了一个打开excel自动运行宏 在ftp服务器上下载文件到本地的小脚本 0x01 配置 首先需要打开excel的宏，在excel的 开始-》选项-》信任中心 -》宏设置 -》启用所有宏 如下图 配置好宏以后，就可以开始宏编程了。 ...
批处理之FTP自动同步文件
飞鹤的程序员人生
07-01 4403
1. FTP.exe工具 ftp.exe是Windows系统提供的一个FTP客户端命令行工具。通过ftp.exe可以完成登录，显示远程文件、下载、上传、重命名、删除远程文件等操作。 1.1. 命令参数 FTP [-v] [-d] [-i] [-n] [-g] [-s:filename] [-a] [-A] [-x:sendbuffer] [-r:recvbuffer] [-b:asyncbuffers] [-w:windowsize] [host] -v 禁止显示远程服务器响
VB代码利用FTP实现文件上传于下载代码
11-22
在Visual Basic（VB）编程环境中，我们可以利用FTP协议来实现文件的上传和下载功能。以下将详细介绍如何在VB中利用FTP进行文件操作，并提供相关的知识点。 首先，VB中的FTP操作通常需要使用System.Net命名空间中的...
VBA 宏代码 自动更新 FTP 自动升级 模块导入即可
08-23
自动升级模块我做成了ftp服务器的模式，在ftp上面放了一个ver.txt里面第一行版本号，第二行更新日期，第三行开始可以写一些注释或者更新说明 当判断ver.txt里面的版本与本地excel的autoupgrade_main里面的版本号不...
ftp工具-vba做的
10-31
ftp工具-vba做的 ftp工具-vba做的 ftp工具-vba做的 ftp工具-vba做的 ftp工具-vba做的
VB FTP文件上传、下载
12-19
VB FTP文件上传、下载，都是源码，供学习开发用。thanks
FTP上传下载文件(VB含源码)
05-15
3. **数据流处理**：上传和下载文件涉及到数据流的读写。在VB中，可以使用`Stream`类及其子类，如`FileStream`和`NetworkStream`，来处理文件和网络之间的数据传输。 4. **编码与解码**：FTP协议通常以ASCII或二...
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...
Excel·VBA文件重命名、移动
hhhhh_51的博客
12-13 7658
获取文件夹下所有文件名，并重命名；按顺序重命名；文件夹下所有文件名繁体转简体；批量移动文件；批量创建文件夹
shell脚本FTP文件传输
最新发布
qq_30895747的博客
07-26 2575
shell脚本实现ftp服务文件传输
vb ftp服务器文件上传,vb ftp服务器文件上传
weixin_28946735的博客
08-08 419
vb ftp服务器文件上传 内容精选换一换本节指导您基于Linux操作系统环境完成镜像文件快速导入，推荐使用云平台的EulerOS云服务器作为转换镜像格式和生成位表文件的环境。Linux操作系统环境下，建议使用qemu-img-hw工具进行镜像格式转换。已完成镜像文件优化，详细操作请参考优化过程(Windows)或优化过程(Linux)；同时需要确保镜像文件符合表1或表1中的限制下载地址：http...
通过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） ①输...
linux 查看shell脚本执行了多长时间
Gblfy_Blog
01-06 6949
步骤 说明 命令 ① 写一个1.sh脚本 vim1.sh，把脚本内容复制进去 ② 赋予1.sh可执行权限 ③ 把要执行的命令复制到第4行，保存退出 ④ 执行脚本 ./1sh ⑤ 查看执行脚本，共消耗多长时间 基础脚本模板 #!/bin/bash starttime=`date +'%Y-%m-%d %H:%M:%S'` #执行程序 endtime=`d...
使用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服务器根目录下的所有文件夹及文件名称。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

打赏作者

gblfy

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

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

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

打赏作者

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

抵扣说明：

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

余额充值