在VB中怎么能够更改某个文件夹下所有的excel中的第二个sheet的名字？

我现在在文件夹下放了很多excel表格，现在我想将sheet2的名字全部改成一个另外的名字？请问怎么能够实现？

你先枚举指定目录下所有 Excel 文件，对每个枚举到的 Excel 文件执行 sheet1,sheet2,sheet3,改名为1，2，3，VBA中withworksheet("1")，把工作表名字改成变量怎么写，把工作表名字改成变量怎么写")

多个Excel需要循环，下面是一个excel的修改

 首先通过菜单：[工程]--[引用]，勾选：
Microsoft Excel XX.X Object Library
代码如下:
Private Sub Command1_Click()
Dim excel_App As Excel.Application
Dim excel_Book As Excel.Workbook
Dim excel_sheet As Excel.Worksheet

'启动Excel
Set excel_App = CreateObject("Excel.Application")

'设置Excel为可见
excel_App.Visible = False

'打开文件
Set excel_Book = excel_App.Workbooks.Open(App.Path & "\文件名.XLS")

excel_Book.Sheets("Sheet1").Name = "abc"

'''''''''''''''''''''''''''''''''''

'关闭Excel文件
    Set excel_sheet = Nothing
    excel_App.ActiveWorkbook.Close savechanges:=True    '保存对EXCELL进行更改。
    Set excel_Book = Nothing
    excel_App.Quit
    Set excel_App = Nothing

End Sub