EXCEL VBA 将其中一个文件夹中包含XXXXX字符串的所有文件复制到另外一个文件夹 30
例如找出文件夹D:\AAA中含有Myfile的所有文件，然后复制到文件夹E:\BBB中文件名包含字符串都需要，不是完全一样的才复制...
例如找出文件夹D:\AAA中含有Myfile的所有文件，然后复制到文件夹E:\BBB中
文件名包含字符串都需要，不是完全一样的才复制 展开
文件名包含字符串都需要，不是完全一样的才复制 展开
2个回答
展开全部
dim filename as string
dim fuzhiname as string
fuzhiname="复制名字.txt" '包括后缀
filename = dir("d:\aaa\" & fuzhiname & "复制名字*.txt")
do while filename<>""
if filename<>fuzhiname then call filecopy("d:\aaa\" & filename,"d:\aaa\" & filename")
filename = dir
loop
dim fuzhiname as string
fuzhiname="复制名字.txt" '包括后缀
filename = dir("d:\aaa\" & fuzhiname & "复制名字*.txt")
do while filename<>""
if filename<>fuzhiname then call filecopy("d:\aaa\" & filename,"d:\aaa\" & filename")
filename = dir
loop
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
不是完全一样的——这个是跟什么比较的啊
追问
比如我文件夹D:\AAA中有以下的文件名文件,我需要找出文件名包含AAB，且顺序一样的第二个文件,复制它到E:\BBB文件夹中
AAAAAA
AAABBB
ABAABB
CCCBBBB
追答
dim filename as string
dim fuzhiname as string
fuzhiname="复制名字" '不包括后缀
filename = dir("d:\aaa\*" & fuzhiname & "*.txt")'扩展名你自己改！
do while filename<>""
call filecopy("d:\aaa\" & filename,"d:\bbb\" & filename")
filename = dir
loop
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
