删除表并重命名怎样用于多工作簿

hangye

下面这段代码是从论坛找的。用来删除sheet1外的其他工作表，然后把sheet1以sheet1例单元格a2值来重命名。现在只能对当前工作簿起作用，想实现对多个工作簿批量执行。请高手指教，多谢！！！！请见附件

Sub 删除表()
'只保留“操作”、“系统”、“设置”和“数据”四个工作表
Dim ash As Worksheet
Application.DisplayAlerts = False
For Each ash In ThisWorkbook.Worksheets
If ash.Name <> "Sheet1" Then
ash.Delete
End If
Next
Sheet1.Name = [a2]
Application.DisplayAlerts = True

End Sub

nawong

Sub 删除表()
'只保留“操作”、“系统”、“设置”和“数据”四个工作表
Dim ash As Worksheet
Application.DisplayAlerts = False
For Each ash In ActiveWorkbook.Worksheets
If ash.Name <> "Sheet1" Then
ash.Delete
End If
Next
Sheet1.Name = [a2]
Application.DisplayAlerts = True

End Sub

hangye

原帖由 nawong 于 2010-4-9 09:56 发表
Sub 删除表()
'只保留“操作”、“系统”、“设置”和“数据”四个工作表
Dim ash As Worksheet
Application.DisplayAlerts = False
For Each ash In ActiveWorkbook.Worksheets
If ash.Name  "Sheet1" Then
a ...

谢谢！
测试错误！帮忙再看看

hangye

我是想把代码放在“删除并重命名.xls”，然后删除和重命名文件夹里的工作簿1.xls、2.xls、3xls -------
nawong 是不是没有看附件啊

hangye

帮帮忙啊 高手