******如何根据工作薄名称，把表文件复制到对应店铺的文件夹里？*****

yu88

论坛找了半天，还是来麻烦大家了。。。。
如何根据工作薄名称，把表文件复制到对应店铺的文件夹里？
0728.rar (18.38 KB, 下载次数: 7)

2014-7-28 16:58 上传

点击文件名下载附件

dqhtju

使用FSO检索复制

yu88

不懂啊，vba不能实现吗？

wzsy2_mrf

1. Sub copyfiletofolder()
   
2.     On Error GoTo a0:
   
3.     Dim fso, pPath$, f, fd, lj$
   
4.     Application.DisplayAlerts = False
   
5.     Application.ScreenUpdating = False
   
6.     Set fso = CreateObject("scripting.FileSystemObject")
   
7.     pPath = Application.ThisWorkbook.Path
   
8.     If Right(pPath, 1) <> "" Then pPath = pPath & ""
   
9.     Set fd = fso.GetFolder(pPath)    '
   
10.     For Each f In fd.Files    '遍历文件夹内的文件
    
11.         If f.Name <> ThisWorkbook.Name Then
    
12.             lj = Left(f.Name, 4)
    
13.             fso.CopyFile pPath & f.Name, pPath & lj & "" & f.Name
    
14.         End If
    
15.     Next
    
16.     Set fd = Nothing: Set fso = Nothing
    
17. a0:
    
18.     Application.DisplayAlerts = False
    
19.     Application.ScreenUpdating = True
    
20. End Sub
    

复制代码

wzsy2_mrf

附件如下：