不需要旦者衫用VBA,直接用函数即可。
使用函数来处理
Excel版本参考:模腔2013
1、A1输入公式:=REPLACE(CELL("filename"),1,FIND("]",CELL("filename")),"")
2、回车完成
函数简单解析:
1、CELL("filename"),获取活动工作薄的全路径嫌手
2、REPLACE替换函数,此处从第一个到],替换为空
宏代码
Sub 指定祥册姿位置新建工作姿派表并命名()
Sheets.Add before:=Sheets(1)
'before 前边.after 后谨绝边
ActiveSheet.name = "表1"
Cells(1, 1) = "A1单元格输入的内容"
End Sub
表1是指原念带来的那个表吗?如果是的话,试试下面的代码
Sub 新建仔塌芦工作表()
Sheets.Add
ActiveSheet.Name = Sheets("表1"衫世).Range("a1")
End Sub
录制宏