批量修改文件夹下多个EXCEL表中的sheet名称

xiaolin1113

1、一个文件夹内有很多个excel表格，每一个表格中有一个工作簿名（sheet1），需要批量将整个文件夹中的excel表格的sheet1重名称为每个excel表格的A2内容。请问用vba如何操作？2、一个文件夹内有很多个excel表格，每一个表格中有一个工作簿名（汉字名），需要批量将整个文件夹中的excel表格的（汉字名）重名称为sheet1，如果有多个，则这个excel表格的第二个sheet2为。请问用vba如何操作？
3、请问两个vba执行，怎么合成一个执行？

xiaolin1113

各位大神帮帮忙啊！