VBA实现新建文件夹，并将指定文件复制到每个新建的文件夹内

junp_zhang

各位老师，我新建了一个EXCEL表格，按照D列日期创建文件夹（VBA内仅小范围取D2,D3数据），已实现；
第二个功能就是想将文件夹根目录内的“虹桥视频上传登记表模板.xls”文件复制到每个新建的文件夹下，语法检查也是对的，可就是无法实现。

还望老师能够帮助我检查。

谢谢！

xiaocake

见图。。。。。

junp_zhang

感谢楼上的达人帮我修订公式，我将FSO.Copy……移至end if 内，避免运行宏时将此前修改的EXCEL文件覆盖。

junp_zhang

xiaocake 发表于 2018-3-14 14:03
见图。。。。。

可否请教老师，再帮我解决2个问题：
1，复制到日期文件夹内的文件命名修改为“文件夹名+文件名”；
2，运行新的EXCEL表格，鼠标点击某个按钮，运行某行的文件夹？

junp_zhang

可否请教老师，再帮我解决2个问题：
1，复制到日期文件夹内的文件命名修改为“文件夹名+文件名”；
2，运行新的EXCEL表格，鼠标点击某个按钮，运行某行的文件夹？

xiaocake

junp_zhang 发表于 2018-3-15 11:41
可否请教老师，再帮我解决2个问题：
1，复制到日期文件夹内的文件命名修改为“文件夹名+文件名”；
2，运 ...

1.文件改名的方法你自己去查查吧，看别人写的代码用了什么方法，然后再去查这个方法的完整解释，然后你再按官方的解释来写代码。
2.你是想在表格中直接增加按钮，这样太麻烦了。直接画个窗口，在窗口上添加"创建文件夹"和"打开文件夹",两个按钮。写好按钮对应的代码。   打开表格后自动加载窗口，选中表格中某一行，点窗口上的按钮就执行对应行的操作。
以下小技巧很有用
1.在代码中变量赋值后用 msgbox [变量名] 或 debug.print [变量名]  来监视变量的变化情况。
2.调试代码时在适当位置设置断点，以观察程序执行情况。

nxxhswl

这篇是个优秀作品。

ykcbf1100

新建文件夹、复制文件并改名。

练手。。。

ykcbf1100

纯练手。。。

1. Sub ykcbf()  '//2024.4.11
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set fso = CreateObject("Scripting.FileSystemObject")
   
5.     p = ThisWorkbook.Path & ""
   
6.     r = Cells(Rows.Count, 4).End(3).Row
   
7.     arr = [d1].Resize(r, 1)
   
8.     f = "虹桥视频上传登记表模板.xls"
   
9.     On Error Resume Next
   
10.     For i = 2 To UBound(arr)
    
11.         rq = Format(arr(i, 1), "yyyy年m月d日")
    
12.         p1 = p & rq & ""
    
13.         If Not fso.FolderExists(p1) Then fso.CreateFolder p1
    
14.         fn = p1 & rq & "-" & f
    
15.         FileCopy p & f, fn
    
16.     Next
    
17.     Application.ScreenUpdating = True
    
18.     MsgBox "OK！"
    
19. End Sub
    
20. 
    

复制代码

nxxhswl

ykcbf1100 发表于 2024-4-11 08:28
纯练手。。。

同时实现对多个文件怎么操作呢。