excel 宏录制，如何实现修改数据表名称的功能，在线等，谢谢

数据从txt文件导入，名字都不一样，想都给改成1，怎么编辑宏啊？谢谢
例如 sheet1 改成 1 ， 如 sheet2 也改为1，或者 aaa 也改成1
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "1"

Sub Macro2()
For Each sht In ThisWorkbook.Sheets
If sht.Index = 1 Then
sht.Name = "1"
End If
Next
End Sub

12111683的方法是要求 你 输入 所需更改 工作表的 名称，再根据 你的 输入 更改 相应的 工作表名，并未 实现 自动 更名。

根据 你的 要求，应该 使用 的 方法 是用 “Me” 来调用 当前 工作表，
即

Me.name = "1"

有问题可以 百度Hi 我，在线

或者

Sub ff()
For Each sht In ThisWorkbook.Sheets
If sht.Index = 1 Then
sht.Name = "666"
End If
Next
End Sub

Sub 工作表改名() Name = InputBox("输入工作表名称，默认请按取消：", "更改工作表名称", "") Application.ScreenUpdating = False For j = 2 To Sheets.Count If Name <> "" Then Sheets(j).Name = Name & j - 1 End If Next j Application.ScreenUpdating = True End Sub

dim excel as object set excel = createobject("excel.application") '--------------这上面可不看照抄 excel.workbooks.open ("c:\abc.xls") excel.visible = true open "c:\abc1.txt" for append as #1 print #1, excel.sheets(1).name close #1 open "c:\abc2.txt" for append as #2 print #2, excel.sheets(2).name close #2 open "c:\abc3.txt" for append as #3 print #3, excel.sheets(3).name close #3 excel.activeworkbook.save excel.quit