VBA对工作表命名

大家好！
EXCEL工作薄中有张名为：“我的数据”工作表，现想用VBA代码将“我的数据”工作表的前一张工作表命名为：“数据透视”。谢谢大家了。

Sub 表改名()
For i = 1 To ThisWorkbook.Sheets.Count
If Sheets(i).Name = “我的数据" then
Sheets(i-1).Name = “数据透视"
end If
Next
End Sub

sub test() dim savedir, newname as string newname = sheets("sheet2").range("b2")   '所谓的另一个工作表的单元格，自己改工作表名称和单元格以获得新工作簿的名称 savedir = application.getopenfilename savedir = left(savedir, instrrev(savedir, "\")) sheets("sheet1").copy    '所谓特定工作表，自己改名称 activeworkbook.saveas savedir & newname end sub 运行此宏，会弹出一让你选择文件路径及文件，你得手动点到待保存路径，并必须选择该路径下的一文件（这样才能获取文件路径）。如果你路径已知，建议你直接修改代码 savedir = application.getopenfilename savedir = left(savedir, instrrev(savedir, "\")) 为 savedir = "d:\abc\"