操控一个文件下各工作簿自动运行代码

cpexcelcp

在总控工作写入一个VBA，操控指定文件下各工作簿自动运行代码

liulang0808

楼主可以在总控文件里些代码，遍历每个工作薄，然后使用application.RUN 启用各个工作薄的代码
或者考虑代码的通用性，将代码都写在总控文件里，然后遍历各个其他工作薄运行相应的代码

microyip

把各工作簿代码写到Open里，打开自动运行就可以啦

cpexcelcp

再顶下。。。。。。。。。

cpexcelcp

朱荣兴 发表于 2018-7-31 10:41
把该文件夹下的每个工作簿自动运行“yy”代码。
你这个yy代码是需要做些什么？？？？？？？？？？？？？？ ...

代码只做了个简单的。就是想实现让Excel自动运行VBA

cpexcelcp

liulang0808 发表于 2018-7-31 07:38
楼主可以在总控文件里些代码，遍历每个工作薄，然后使用application.RUN 启用各个工作薄的代码
或者考虑代 ...

简单的代码相同，版主可否出手帮忙解答

liulang0808

1. Sub 按钮1_Click()
   
2.     Set fso = CreateObject("scripting.filesystemobject")
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     pth = ThisWorkbook.Path & "" & [g1]
   
6.     If fso.folderexists(pth) Then
   
7.         For Each f In fso.getfolder(pth).Files
   
8. [color=Red]            With Workbooks.Open(f)
   
9.                 .Sheets(1).[c3] = f.Name
   
10.                 .Save
    
11.                 .Close False
    
12.             End With[/color]
    
13.         Next f
    
14.     Else
    
15.         MsgBox "路径不存在"
    
16.     End If
    
17.     Application.DisplayAlerts = True
    
18.     Application.ScreenUpdating = True
    
19. End Sub

复制代码

红色字体部分，按照统一模式对每个文件进行同样处理的

liulang0808

附件供参考。。。。。。。

cpexcelcp

liulang0808 发表于 2018-7-31 12:02
附件供参考。。。。。。。

你好老师，不知道怎么用。 运行代码后，没有运行给定的代码yy。 而是每个工作簿里输入了工作簿名。

要求是在G1单元格输入文件夹名，运行代码。把这个文件夹下的所有工作簿依次自动运行代码“yy” 。（代码yy是代表任何一个VBA代码）