如何excel 批量修改sheet名称-excel工作表名批量修改,excel批量修改工作表文件名

'近要求运行下面VBA代码。
Sub ReNameSheet()
Dim f
Dim wb As Workbook
'先在桌面建立一个zd名为内EXCEL文件的文件夹，将要修改表名的EXCEL都放到这个文件夹中。
f = Dir("c:\documents and settings\administrator\桌面\EXCEL文件\*.xls")
Do While f <> ""
Set wb = Workbooks.Open("c:\documents and settings\administrator\桌面\EXCEL文件\" & f)
wb.Sheets("sheet1").Name = "已开店"
wb.Sheets("sheet2").Name = "未巡店容"
wb.Save
wb.Close
Set wb = Nothing
f = Dir
Loop

End Sub

方法/步骤

首先，我来们来准备新的名字，对应相应的工作表，从A2单元格开始，A1存放标题字段。

新名字全部准备好后，然后任意工作表标签右击，点击查看代码，或者ALT+F 11快捷键，调出VBE对话源框。

进入VBE对话框后，右击thisworkbook,选择插入，然后知选择模块。

双击模块，进入代码输入框输入一下代码
Sub 重命名()
Dim i&
For i = 2 To Sheets.Count
Sheets(i).Name = Sheets(1).Cells(i, 1)
Next
End Sub
也可以记住，下次直接粘贴即可，代码通用。

然后点击开发工具选项卡，在控件下面选择按钮控件（开发工具选项卡一般默认是没有的，具体可参考我前面的经验，有具体介绍如何调出）

在空白处，拖动鼠标，画出一个大小适合的按钮，然后右道击选择制定宏。

选择重命名，然后点击确定。

SUB aa()
dim i%
for i=2 to sheets.count
    sheets(i).name=sheets(1).range("A"&i)
next i
end sub

1.单击Excel2007窗口左上角的“Office 按钮”图标，在弹出的菜单中，单击“Excel选项”按钮，如上图所示7a686964616fe4b893e5b19e331。

2.在“Excel选项”对话框中,单击左侧“常用”分类，勾选“在功能区显示"开发工具"选项卡”项，单击“确定”按钮返回Excel2007主窗口，即可添加开发工具选项卡。

3.单击“开发工具”菜单-“Visual Basic”图标

4.Excel2007打开代码编辑器窗口，单击“插入”菜单-“模块”菜单项，即可插入默认的模块“模块1”，即可在右侧的VBA代码编辑器窗口输入VBA代码。

Sub Books2Sheets()
    '定义对话框变量
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    '新建一个工作簿
    Dim newwb As Workbook
    Set newwb = Workbooks.Add
    
    With fd
        If .Show = -1 Then
            '定义单个文件变量
            Dim vrtSelectedItem As Variant
            
            '定义循环变量
            Dim i As Integer
            i = 1
            
            '开始文件检索
            For Each vrtSelectedItem In .SelectedItems
                '打开被合并工作簿
                Dim tempwb As Workbook
                Set tempwb = Workbooks.Open(vrtSelectedItem)
                
                '复制工作表
                tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i)
                
                '把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsx
                newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")
                
                '关闭被合并工作簿
                tempwb.Close SaveChanges:=False
                
                i = i + 1
            Next vrtSelectedItem
        End If
    End With
    
    Set fd = Nothing
End Sub