比如要引用某文件b1单元格的内容，这个文件名现在a1单元格，可以输入公式=indirect(a1&"!b1")

INDIRECT("["&B2&".xlsx]Sheet1!A:C")表示以单元格B2中内容为Excel文件名的工作簿的Sheet1的A到C列。然后使用VLOOKUP函数进行查找。

=RIGHT(CELL("filename",$A$1),LEN(CELL("filename",$A$1))-FINDB("]",CELL("filename",$A$1),1))这样就会把当前的工作表名称显示出来

采用函数来实现，方法如下：在单元格中输入“=MID(CELL("filename"),FIND("[",CELL("filename"))+1,FIND("]",CELL("filename"))-FIND("[",CELL("filename"))-1)”，

直接将以下内容复制到单元格中=MID(CELL("filename",A1),FIND("[",CELL("filename",A1))+1,FIND("]",CELL("filename",A1))-FIND("[",CELL("filename",A1))

代码中保存文件并命名的语句是：.saveas"c:\aaa.xlsx"要改变路径和名称修改引号里面的内容就可以了，例如：.saveas"c:\"&[e1]&"-"[e2]&".xlsx"

楼主这个一通录制宏啊先循环遍历查找到“根”那张表然后提取[e4],[e5]两个单元格里的数值，修改文件名称即可

Alt+F11，双击你指的“A1”所在的工作表，将下面代码复制上，保存后关闭。然后点击菜单栏：“工具”——“宏”——“宏”出现类似附图，点执行即可。PublicSubttt()DimFileBatAsStringDimappPathAsStringa...

alt+f11打开vba编辑器点插入模块容纳后复制粘贴如下代码Sub根据单元格另存表名()ActiveWorkbook.SaveAsFilename:=ActiveWorkbook.Path&"\"&Selection&".xls",FileFormat:=_xlNormal,Password:="",Write...

vba宏，关闭前判定是不是该单元格内容，如果是，保存关闭如果不是，另存为文件，并关闭