多文件夹下多个工作薄，多个工作薄里有多个sheet，相同名称的sheet格式完全相同

君乐宝

各位大神，小女子自学了【别怕，excelvba很简单】还是没有思路
求各位大神，帮帮忙
主要诉求是：多文件夹下多个工作薄，多个工作薄里有多个sheet，相同名称的sheet格式完全相同
                   如果做到一个sheet的某个单元格变更了，其他工作薄里相同名称sheet里的这个单元格跟着一起变
多谢多谢

君乐宝

有大神可以帮帮忙吗？~~~~(>_<)~~~~

zgzxp

枚举文件夹下的xls文件，后台打开
遍历每个sheet，修改指定的单元格

修改的内容需要手都指定，不然还要判断哪个单元格变了，复杂

君乐宝

zgzxp 发表于 2016-11-19 18:57
枚举文件夹下的xls文件，后台打开
遍历每个sheet，修改指定的单元格

谢谢老师！我试一下

君乐宝

zgzxp 发表于 2016-11-19 18:57
枚举文件夹下的xls文件，后台打开
遍历每个sheet，修改指定的单元格

老师。同一个文件夹下有99个工作薄，每个工作薄有不同数目的工作表
现要求，更改某工作表的某单元格，则与该工作表名称相同的工作表的该单元格同样修改
（用手动指定单元格的方法）
老师，能辛苦您帮忙写一下代码吗
麻烦您了

zgzxp

有个FillAcrossSheets方法


在活动工作簿中，将 Sheet2（你更改了的单元格） 上的单元格区域的格式和任何数据复制到该工作簿中所有工作表上的相应区域中。
Sub FillAll()
    Worksheets("Sheet2").Range("A1:H1") _
        .Borders(xlBottom).LineStyle = xlDouble
    Worksheets.FillAcrossSheets (Worksheets("Sheet2") _
        .Range("A1:H1"))
End Sub
你可以参考一下

zgzxp

君乐宝 发表于 2016-11-20 16:30
老师。同一个文件夹下有99个工作薄，每个工作薄有不同数目的工作表
现要求，更改某工作表的某单元格，则 ...

简单弄了一下，测试一下

君乐宝

zgzxp 发表于 2016-11-20 19:43
简单弄了一下，测试一下

非常感谢，已下载，结果能达到预期效果
您辛苦啦、
thankyou