作者：乔山办公网日期：
返回目录：excel表格制作
输入以下抄公式，得百到文件名度
=MID(CELL("filename"),FIND("[",CELL("filename"))+1,FIND("]",CELL("filename"))-FIND("[",CELL("filename"))-1)
输入以下公式，得到知工道作表名
=MID(CELL("filename"),FIND("]",CELL("filename"))+1,99)
dim fname as string
fname=thisworkbook.name
即可得到当前工作簿的名字。
获得当前工作表的名字。
fname=activesheet.name
可以复利用宏来获取。
代码如下制：
Sub 将全部百表名称写到度A列()
k = 1
For Each Sht In Sheets
Cells(k + 1, 1) = Sht.Name '指定写入的行和列
k = k + 1
Next
End Sub
选择空白知sheet执行宏即道可。
什么叫当前激活，=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,100)可获取本工作表名称，看是你要的不