EXCEL VBA 将其中一个文件夹中包含XXXXX字符串的所有文件复制到另外一个文件夹

2025-02-25 03:03:59
推荐回答(2个)
回答1:

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

回答2:

不是完全一样的——这个是跟什么比较的啊