请帮忙修改一下Excel VBA 程序。能否不用序号命名，而是用gMyPath1下文件夹的名命名。谢谢。

Question

Set FSO = CreateObject("Scripting.FileSystemObject")
Set FolderArr = FSO.getfolder(gMyPath1)
With FolderArr
If .subfolders.Count <> 0 Then
For Each f1 In .subfolders
For Each fn In f1.Files
n = n + 1
FSO.CopyFile fn.path, gMyPath2 & "\" & n & ".xls"
Next
Next
End If
End With

上面的程序是将gMyPath1目录下所有文件夹中的工作簿拷贝到gMyPath2文件夹中，并以序号命名所有工作簿。

Answer 1

FSO.CopyFile fn.path, gMyPath2 & "\" & n & ".xls"
改成
FSO.CopyFile fn.path, gMyPath2
就行了
你去看看
FileSystemObject的CopyFile方法就明白了
逗号后面跟的如果是个路径，就是直接复制，如果是文件名，就是重命名