如何提取两个单元格里面的内容当作文件名

0懒懒懒0 2021-02-14 12:51:21
如图:需要根据A,B下面单元格中的内容得到C列单元格中的内容(需要去掉前后空格),然后在文件夹中查找这个文件名的文件并且删除。 小白拼凑代码如下,不懂如何继续了,请高手帮忙[face]monkey2:008.png[/face]
...全文
199 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
jieru_liu 2021-02-19
  • 打赏
  • 举报
回复

https://blog.csdn.net/ljr_123/article/details/113858925
Sub 删除目标文件()

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

Dim root_path '根文件夹路径
'root_path = "D:\工作\数据类" '根文件夹路径。假设所有文件在 “D:\工作\数据类” 文件夹中

root_path = InputBox("请输入文件所在文件夹的完整路径!" & _
Chr(10) & Chr(10) & "例如:" & Chr(10) & "文件夹所在路径为 “D:\工作\数据类”," & "则输入" & _
Chr(10) & "“D:\工作\数据类”")

Dim cnt%
cnt = Cells(Rows.Count, "a").End(xlUp).Row

Dim arr_AB As Variant
arr_AB = Range("a1", Cells(cnt, "b")) '数据从“A列”第一行开始

Dim file_name$, file_path$
For i = 1 To cnt
file_name = Trim(arr_AB(i, 2)) & "_" & WorksheetFunction.Substitute(Trim(arr_AB(i, 1)), ".", "_")
file_path = root_path & "\" & file_name

file_path = "D:\工作\数据类\06进销存\02进销存生成\2020\01进销存_从平台下载数据\7月\最终\202007进销存.xlsx"

'如果文件存在则删除
If fso.FileExists(file_path) Then
fso.DeleteFile file_path
End If

Next

End Sub
不懂别说哎 2021-02-18
  • 打赏
  • 举报
回复
我之前发了一个EXCEL的基本操作,你可以借鉴一下

2,462

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧